实例讲解如何返回网络中的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;