在開發(fā)基于SQL Server數(shù)據(jù)庫的應(yīng)用程序時，經(jīng)常會遇到需要知道SQL Server數(shù)據(jù)庫對象的相關(guān)信息的情況，例如SQL Server中有哪些數(shù)據(jù)庫，這些數(shù)據(jù)庫中有哪些數(shù)據(jù)表，每個數(shù)據(jù)表有哪些字段，這些字段是什么屬性等。筆者在開發(fā)一個數(shù)據(jù)庫導(dǎo)入程序時就遇到了這些問題，經(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（分布式管理對象）來訪問SQL Server數(shù)據(jù)庫。SQL-DMO是為Windows 9x與 Windows NT提供的32位OLE對象，它為與OLE兼容的應(yīng)用程序提供了SQL Server管理功能的接口，開發(fā)者通過DMO就可以直接訪問SQL Server數(shù)據(jù)對象。

3. 實(shí)現(xiàn)代碼

在“菜單->工程->引用”里選中“Microsoft SQLDMO Object Library”。

在代碼中定義以下全局變量：

Public oSQLServer As SQLDMO.SQLServer

’定義一個SQLDMO.SQLServer對象

Public oCurrentDB As SQLDMO.Database

’定義一個SQLDMO.Database 對象

Public oCurrentTable As SQLDMO.Table

’定義一個SQLDMO.Table 對象

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ù)庫信息”列表框

......

Dim oDB As SQLDMO.Database

Set oDB = oSQLServer.Databases(cob_sqldb.List(cob_sqldb.ListIndex))

If oCurrentDB Is Nothing Then

Set oCurrentDB = oDB

Else

If oCurrentDB.Name = oDB.Name Then

Exit Sub

End If

Set oCurrentDB = Nothing

Set oCurrentDB = oDB

End If

FillEmptyTableList (True)

If cob_sqltable.ListCount > 0 Then

cob_sqltable.ListIndex = 0

cob_sqltable_Click

End If

......

End Sub

Private Sub FillEmptyTableList(bFill As Boolean)

’獲得當(dāng)前數(shù)據(jù)庫中的所有非系統(tǒng)數(shù)據(jù)表名稱

If bFill = True Then

Dim oTable As SQLDMO.Table

For Each oTable In oCurrentDB.Tables

If oTable.SystemObject = False Then

’判斷其不是系統(tǒng)數(shù)據(jù)表

cob_sqltable.AddItem oTable.Name

’把非系統(tǒng)數(shù)據(jù)表名稱添加到數(shù)據(jù)表信息列表框中

End If

Next oTable

End If

End Sub

Private Sub cob_sqltable_Click()

’點(diǎn)擊“數(shù)據(jù)表信息” 列表框

......

Dim oTable As SQLDMO.Table

Set oTable = oCurrentDB.Tables(cob_sqltable.List(cob_sqltable.ListIndex))

If oCurrentTable Is Nothing Then

Set oCurrentTable = oTable

Else

If oCurrentTable.Name = oTable.Name Then

Exit Sub

End If

Set oCurrentTable = Nothing

Set oCurrentTable = oTable

End If

FillEmptyColsToIndex (True)

If cob_sqlrecord.ListCount > 0 Then

cob_sqlrecord.ListIndex = 0

End If

......

End Sub

Private Sub FillEmptyColsToIndex(bFill As Boolean)

’獲得數(shù)據(jù)表中的所有字段的信息

If bFill = True Then

Dim oCol As SQLDMO.Column

Set oCol = New SQLDMO.Column

For Each oCol In oCurrentTable.Columns

cob_sqlrecord.AddItem oCol.Name & “ ” & oCol.DataType

’把字段名稱和字段屬性添加到字段信息列表框中

Next oCol

End If

End Sub