局域网

    要得到局域网内的sqlserver,可使用下面程序
var
  SQLServer: Variant;
  ServerList: Variant;
  i, nServers: integer;
begin
  lst_SQLSrvList.Items.Clear;
  try
    SQLServer := CreateOleObject('SQLDMO.Application');
    ServerList := SQLServer.ListAvailableSQLServers;
    nServers := ServerList.Count;
    for i := 1 to nservers do
      lst_SQLSrvList.Items.Add(ServerList.Item(i));
    SQLServer := NULL;
    serverList := NULL;
  except
    Application.MessageBox('您当前的机器没有安装SQL Server，无法导入SQL Server服务器列表，' + #13 + #10 + '请直接输入SQL Server服务器名称！', '信息提示', MB_OK + MB_ICONINFORMATION);
  end;