SQL的分布式關系對象(SQL-DMO)庫允許你的VB6應用程序自動地同SQL服務器進行交互操作。這對於獲取關於SQL服務器的信息很有用,例如服務器的狀態或者網絡上的可用服務器.
要使用SQL-DMO庫,就要設置一個對“微軟SQL-DMO對象庫”的參照。
Application對象的ListAvailableSQLServers方法會返回一個NameList對象,它包含有網絡上可用服務器的列表。下面的代碼顯示了一個使用這個方法來填充列表框控件的方法:
Dim obJSQLApp As SQLDMO.Application
Dim objNameList As SQLDMO.NameList
Dim intCount As Integer
Set obJSQLApp = New SQLDMO.Application
Set objNameList = obJSQLApp.ListAvailableSQLServers()
For intCount = 1 To objNameList.Count
Call List1.AddItem(objNameList.Item(intCount))
Next
SQL-DMO庫裡另外一個有用的對象是SQLServer對象。這個對象能夠被用來獲取關於特定SQL服務器的信息。Connect方法會建立到數據庫服務器的連接並接受三個參數:數據庫名、用戶名和密碼。一旦對象的連接成功了,關於服務器的信息就能夠被取回:
Dim obJSQLServer As SQLDMO.SQLServer
Set obJSQLServer = New SQLDMO.SQLServer
obJSQLServer.LoginSecure = True
Call obJSQLServer.Connect("MyServerName", "username", "passWord")
Debug.PrintobJSQLServer.Name
Debug.PrintobJSQLServer.HostName
Debug.PrintobJSQLServer.Status