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

DBgrid 和SQL的配合...

尚未結案
nachi
初階會員


發表:40
回覆:116
積分:31
註冊:2003-02-26

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-03-08 10:47:30 IP:218.165.xxx.xxx 未訂閱
我用sql builder 寫了一個查詢程式 SELECT CustomerNM FROM "customer.db" Customer WHERE CustomerNM LIKE ''%台%'' 在builder裡能正常查詢 可是當我把程式寫到form裡就沒有作用了,執行查詢dbgrid呈現空白也沒有error。 query1.SQL.Add('SELECT CustomerNM FROM "customer.db" Customer WHERE CustomerNM LIKE ''%' edit1.text '%'' '); 後來我試原封不動搬過去測,也是一樣,dbgrid呈現空白,也沒有error。 query1.SQL.Add('SELECT CustomerNM FROM "customer.db" Customer WHERE CustomerNM LIKE ''%台%'' '); 請問是dbgrid的屬性少設了什麼東西嗎? 還是其它地方有問題呢? 請各位高手們指點....
P.D.
版主


發表:603
回覆:4038
積分:3874
註冊:2006-10-31

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-03-08 10:50:20 IP:61.66.xxx.xxx 未訂閱
引言: 我用sql builder 寫了一個查詢程式 SELECT CustomerNM FROM "customer.db" Customer WHERE CustomerNM LIKE ''%台%'' 在builder裡能正常查詢 可是當我把程式寫到form裡就沒有作用了,執行查詢dbgrid呈現空白也沒有error。 query1.SQL.Add('SELECT CustomerNM FROM "customer.db" Customer WHERE CustomerNM LIKE ''%' edit1.text '%'' '); 後來我試原封不動搬過去測,也是一樣,dbgrid呈現空白,也沒有error。 query1.SQL.Add('SELECT CustomerNM FROM "customer.db" Customer WHERE CustomerNM LIKE ''%台%'' '); 請問是dbgrid的屬性少設了什麼東西嗎? 還是其它地方有問題呢? 請各位高手們指點....
是不是你的 dbgrid 的 datasource 忘了指定?
chih
版主


發表:48
回覆:1186
積分:639
註冊:2002-04-02

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-03-08 10:51:08 IP:61.216.xxx.xxx 未訂閱
改為這樣試看看 query1.SQL.Add('SELECT CustomerNM FROM customer WHERE CustomerNM LIKE ' #39'%' edit1.text '%' #39); TRY TRY SEE
nachi
初階會員


發表:40
回覆:116
積分:31
註冊:2003-02-26

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-03-08 11:02:08 IP:218.165.xxx.xxx 未訂閱
P.D 我有指定DATASOURCE CHIH 我把你的程式直接貼上,也是沒有作用,依舊無反應...
chih
版主


發表:48
回覆:1186
積分:639
註冊:2002-04-02

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-03-08 11:14:18 IP:61.216.xxx.xxx 未訂閱
你把前後語法post上來看看..
引言: P.D 我有指定DATASOURCE CHIH 我把你的程式直接貼上,也是沒有作用,依舊無反應...
nachi
初階會員


發表:40
回覆:116
積分:31
註冊:2003-02-26

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-03-08 11:18:49 IP:218.165.xxx.xxx 未訂閱
程式如下: procedure TForm1.Button8Click(Sender: TObject); begin query1.SQL.Clear; query1.SQL.Add('SELECT CustomerNM FROM customer WHERE CustomerNM LIKE ' #39'%' edit1.text '%' #39); end;
chih
版主


發表:48
回覆:1186
積分:639
註冊:2002-04-02

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-03-08 11:37:52 IP:61.216.xxx.xxx 未訂閱
程式如下:    procedure TForm1.Button8Click(Sender: TObject); begin    query1.SQL.Clear;    query1.SQL.Add('SELECT CustomerNM FROM customer WHERE CustomerNM LIKE '+#39'%'+edit1.text+'%'+#39); query1.open;//你少了這一行 end;
nachi
初階會員


發表:40
回覆:116
積分:31
註冊:2003-02-26

發送簡訊給我
#8 引用回覆 回覆 發表時間:2003-03-08 13:43:06 IP:218.165.xxx.xxx 未訂閱
原來沒有close也要open啊@@ 因為從沒在書上看過,所以不知道~ 我加了query1.open後,出現error,它說找不到tdbedit1的CustomerNO(這是我的索引鍵),那我是要把索引鍵拿掉還是有其它方法可修改呢?
chih
版主


發表:48
回覆:1186
積分:639
註冊:2002-04-02

發送簡訊給我
#9 引用回覆 回覆 發表時間:2003-03-08 13:49:28 IP:61.216.xxx.xxx 未訂閱
更正一下 procedure TForm1.Button8Click(Sender: TObject); begin query1.Close;//你少了這一行 query1.SQL.Clear; query1.SQL.Add('SELECT CustomerNM FROM customer WHERE CustomerNM LIKE ' #39'%' edit1.text '%' #39); query1.open;//你少了這一行 你可以把索引鍵拿掉,但不知道你的table結構,所以你自己試看看了... TRY TRY SEE end; 發表人 - chih 於 2003/03/08 13:55:34
nachi
初階會員


發表:40
回覆:116
積分:31
註冊:2003-02-26

發送簡訊給我
#10 引用回覆 回覆 發表時間:2003-03-09 11:26:35 IP:218.165.xxx.xxx 未訂閱
CHIH小小,我把QUERY1.CLOSE也補上了,但還是出現一樣的錯誤訊息,後來我把索引鍵拿掉再試,也是出現一樣得錯誤訊息。 我因為FORMDEYPRESS搞不定已把檔案上傳,你要不要順便看一下程式,會不會比較容易發現問題所在,說不定是我轉述的不夠清楚...
系統時間:2024-07-01 9:37:27
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!