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

核心提示： 在上面的代码中我们创建了两个表：Orders和Store，Orders存储来自售货员的订单，Pocket PC应用程序中使用SQL Server CE(3)，Stores存储书店的库存，出于方便我已经在Stores中输入了两条纪录，图4下一步使用SqlCeDataReader类将书店列表价

在上面的代码中我们创建了两个表：Orders和Store。Orders存储来自售货员的订单，Stores存储书店的库存，出于方便我已经在Stores中输入了两条纪录。

图4

下一步使用SqlCeDataReader类将书店列表价载入ComboBox控件中。

Sub LoadStores()
conn.Open()
Dim reader As SqlCeDataReader
Dim cmd As New SqlCeCommand( _
"SELECT * FROM Stores", conn)
reader = cmd.ExecuteReader
While reader.Read
cboStoreID.Items.Add( _
reader.Item("storeID"))
End While
conn.Close()
End Sub

这样当表单被载入时，ComboBox控件就填充了书店列表。

图5

当选中Store ID时，就显示他代表的

Private Sub cboStoreID_SelectedIndexChanged( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles cboStoreID.SelectedIndexChanged
conn.Open()
Dim sql As String = _
"SELECT * FROM Stores WHERE storeID=" & _
cboStoreID.Items(cboStoreID.SelectedIndex)
Dim cmd As New SqlCeCommand(sql, conn)
Dim reader As SqlCeDataReader = cmd.ExecuteReader
reader.Read()
lblStoreName.Text = reader.Item("storeName")
conn.Close()
End Sub