form1.vb

来自「数据库学习的绝好例子简单的数据库经典入门」· VB 代码 · 共 32 行

Imports System.Data

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load

        'Initialize a new instance of the data access base class
        Using objData As New WDABase
            Try
                'Declare local variables
                Dim objDataTable As New DataTable("Projects")

                'Get all Projects in a DataSet
                objData.SQL = "SELECT ProjectID, ProjectName " & _
                    "FROM vw_SelectProjects " & _
                    "ORDER BY ProjectName"
                objData.InitializeCommand()
                Call objData.FillDataTable(objDataTable)

                'Bind ListBox control
                ListBox1.DataSource = objDataTable
                ListBox1.DisplayMember = "ProjectName"
                ListBox1.ValueMember = "ProjectID"

            Catch ExceptionErr As Exception
                MessageBox.Show(ExceptionErr.Message, "Exercise 1")
            End Try
        End Using
    End Sub
End Class