返回网络中SQLServer列表:

示例如下：

功 能: 返回网络中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;