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

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

siow

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

阅读量1.2k

点赞数

分类专栏：软件技术文章标签： sqlserver sql server 服务器 integer null

本文链接：https://blog.csdn.net/siow/article/details/380595

版权

软件技术专栏收录该内容

40 篇文章 2 订阅

订阅专栏

作用：获取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;