获取局域网内的数据库服务器列表以及各服务器上的数据库列表

解决方案 »

  1.   

    定义很模糊,什么数据库? 所有的 oracle , db2, sybase 都要?
      

  2.   

    ms sql server的数据库有很多例子,搜搜以前的帖子
      

  3.   

    //获取服务器列表
    procedure TfrmRegServer.GetServerName;
    var
       SQLServer:Variant;
       ServerList:Variant;
       i,nServers:integer;
    begin
      SQLServer := CreateOleObject('SQLDMO.Application');
      ServerList:= SQLServer.ListAvailableSQLServers;
      nServers:=ServerList.Count;
      cbServerName.Properties.Items.Clear;
      for i := 1 to nservers do
        cbServerName.Properties.Items.Add(ServerList.Item(i));
      SQLServer:=NULL;
      serverList:=NULL;
    end;
    //获取服务器上的数据库列表select name from sysdatabases order by name