在Delphi下如何提取SQL Server完整列表-先飞网电脑教程文章

>> 我们从网络和杂志上收集了近100000余篇各类电脑技术、网络技术、软件技术等方面的文章教程,我们的收录原则:不是精华拒不收录!

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

［作者：佚名转贴自：网络转载阅读次数：49 更新时间：2007-6-11 18:08:00 录入：刘光勇］

在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;

上一篇:Delphi下使用指针的简单总结下一篇: 没有了