SQL的分布式关系对象(SQL-DMO)库允许你的VB6应用程序自动地同SQL服务器进行交互操作。这对于获取关于SQL服务器的信息很有用,例如服务器的状态或者网络上的可用服务器.
要使用SQL-DMO库,就要设置一个对“微软SQL-DMO对象库”的参照。
Application对象的ListAvailableSQLServers方法会返回一个NameList对象,它包含有网络上可用服务器的列表。下面的代码显示了一个使用这个方法来填充列表框控件的方法:
Dim objSQLApp As SQLDMO.ApplicationDim objNameList As SQLDMO.NameListDim 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.SQLServerobjSQLServer.LoginSecure = TrueCall objSQLServer.Connect("MyServerName", "username", "password")
Debug.PrintobjSQLServer.NameDebug.PrintobjSQLServer.HostNameDebug.PrintobjSQLServer.Status
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18