得到局域网中SQL SERVER服器列表

博主： samool
发布时间：2006 年 05 月 12 日
12691 次浏览
1 条评论
564字数
分类：享生活

AI摘要

本文介绍了如何使用Delphi编程语言通过COM对象获取局域网中的SQL Server服务器列表。代码示例中，首先创建一个SQLDMO.Application对象，然后使用其ListAvailableSQLServers方法获取服务器列表，并遍历该列表将服务器名称添加到列表框中。最后，将对象设置为NULL以释放资源。

转自：http://www.delphibbs.com/keylife/iblog_show.asp?xid=13573
得到局域网中SQL SERVER服器列表
use comobj
var
SQLServer:Variant;
ServerList:Variant;
i,nServers:integer;
begin
SQLServer := CreateOleObject('SQLDMO.Application');
ServerList:= SQLServer.ListAvailableSQLServers;
nServers:=ServerList.Count;
for i := 1 to nservers do
Listbox.Items.Add(ServerList.Item(i));
SQLServer:=NULL;
serverList:=NULL;