form1.vb

数据库学习的绝好例子简单的数据库经典入门

Imports System.Data

Public Class Form1
    'Private variables and objects
    Private strCompany As String = "Wrox"
    Private strApplication As String = "Time Tracker SQL"

    Private objProjects As WroxBusinessLogic.WBLProjects

    Private objDataSet As Data.DataSet
    Private objProjectsDS As Data.DataSet

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

        'Initialize a new instance of the business logic component
        Using objProjects As New WroxBusinessLogic.WBLProjects( _
            strCompany, strApplication)

            Try
                'Get all projects in a DataSet object
                objProjectsDS = objProjects.GetProjects()

                'Bind ListBox control
                ListBox1.DataSource = objProjectsDS.Tables("Projects")
                ListBox1.DisplayMember = "ProjectName"
                ListBox1.ValueMember = "ProjectID"

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

    Private Sub ListBox1_Click(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles ListBox1.Click

        'Initialize a new instance of the business logic component
        Using objProjects As New WroxBusinessLogic.WBLProjects( _
            strCompany, strApplication)

            Try
                'Get the specific project selected in the ListView control
                objDataSet = objProjects.GetProject( _
                    New Guid(ListBox1.SelectedValue.ToString))

                txtProjectDescription.Text = _
                    objDataSet.Tables("Project").Rows(0).Item( _
                    "ProjectDescription")

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