asscessdatabase.vb

SQL Server 业已成为最为流行的几大数据库之一

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''ch07 示例4
''
''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Imports Microsoft.SqlServer.Management.Smo
Public Class AsscessDatabase

    Public aDatabase As Database
    Public aServer As Server

    Dim aTable As Table
    Dim aField As Column

    Dim tableForm As AccessServerWithSMO.AccessTable

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

        GroupBox1.Text = "数据库" + aDatabase.Name.ToString + "中所含数据表："
        lbFieldList.Items.Clear()
        For Each aTable In aDatabase.Tables

            lbTbList.Items.Add(aTable.Name.ToString)

        Next

    End Sub
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ''ch07 示例5
    ''
    ''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    Private Sub lbTbList_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbTbList.SelectedIndexChanged

        lbFieldList.Text = "数据表" + lbTbList.Text + "中所含字段及其类型："

        lbFieldList.Items.Clear()

        Dim strField As String
        Dim spaceStr As String

        spaceStr = Space(50)
        For Each aField In aDatabase.Tables(lbTbList.Text).Columns

            strField = "" + spaceStr.Substring(1, (20 - aField.Name.Length))
            strField = aField.Name + strField + aField.DataType.SqlDataType.ToString
            lbFieldList.Items.Add(strField)

        Next

    End Sub

    
    Private Sub lbTbList_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbTbList.DoubleClick

        tableForm = New AccessServerWithSMO.AccessTable
        tableForm.aTable = aDatabase.Tables(lbTbList.Text)
        tableForm.ShowDialog()

    End Sub

 
    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

    End Sub
End Class