區域網路

    要得到區域網路内的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;