線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1612
推到 Plurk!
推到 Facebook!

請問讀取DB內的所有table name 的寫法~

 
littlefactor
一般會員


發表:24
回覆:25
積分:9
註冊:2002-07-11

發送簡訊給我
#1 引用回覆 回覆 發表時間:2002-07-15 13:39:09 IP:61.56.xxx.xxx 未訂閱
請問高手們一個問題~ 我想在form開啟時,listbox內的item為正連線DB內所有的table name,可讓使用者點選,我仿照讀取table內所有field的寫法,改寫為以下程式,但產生 undeclared indentifier:'dbDefs'的錯誤訊息,我知道一定是語法錯誤,但是 我不知道正確寫法,請問各位高手是否知道呢?! procedure TForm3.FormActivate(Sender: TObject); var i: integer; begin form1.ADOConnection1.dbDefs.update; //更新DB資料 for i := 0 to form1.ADOConnection1.dbDefs.count - 1 do //DB的每一個table各跑一次 begin with form1.ADOConnection1.dbDefs.Items[i] do Listtable.Items.add(Name); //取出table名稱 end; end;
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2002-07-15 13:45:20 IP:211.22.xxx.xxx 未訂閱
1.TADOConnection 好像沒有 dbDefs 這個屬性 2.TADOConnection 取得所有 Table Name 的方法如下:    (其中第二個參數表示要不要將 SystemTables 也列入)
begin
  ADOConnection1.GetTableNames(ListBox1.Items, False);
end;
littlefactor
一般會員


發表:24
回覆:25
積分:9
註冊:2002-07-11

發送簡訊給我
#3 引用回覆 回覆 發表時間:2002-07-15 13:53:09 IP:203.74.xxx.xxx 未訂閱
謝謝hagar大哥的協助, 我想請問一下像一些比較少用的函數,您是怎麼查知的..
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#4 引用回覆 回覆 發表時間:2002-07-15 14:26:21 IP:211.22.xxx.xxx 未訂閱
引言: 謝謝hagar大哥的協助, 我想請問一下像一些比較少用的函數,您是怎麼查知的..
1.查元件的 Help, 看它的 method 時 看有沒有 method 名稱是您要找的功能 2.其它就是多看別人的問題, 前輩們是怎麼解答的 久而久之, 會的東西就會越來越多啦。
Jasonwong
版主


發表:49
回覆:931
積分:581
註冊:2006-10-27

發送簡訊給我
#5 引用回覆 回覆 發表時間:2002-07-15 14:27:01 IP:211.21.xxx.xxx 未訂閱
引言: 謝謝hagar大哥的協助, 我想請問一下像一些比較少用的函數,您是怎麼查知的..
我想也沒有特別管道去知道這些函數啦...我認為平常就要養成多看...多問...多查的習慣...尤其是DELPHI所附的HELP(雖然是原文)...沒有任何一本書寫的比DELPHI 的HELP還要詳盡了... 你只要在ADOCONNECTION元件點一下再按F1...你就可以查到此元件所以方法與屬性了... 但是...請記住一點...寫程式的人不可跟一般人一樣對英文的東西產生恐排斥...因為任何程式語言本身就是英文...有點耐心...看久就懂了...
------
聰明的人,喜歡猜心;雖然每次都猜對了,卻失去了自己的心
傻氣的人,喜歡給心;雖然每次都被笑了,卻得到了別人的心
littlefactor
一般會員


發表:24
回覆:25
積分:9
註冊:2002-07-11

發送簡訊給我
#6 引用回覆 回覆 發表時間:2002-07-15 14:42:50 IP:203.74.xxx.xxx 未訂閱
感謝兩位前輩的經驗談,對於delphi我是新手,以前就對delphi有興趣, 但沒好好去學.現在工作有使用到,能夠深入去研究(其實是被逼...), 以及有園地可以和其他同好研究,真的感到很高興~
Jasonwong
版主


發表:49
回覆:931
積分:581
註冊:2006-10-27

發送簡訊給我
#7 引用回覆 回覆 發表時間:2002-07-15 14:49:51 IP:211.21.xxx.xxx 未訂閱
引言: 感謝兩位前輩的經驗談,對於delphi我是新手,以前就對delphi有興趣, 但沒好好去學.現在工作有使用到,能夠深入去研究(其實是被逼...), 以及有園地可以和其他同好研究,真的感到很高興~
也不曉得站長的聊天室用好沒有...如果用好的話...到時我們就可以來個線上即時教學了...嘻... 站長加油...
------
聰明的人,喜歡猜心;雖然每次都猜對了,卻失去了自己的心
傻氣的人,喜歡給心;雖然每次都被笑了,卻得到了別人的心
領航天使
站長


發表:12216
回覆:4186
積分:4084
註冊:2001-07-25

發送簡訊給我
#8 引用回覆 回覆 發表時間:2002-07-15 15:22:35 IP:192.168.xxx.xxx 未訂閱
引言:
引言: 感謝兩位前輩的經驗談,對於delphi我是新手,以前就對delphi有興趣, 但沒好好去學.現在工作有使用到,能夠深入去研究(其實是被逼...), 以及有園地可以和其他同好研究,真的感到很高興~
也不曉得站長的聊天室用好沒有...如果用好的話...到時我們就可以來個線上即時教學了...嘻... 站長加油...
還沒好,站長晚上再努力看看! ~~~Delphi K.Top討論區站長~~~
------
~~~Delphi K.Top討論區站長~~~
hxf_wolf
一般會員


發表:7
回覆:38
積分:9
註冊:2002-03-14

發送簡訊給我
#9 引用回覆 回覆 發表時間:2002-07-16 08:49:54 IP:61.175.xxx.xxx 未訂閱
GetFieldNames(listbox1.Items);好像把所有表都取出來了,用MSsql的話會取出很多system表. 我是用 adoq.Close; adoq.SQL.Add('select * from sysobjects where xtype=''' 'u'''); adoq.Open; 取出表名.請各位大人多多指教!
------
Happy Coding
系統時間:2024-04-29 6:43:08
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!