如何得到本地及网络（局域网）中所有SQL Server的名称？？？？？？？？？？？？？？？？？？？？

Question

如题，谢谢。

Answer 1

转：没试过
  如何显示装有SQL SEVER2000的机器名 
如有三台电脑a,b,c,a和b装有SQL SEVER2000,如何在一个列表里显示a和b?： qiubolecn(来自差生市)两个方法，一个是用netenumserver它的servertype为SV_TYPE_SQLSERVER二是用procedure TForm1.Button1Click(Sender: TObject);varSQLServer:Variant;ServerList:Variant;i,nServers:integer;sRetValue:String;beginSQLServer := CreateOleObject('SQLDMO.Application');ServerList:= SQLServer.ListAvailableSQLServers;nServers:=ServerList.Count;for i := 1 to nservers doListBox1.Items.Add(ServerList.Item(i));SQLServer:=NULL;serverList:=NULL;end;　
 

Answer 2

超级猛料2003中网络与通信编程中tcp/ip中函数大公开中有。
你可以在csdn中down个超级猛料2003

Answer 3

超级猛料2003
{=================================================================功 能: 返回网络中SQLServer列表参 数:List: 需要填充的List返回值: 成功: True,并填充List 失败 False备 注:版 本:1.0 2002/10/02 22:44:00=================================================================}Function GetSQLServerList(var List: Tstringlist): boolean;vari: integer;sRetValue: String;SQLServer: Variant;ServerList: Variant;beginResult := False;List.Clear;trySQLServer := CreateOleObject('SQLDMO.Application');ServerList := SQLServer.ListAvailableSQLServers;for i := 1 to Serverlist.Count dolist.Add (Serverlist.item(i));Result := True;FinallySQLServer := NULL;ServerList := NULL;end;end;{=================================================================

Answer 4

我知道在ms sql server中有一个API, 是C形式的，具体名字忘记了，好像是dbservername，肯定是可以查到的，但是如何在Delphi中调用她呢？？？？

Answer 5

uses comobj
....
procedure Tfrmlogin.BitBtn3Click(Sender: TObject);
var
  SQLServer,ServerList:Variant;
  i,nServers:integer;
begin
  SQLServer := CreateOleObject('SQLDMO.Application');
  ServerList:= SQLServer.ListAvailableSQLServers;
  nServers:=ServerList.Count;
  for i := 1 to nservers do
    cmbserver.Items.Add(ServerList.Item(i));
  SQLServer:=NULL;
  serverList:=NULL;
end;

Answer 6

谢谢大家，我试过之后一定给分。ps:还有个问题是如何调用sql server的API呢？我知道他有个API是可以查询的。