請問我想自訂一個有點類似設定ODBC之SQL Link之 可自動搜尋SQL主機名稱與有哪些資料庫,並填入用Combox中供選擇 查閱資料庫中有關於讀取SQL主機之範例,但不知如何使用 http://delphi.ktop.com.tw/topic.php?topic_id=42200 另又如何取得SQL有哪些資料庫供選擇

1.

procedure TForm1.Button1Click(Sender: TObject);
begin
  GetSQLList(ComboBox1.Items);
end;    Function GetSQLList(var List: Tstringlist): boolean;
var
  i: integer;
  SQLServer: Variant;
  ServerList: Variant;
  Resultvalue: boolean;
begin
  Resultvalue := False;
  List.Clear;
  try
    SQLServer := CreateOleObject('SQLDMO.Application');
    ServerList := SQLServer.ListAvailableSQLServers;
    for i := 1 to Serverlist.Count do 
      list.Add (Serverlist.item(i));
    Resultvalue := True;
  Finally
   SQLServer := NULL;
    ServerList := NULL;
  end;      Result:=Resultvalue;
end;

2.

begin
  ADOConnection.GetTableNames(ComboBox2.Items);
end;

--- Everything I say is a lie. --<-<-<@

謝謝版主的指教,小弟不才 關於該段 GetSQLList(ComboBox1.Items); 不太名聊其意 [Error] SQL1.pas(187): Types of actual and formal var parameters must be identical 另又如何將有哪些資料庫傳遞給ComboBox2.Items 供ADOConnection.GetTableNames(ComboBox2.Items);取得 謝謝

1.

var sl: TStringList;
begin
  sl := TStringList.Create;
  try
    GetSQLList(sl);
    ComboBox1.Items.Assign(sl);
  finally
    sl.Free;
  end;
end;

2.失禮! 看錯問題了! 要取得 SQL Server 內所有的 Database 可利用 TSession.GetDatabaseNames Delphi 內的 help 有範例 --- Everything I say is a lie. --<-<-<@

可以幫我解釋該Function之意 為何GetSQLList之結果為boolean; 又結果會導致'無效的類別字串'

無效的類別字串:  必須先安裝 SQLDMO 才能使用此功能, 也就是須先安裝 SQL Server 或 MSDE 參考: http://groups.google.com.tw/groups?hl=zh-TW&lr=&ie=UTF-8&inlang=zh-TW&th=abaef9831f16999b&rnum=1    --- Everything I say is a lie. --<-<-<@