[函数]procedure GetSQLServerLsit(sSList:TStrings);

最新推荐文章于 2022-03-17 09:20:41 发布

原创最新推荐文章于 2022-03-17 09:20:41 发布 · 1.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#sqlserver #sql server #服务器 #integer #null

软件技术专栏收录该内容

40 篇文章

订阅专栏

博客介绍了获取MS SQLServer服务器列表的作用及实现代码。通过使用ComObj，定义相关变量，创建Ole对象获取可用服务器列表并添加到字符串列表中。若未安装SQL Server则给出提示。

作用：获取MS SQLServer服务器列表

{------------------------------------}
{      MS SQLServer服务器列表        }
{           Uses ComObj              }
{------------------------------------}
procedure GetSQLServerLsit(sSList:TStrings);
var
SQLServer: Variant;
ServerList: Variant;
i, nServers: integer;
begin
sSList.Clear;
try
    SQLServer := CreateOleObject('SQLDMO.Application');
    ServerList := SQLServer.ListAvailableSQLServers;
    nServers := ServerList.Count;
    for i := 1 to nservers do
      sSList.Add(ServerList.Item(i));
    SQLServer := NULL;
    serverList := NULL;
except
    Application.MessageBox('您当前的机器没有安装SQL Server，无法导入SQL Server服务器列表，'+
      #13+#10+'请直接输入SQL Server服务器名称！','信息提示',MB_OK+MB_ICONINFORMATION);
end;
end;