大家好，我想請問一下，要是我有一個query1裡面的mysql語法為'show tables;' 目的：將某個資料庫的所有table，放入combobox1裡面。 那我在寫 Query1.Active:=true; while not Query1.Eof do begin ComboBox1.Items.Add( ??????); Query1.Next; end; Query1.Close; -->?????裡應該放什麼值呢？？請幫我解答！謝謝！^^

請參考 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=23675

If you do not know the fieldname, try using the field index, e.g. Query1.Fields[0].AsString

我把程式寫成以下： qr_NTIS.Close; qr_NTIS.SQL.Clear; qr_NTIS.SQL.Add('show tables;'); qr_NTIS.Open; ComboBox1.Clear; while not qr_NTIS.Eof do begin ComboBox1.Items.Add(qr_NTIS.Fields[0].AsString); end; qr_NTIS.Close; 但還是沒有值？？是語法錯誤嗎？還是觀念？？

I don't have access to mySQL, have you tried the sql statement inside SQL Explorer?

上面 MySQL 的部份你不用改吧 ... 下面改就好了 如下: qr_NTIS.Active:=true; while not qr_NTIS.Eof do begin ComboBox1.Items.Add(qr_NTIS.Fields[0].AsString); end; qr_NTIS.Close;

FrederickPau先生你好，不曉的為何照你的方式改，情況還是沒改善！^^|| william先生你是指我有沒有在mysql那測試過嗎？？還是什麼意思！英文有點不好，不好意思！呵~^^||

你本來的 MySQL 資料在 Active 設為 True 之後, 有沒有資料呢?

引言:我把程式寫成以下： qr_NTIS.Close; qr_NTIS.SQL.Clear; qr_NTIS.SQL.Add('show tables;'); qr_NTIS.Open; ComboBox1.Clear; while not qr_NTIS.Eof do begin ComboBox1.Items.Add(qr_NTIS.Fields[0].AsString); end; qr_NTIS.Close;

這裡語法對嗎?????--紅色部分 ComboBox1.Items.Add(qr_NTIS.Fields.Fields[0].AsString);--藍色部分

引言:william先生你是指我有沒有在mysql那測試過嗎？？還是什麼意思！英文有點不好，不好意思！呵~^^||

What is the result in executing the statement show tables; insides SQL Explorer?

william先生，我有測試過那個sql語法，結果是對的，出來的是我資料庫的所有table名稱，那也是我要的結果！謝謝！

您應該是用 TDatabase 元件來連結 MySQL 的吧 如果是的話, 我想您要的功能是如下:

var
  MyStringList: TStringList;
begin
  MyStringList := TStringList.Create;
  try
    Database1.Session.GetTableNames('YourAlias', '', False, False, MyStringList);
    { Add the table names to a list box }
    ComboBox1.Items = MyStringList;
  finally
    MyStringList.Free;
  end;
end;

詳細的用法參考 TSession.GetTableNames 的 Help -- Everything I say is a lie. 發表人 - hagar 於 2002/12/11 13:14:05

引言: william先生，我有測試過那個sql語法，結果是對的，出來的是我資料庫的所有table名稱，那也是我要的結果！謝謝！

qr_NTIS.Close; qr_NTIS.SQL.Clear; qr_NTIS.SQL.Add('show tables;'); qr_NTIS.Open; ComboBox1.Clear; while not qr_NTIS.Eof do begin ComboBox1.Items.Add(qr_NTIS.Fields[0].AsString); next; end; qr_NTIS.Close;

你們好！^^|| 不曉得什麼原因，只要一執行此動作，程式即當掉！>< 我是將指令放在combobox的onchange事件，或是另外一個button的click事件，都會導致程式當掉！><不曉得為何？ ps.基本上sql元件，改成true時，會有資料！

如果您是用 ko 兄那段程式, 是會造成無窮迴圈的

begin
  qr_NTIS.Close;
  qr_NTIS.SQL.Clear;
  qr_NTIS.SQL.Add('show tables;');
  qr_NTIS.Open;
  ComboBox1.Clear;
  while not qr_NTIS.Eof do
  begin
    ComboBox1.Items.Add(qr_NTIS.Fields[0].AsString);
    next; // 這行有問題, 改成 qr_NTIS.Next;
  end;
  qr_NTIS.Close;
end;

-- Everything I say is a lie. 發表人 - hagar 於 2002/12/11 20:05:38

呵呵~ 真歹勢!!! 其實我測試是用以下code with qry do begin close; sql.clear; sql.add('show tables'); open; while qry.iseof do begin ComboBox1.Items.Add(qry.Fields[0].AsString); next; end; end;

------
======================
昏睡~
不昏睡~
不由昏睡~

嗯！我可以抓到值了！謝謝hagar先生，及各位的大力幫助！^^