取得网络中SQL的服务器列表

最新推荐文章于 2021-08-03 11:52:00 发布

原创最新推荐文章于 2021-08-03 11:52:00 发布 · 703 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#服务器 #sql #网络 #sqlserver #string

管理系统软件专栏收录该内容

8 篇文章

订阅专栏

本文介绍了一种使用OLE对象连接SQLDMO并获取网络中SQL服务器列表的方法。通过VBA代码实现自动化获取，适用于网络管理及数据库监控场景。

通过不可视对象oleobject建立和SQLDMO连接来取得网络中SQL的服务器列表
具体代码如下（可下载附件）：
String ls_name
Int li_i,li_servercount
Long ll_status
/*避免多次点击而生成重复记录*/
lv_1.DeleteColumns()
lv_1.Deleteitems()
/***************************/
lv_1.Addcolumn('服务器名',left!,700)
OLEObject SQLServer,SQLName
SQLServer = Create OLEObject
SQLName = Create OLEObject
ll_status = SQLServer.ConnectToNewObject('SQLDMO.Application')
If ll_status <> 0 Then
MessageBox('失败','连接SQLDMO失败')
DESTROY SQLServer;
Else
SQLName = SQLServer.ListAvailableSQLServers()
li_servercount = SQLName.Count()
For li_i = 1 To li_servercount
ls_name = String(SQLName.Item(li_i))
lv_1.Additem(ls_name,1)
Next
End If
DESTROY SQLServer;
DESTROY SQLName;