取得SQLSERVEREB服务器列表涵数。

最新推荐文章于 2024-09-19 22:54:38 发布

WuChenCan

最新推荐文章于 2024-09-19 22:54:38 发布

阅读量929

点赞数

文章标签：服务器 sqlserver function integer null list

本文链接：https://blog.csdn.net/wuchencan/article/details/37951

版权

function TForm3.InitFrm: Boolean;
begin
GetSQLServerList(ListBox1);
Result:=True;
end;

Function GetSQLServerList(var List: TListBox): boolean;//取得SQLSERVEREB服务器列表涵数。
var
i: integer;
SQLServer: Variant;
ServerList: Variant;
begin
Result := False;
List.Clear;
try
    SQLServer := CreateOleObject('SQLDMO.Application');
    ServerList := SQLServer.ListAvailableSQLServers;
    for i := 1 to Serverlist.Count do
      list.Items.Add (Serverlist.item(i));
      Result := True;
Finally
    SQLServer := NULL;
    ServerList := NULL;
end;
end;