在開發基於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