好文章大家重温，（如何获得sql当前所有的服务器名），现在怎么才能举一反三呢？

Question

下面代码获得服务器列表（copy）FAQ里面的代码
procedure  TForm1.Button1Click(Sender:  TObject);
var
     SQLServer:Variant;
     ServerList:Variant;
     i,nServers:integer;
     sRetValue:String;
begin
   SQLServer  :=  CreateOleObject('SQLDMO.Application');
   ServerList:=SQLServer.
   ServerList:=  SQLServer.ListAvailableSQLServers;
   nServers:=ServerList.Count;
   for  i  :=  1  to  nservers  do
           ListBox1.Items.Add(ServerList.Item(i));
   SQLServer:=NULL;
   serverList:=NULL;
end;
那我们肯定可以获得一个服务器里面有那些数据库了~具体怎么实现？
这段代码想在help里面找点头绪都不行，想举一反三该怎么办~

Answer 1

这样procedure TForm1.Button5Click(Sender: TObject);
var
     SQLServer:Variant;
     ServerList:Variant;
     DataBaseList:Variant;
     i,j,nServers,nDataBase:integer;
     sRetValue:String;
begin
   SQLServer  :=  CreateOleObject('SQLDMO.Application');
   ServerList:=  SQLServer.ListAvailableSQLServers;   nServers:=ServerList.Count;
   for  i  :=  1  to  nservers  do
     begin
       ListBox1.Items.Add(ServerList.Item(i));
       DataBaseList:= SqlServer.ListInstalledInstances(ServerList.Item(i));
       nDataBase:=DataBaseList.Count;
       for j:=1 to nDataBase do
         Memo3.Lines.Add(DataBaseList.Item[j]);
     end;
   SQLServer:=NULL;
   serverList:=NULL;
   DataBaseList:=null;
end;

Answer 2

哇塞~~good~~~~~
这些咚咚在哪儿找来的啊~