使用SQL-DMO来操控SQL服务器

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