熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> SQL Server >> 正文

實例講解如何返回網絡中的SQL Server列表

2013-11-15 14:50:46  來源: SQL Server 
    免費看《Windows CE 嵌入式系統開發從基礎到實踐》

  返回網絡中SQLServer列表:

  示例如下

  功 能: 返回網絡中SQLServer列表

  參 數:

  List: 需要填充的TstringList

  返回值: 成功: True並填充List 失敗 False

  備 注:

  版 本:

   // ::

  =================================================================}
  function GetSQLServerList(List: TstringList): boolean;
  var
  i: integer;
  SQL Server: Variant;
  ServerList: Variant;
  begin
  ListClear;
  try
  SQLServer:= CreateOleObject(SQLDMOApplication);
  ServerList:= SQLServerListAvailableSQLServers;
  for i:= to ServerlistCount do
  listAdd(Serverlistitem(i));
  Result:= True;
  Finally
  SQLServer:= NULL;
  ServerList:= NULL;
  end;
  end;


From:http://tw.wingwit.com/Article/program/SQLServer/201311/22429.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.