使用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