{=================================================================
功 能: 返回网络中SQLServer列表
参 数:
List: 需要填充的TstringList
返回值: 成功: True,并填充List 失败 False
备 注:
版 本:
1.0 2002/10/02 22:44:00
=================================================================}
function GetSQLServerList(List: TstringList): boolean;
var
i: integer;
SQLServer: 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;