Pocket PC应用程序中使用SQL Server CE

当一个书店被选中之后，该书店相应的订单就会显示在第二个Listbox控件中。

Private Sub cboStoreIDs_SelectedIndexChanged( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles cboStoreIDs.SelectedIndexChanged
'---displays the orders of store selected
conn.Open()
Dim sql As String = _
"SELECT * FROM Orders WHERE storeID=" & _
cboStoreIDs.Items(cboStoreIDs.SelectedIndex)
Dim cmd As New SqlCeCommand(sql, conn)
Dim reader As SqlCeDataReader = _
cmd.ExecuteReader()
'---clears the listbox
cboOrders.Items.Clear()
While reader.Read()
cboOrders.Items.Add( _
reader.Item("title_id") & " - " & _
reader.Item("qty") & "-copy(ies)")
End While
conn.Close()
End Sub

图8

最后你也许注意到了，表单的底部没有虚拟键盘，如果使用仿真系统，那么这个缺陷就不那么明显，但在使用真实设备并准备输入查询条件的时候，你会感到很为难，不过不用担心我们可以在表单中添加一个菜单条，不过在这之后不要忘记将控件的位置作一些调整。

使用SQL Server查询分析器

SDE毕竟是Beta1版，他仍然存在一些Bug，在测试应用程序的时候遇到的最大的问题是-Web Sevice没有工作，即当点击查询按钮后，Web Sevice没有响应，这时有一个方法可以检测Web Sevice是否工作，就是Output窗口将显示一些信息，以指明那些线程存在。