joinqueryresultsetform.vb

来自「Microsoft Mobile Development Handbook的代码」· VB 代码 · 共 36 行

Imports System.Data.SqlServerCe

Public Class JOINQueryResultSetForm

    Private Sub JOINQueryResultSetForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            ' Create an instance of the typed SqlCeResultSet
            Dim rsset As ProductsCategoryResultSet = New ProductsCategoryResultSet()
        Catch sqlEx As SqlCeException
            MessageBox.Show("The default Constructor created by the tools does not work with" _
                + " a complex query. Message: " + sqlEx.Message + "\r\nPress OK to continue.")
        End Try

        Dim connectionString As String = "Data Source =" _
                + System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase) _
                + "\MyDatabase.sdf; Password =""MobileP@ssw0rd"";"

        ' Create an instance using our own constructor - don't open it yet
        Dim rsltSet As ProductsCategoryResultSet = New ProductsCategoryResultSet(False, connectionString)

        ' Define the query
        Dim query As String = "SELECT Product.ProductID, Product.Name, Product.Color," _
        + "Product.ListPrice, Product.Size, ProductCategory.Name AS CategoryName " _
        + "FROM Product, ProductCategory " _
        + "WHERE Product.ProductCategoryID = ProductCategory.ProductCategoryID"

        ' Open it, and supply our query
        rsltSet.Open(query)

        ' List the results in a ListView
        While (rsltSet.Read())
            ' Simple list in the format: <product name> - <product category mame>
            listView1.Items.Add(New ListViewItem(rsltSet.Name + " - " + rsltSet.CategoryName))
        End While
    End Sub
End Class