示例如下：

功 能: 返回網絡中SQLServer列表

參 數:

List: 需要填充的TstringList

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

備 注:

版 本:

1.0 2002/10/02 22:44:00

=================================================================}

function GetSQLServerList(List: TstringList): boolean;

var

i: integer;

SQL Server: Variant;

ServerList: Variant;

begin

List.Clear;

try

SQLServer:= CreateOleObject('SQLDMO.application');

ServerList:= SQLServer.ListAvailableSQLServers;

for i:= 1 to Serverlist.Count do

list.Add(Serverlist.item(i));

Result:= True;

Finally

SQLServer:= NULL;

ServerList:= NULL;

end;

end;