sql的分布式關(guān)系對(duì)象（sql-dmo）庫(kù)允許你的vb6應(yīng)用程序自動(dòng)地同sql服務(wù)器進(jìn)行交互操作。這對(duì)于獲取關(guān)于sql服務(wù)器的信息很有用，例如服務(wù)器的狀態(tài)或者網(wǎng)絡(luò)上的可用服務(wù)器.

要使用sql-dmo庫(kù)，就要設(shè)置一個(gè)對(duì)“微軟sql-dmo對(duì)象庫(kù)”的參照。

application對(duì)象的listavailablesqlservers方法會(huì)返回一個(gè)namelist對(duì)象，它包含有網(wǎng)絡(luò)上可用服務(wù)器的列表。下面的代碼顯示了一個(gè)使用這個(gè)方法來填充列表框控件的方法：

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庫(kù)里另外一個(gè)有用的對(duì)象是sqlserver對(duì)象。這個(gè)對(duì)象能夠被用來獲取關(guān)于特定sql服務(wù)器的信息。connect方法會(huì)建立到數(shù)據(jù)庫(kù)服務(wù)器的連接并接受三個(gè)參數(shù)：數(shù)據(jù)庫(kù)名、用戶名和密碼。一旦對(duì)象的連接成功了，關(guān)于服務(wù)器的信息就能夠被取回：

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