科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道在Delphi下如何提取SQL Server完整列表

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

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

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

作者:josephlee0717 来源:赛迪网IT博客 2007年8月29日

关键字: SQL Server SQL Server 各版本 Delphi 数据库

  • 评论
  • 分享微博
  • 分享邮件

在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;
    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章