在Delphi下如何提取SQL Server完整列表

中国IT动力,最新最全的IT技术教程

最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档 | 网通镜像

当前位置：> 程序开发 > 数据库开发 > MSSQL Server

在Delphi下如何提取SQL Server完整列表

作者:josephlee0717 时间:2007-06-26 14:57 出处:ccidnet.com 责编:月夜寒箫

摘要：在Delphi下如何提取SQL Server完整列表

在Delphi下如何提取SQL Server完整列表，本文以代码形式提供了多种方法。

var
            i:integer;
            SQLServer: Variant;
            ServerList: Variant;
            begin
            SQLServer:= CreateOleObject('SQLDMO.Application');
            ServerList:= SQLServer.ListAvailableSQLServers;
            for i := 1 to Serverlist.Count do
            ComboBox1.Items.Add(Serverlist.item(i));
            end;

或者不使用ComboBox控件的另一种方式：

Function GetSQLServerList(var List: Tstringlist): boolean;
            var
            i: integer;
            sRetvalue: String;
            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.Add (Serverlist.item(i));
            Result := True;
            Finally
            SQLServer := NULL;
            ServerList := NULL;
            end;
            end;

关闭本页