在delphi中如何列出局域网中的SQL SERVER服务器

来源：百度知道 编辑：UC知道 时间：2024/05/13 17:20:28
在很多SQL网络软件中,都有一个联机工具
运行后就会在一个列表框中列出局域网中所有的SQL SERVER服务器,然后选择你需要的那个服务器,这样又有一个列表列出该服务器上的所有数据库,请问这在delphi中是如何实现的?

uses加 ComObj
procedure TForm1.Button1Click(Sender: TObject);
var
SQLServer:Variant;
ServerList:Variant;
i,nServers:integer;
// sRetValue:String;
begin
SQLServer := CreateOleObject('SQLDMO.Application');
ServerList:= SQLServer.ListAvailableSQLServers;
nServers:=ServerList.Count;
for i := 1 to nservers do
ListBox1.Items.Add(ServerList.Item(i));
SQLServer:=NULL;
serverList:=NULL;
end;