科技行者

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

知识库

知识库 安全导航

至顶网软件频道在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;
    • 评论
    • 分享微博
    • 分享邮件
    闂傚倷绶¢崣搴ㄥ窗閺囩偐鏋庨柕蹇嬪灪婵ジ鏌曡箛瀣偓鏍綖閿燂拷

    濠电姷顣介埀顒€鍟块埀顒€缍婇幃妯诲緞閹邦剛鐣洪梺闈浥堥弲婊勬叏濠婂牊鍋ㄦい鏍ㄧ〒閹藉啴鏌熼悜鈺傛珚鐎规洘宀稿畷鍫曞煛閸屾粍娈搁梻浣筋嚃閸ㄤ即宕㈤弽顐ュС闁挎稑瀚崰鍡樸亜閵堝懎濮┑鈽嗗亝濠㈡ê螞濡ゅ懏鍋傛繛鍡樻尭鐎氬鏌嶈閸撶喎顕i渚婄矗濞撴埃鍋撻柣娑欐崌閺屾稑鈹戦崨顕呮▊缂備焦顨呴惌鍌炵嵁鎼淬劌鐒垫い鎺戝鐎氬銇勯弽銊ф噥缂佽妫濋弻鐔碱敇瑜嶉悘鑼磼鏉堛劎绠為柡灞芥喘閺佹劙宕熼鐘虫緰闂佽崵濮抽梽宥夊垂閽樺)锝夊礋椤栨稑娈滈梺纭呮硾椤洟鍩€椤掆偓閿曪妇妲愰弮鍫濈闁绘劕寮Δ鍛厸闁割偒鍋勯悘锕傛煕鐎n偆澧紒鍌涘笧閹瑰嫰鎼圭憴鍕靛晥闂備礁鎼€氱兘宕归柆宥呯;鐎广儱顦伴崕宥夋煕閺囥劌澧ù鐘趁湁闁挎繂妫楅埢鏇㈡煃瑜滈崜姘跺蓟閵娧勵偨闁绘劕顕埢鏇㈡倵閿濆倹娅囨い蹇涗憾閺屾洟宕遍鐔奉伓

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