北京跟蹤與通信技術研究所 牛曉華 王 榮
在開發基於SQL Server數據庫的應用程序時，經常會遇到需要知道SQL Server數據庫對象的相關信息的情況，例如SQL Server中有哪些數據庫，這些數據庫中有哪些數據表，每個數據表有哪些字段，這些字段是什麼屬性等。筆者在開發一個數據庫導入程序時就遇到了這些問題，經過一番摸索，較好地解決了上述問題，現在把實現方法介紹給大家。程序界面如下圖所示。
1. 開發環境
本文所列出的代碼在Windows NT 4.0(SP6)、Microsoft Visual Basic 6.0、Microsoft SQL Server 2000環境下調試通過。
2. 實現思想
利用SQL-DMO（分布式管理對象）來訪問SQL Server數據庫。SQL-DMO是為Windows 9x與 Windows NT提供的32位OLE對象，它為與OLE兼容的應用程序提供了SQL Server管理功能的接口，開發者通過DMO就可以直接訪問SQL Server數據對象。
3. 實現代碼
在“菜單->工程->引用”裡選中“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服務器名稱
Public USERNAME As String
’用於獲得用戶輸入的用戶名
Public PASSWord As String
’用於獲得用戶輸入的密碼
......
以下為部分關鍵的程序代碼：
Private Sub cmd_link_Click()
’點擊“連接”按鈕
......
Set oSQLServer = CreateObject(“SQLDMO.SQLServer”)
oSQLServer.Connect SERVER_NAME, USERNAME, PASSWord
’連接SQL Server服務器，SERVER
_NAME 為服務器名，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服務器上的所有數據庫名稱
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
’判斷其不是系統數據庫
cob_sqldb.AddItem oDB.Name
’把非系統數據庫名稱添加到數據庫信息列表框中
End If
Next oDB
End If
End Sub
Private Sub Cob_sqldb_Click()
’點擊“數據庫信息”列表框
......
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)
’獲得當前數據庫中的所有非系統數據表名稱
If bFill = True Then
Dim oTable As SQLDMO.Table
For Each oTable In oCurrentDB.Tables
If oTable.SystemObject = False Then
’判斷其不是系統數據表
cob_sqltable.AddItem oTable.Name
’把非系統數據表名稱添加到數據表信息列表框中
End If
Next oTable
End If
End Sub
Private Sub cob_sqltable_Click()
’點擊“數據表信息” 列表框
......
Dim oTable As SQLDMO.Table
Set oTable = oCurrentDB.Tables(cob_sqltable.List(cob_sqltable.ListIndex))
If oCurrentTable Is Nothing Then
Set oCurrentTable = oTable
Else
I
您正在看的SQLserver教程是:SQL Server數據庫對象信息的獲取。f 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)
’獲得數據表中的所有字段的信息
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
