如附圖     發表人 - qq_911228 於 2003/10/28 21:27:36

qq_911228 你好:    1. 問題待查...(個人初步覺得從 Registry 取得)    更正連結 2. 問題請參考 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=39136 發表人 -

引言: qq_911228 你好: 1. 問題待查...(個人初步覺得從 Registry 取得) 2. 問題請參考 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=39666

你給我的超連結很像是錯的~

要找出區網中的 mssql server 可以參考這篇: http://delphi.ktop.com.tw/topic.php?topic_id=35971 server 中什麼資料庫的部分可以查閱 INFORMATION_SCHEMA.SCHEMATA view select * from INFORMATION_SCHEMA.SCHEMATA

列出SQL Server裡的資料庫名稱： USE master SELECT Name From sysdatabases ORDER BY dbid    

獲取資料庫的名稱 user master sp_databases procedure GetServers; var i:integer; sRetValue:String; ErrorMsg:string; SQLServer:Variant; begin try SQLServer := CreateOleObject('SQLDMO.Application'); ServerList:= SQLServer.ListAvailableSQLServers; except on e:exception do begin ErrorMsg:=e.Message #13; errormsg:=errormsg '原因：可能因為你的機器上沒有安裝SQL SERVER或SQL SERVER客戶端程序.'; application.MessageBox(pchar(errormsg) ,'錯誤提示',mb_ok or mb_iconerror); exit; end; end; nServers:=ServerList.Count; end;

上面的程式碼有誤 經我明察暗訪 程式範例在這裡 http://www.cobbler.idv.tw/dvbbs/dispbbs.asp?boardid=2&id=183 -- 聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

引言: 列出SQL Server裡的資料庫名稱： USE master SELECT Name From sysdatabases ORDER BY dbid

對不起～～ 如果我要把某一ｓｅｒｖｅｒ上的資料庫全都秀在ｌｉｓｔｂｏｘ， 是否可以請您把程式碼寫給我， 因為我對上面的用法不懂， 謝謝。

procedure TForm1.Button1Click(Sender: TObject);
begin
    ADODataSet1.CommandText:='USE master SELECT Name From sysdatabases ORDER BY dbid';
    ADODataSet1.Active:=true;
    while not ADODataSet1.Eof do
    begin
        listbox1.Items.Add(ADODataSet1.Fields[0].Text);
        ADODataSet1.Next;
    end;
    ADODataSet1.Close;
end;