asscessdatabase.vb

来自「SQL Server 业已成为最为流行的几大数据库之一」· VB 代码 · 共 55 行

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


    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

 
End Class