如何获得局域网内所有SQLServer服务器的列表！！！

Question

哪位高手可以帮忙，拜托了！！！！

Answer 1

Function TPub.NetGetSQLServerList(var List: Tstringlist): boolean;
var
  i: integer;
  SQLServer: Variant;
  ServerList: Variant;
begin
 Result := False;
 List.Clear;
 try
   SQLServer := CreateOleObject('SQLDMO.Application');
   ServerList := SQLServer.ListAvailableSQLServers;
   for i := 1 to Serverlist.Count do
     list.Add (Serverlist.item(i));
   Result := True;
 Finally
   SQLServer := NULL;
   ServerList := NULL;
 end;
end;

Answer 2

1 不过需要在客户端安装sql，至少需要sqldmo
2 只能列出sql server2000

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  SQLServer:Variant;
  ServerList:Variant;
  i:integer;
begin
 SQLServer := CreateOleObject('SQLDMO.Application');
 ServerList:= SQLServer.ListAvailableSQLServers;
 if serverlist.count<1 then
  begin //如果服务器不存在，则退出系统
     showmessage('服务器不存在，请检测服务器是否已经开机或者服务是否打开了');
     application.Terminate;
  end
 else
  begin
   for i:=1 to serverlist.count do
     listbox1.Items.Add(serverlist.item(i)+'  服务器已经打开，可以正常使用本系统');
  end;
 SQLServer:=NULL;
 serverList:=NULL;
end;

Answer 4

也许你要的是这个unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, ADODB,AdoConEd, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    ADOConnection1: TADOConnection;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
  //注意引用AdoConEd这个单元
  ADOConnection1.Close;
  if EditConnectionString(ADOConnection1) then
     Memo1.Lines.Add(ADOConnection1.ConnectionString)
end;end.

Answer 5

来晚了，不过提问前先到 faq里看一下，我记得里面是有的

Answer 6

1 GetDataBaseNames
2 select * from master..sysdatabases