转自：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;

最后修改：2009 年 08 月 16 日
© 允许规范转载
卧槽，全是白嫖客，服务器不要钱吗？