教你快速掌握如何返回SQL Server列表

王朝mssql·作者佚名  2008-06-01
窄屏简体版  字體: |||超大  

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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航