SQL-Server對(duì)象信息的獲取

在開發(fā)基于SQL Server數(shù)據(jù)庫的應(yīng)用程序時(shí)，經(jīng)常會(huì)遇到需要知道SQL Server數(shù)據(jù)庫對(duì)象的相關(guān)信息的情況，例如SQL Server中有哪些數(shù)據(jù)庫，這些數(shù)據(jù)庫中有哪些數(shù)據(jù)表，每個(gè)數(shù)據(jù)表有哪些字段，這些字段是什么屬性等。筆者在開發(fā)一個(gè)數(shù)據(jù)庫導(dǎo)入程序時(shí)就遇到了這些問題，經(jīng)過一番摸索，較好地解決了上述問題，現(xiàn)在把實(shí)現(xiàn)方法介紹給大家。程序界面如下圖所示。
    1. 開發(fā)環(huán)境
    本文所列出的代碼在Windows NT 4.0(SP6)、Microsoft Visual Basic 6.0、Microsoft SQL Server 2000環(huán)境下調(diào)試通過。
    2. 實(shí)現(xiàn)思想
    利用SQL-DMO（分布式管理對(duì)象）來訪問SQL Server數(shù)據(jù)庫。SQL-DMO是為Windows 9x與 Windows NT提供的32位OLE對(duì)象，它為與OLE兼容的應(yīng)用程序提供了SQL Server管理功能的接口，開發(fā)者通過DMO就可以直接訪問SQL Server數(shù)據(jù)對(duì)象。
    3. 實(shí)現(xiàn)代碼
    在“菜單->工程->引用”里選中“Microsoft SQLDMO Object Library”。
    在代碼中定義以下全局變量：
    Public oSQLServer As SQLDMO.SQLServer
    ’定義一個(gè)SQLDMO.SQLServer對(duì)象
    Public oCurrentDB As SQLDMO.Database
    ’定義一個(gè)SQLDMO.Database 對(duì)象
    Public oCurrentTable As SQLDMO.Table
    ’定義一個(gè)SQLDMO.Table 對(duì)象
    Public SERVER_NAME As String
    ’用于獲得用戶輸入的SQL Server服務(wù)器名稱
    Public USERNAME As String
    ’用于獲得用戶輸入的用戶名
    Public PASSWORD As String
    ’用于獲得用戶輸入的密碼
    ......
    以下為部分關(guān)鍵的程序代碼：
    Private Sub cmd_link_Click()
    ’點(diǎn)擊“連接”按鈕
    ......
    Set oSQLServer = CreateObject(“SQLDMO.SQLServer”)
    oSQLServer.Connect SERVER_NAME, USERNAME, PASSWORD
    ’連接SQL Server服務(wù)器，SERVER
    _NAME 為服務(wù)器名，USERNAME為用戶名，PASSWORD為用戶口令
    FillEmptyDatabaseList (True)
    If cob_sqldb.ListCount > 0 Then
    cob_sqldb.ListIndex = 0
    Cob_sqldb_Click
    End If
    ......
    End Sub
    Private Sub FillEmptyDatabaseList(bFill As Boolean)
    ’獲得SQL Server服務(wù)器上的所有數(shù)據(jù)庫名稱
    If bFill = True Then
    Dim oDB As SQLDMO.Database
    Set oDB = New SQLDMO.Database
    For Each oDB In oSQLServer.Databases
    If oDB.SystemObject = False Then
    ’判斷其不是系統(tǒng)數(shù)據(jù)庫
    cob_sqldb.AddItem oDB.Name
    ’把非系統(tǒng)數(shù)據(jù)庫名稱添加到數(shù)據(jù)庫信息列表框中
    End If
    Next oDB
    End If
    End Sub
    Private Sub Cob_sqldb_Click()
    ’點(diǎn)擊“數(shù)據(jù)庫信息”列表框
    ......