全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:208
推到 Plurk!
推到 Facebook!

如何按下button後將edit.text 存入access資料庫中?

答題得分者是:GrandRURU
shawn850717
一般會員


發表:8
回覆:11
積分:3
註冊:2016-10-11

發送簡訊給我
#1 引用回覆 回覆 發表時間:2017-06-22 17:52:29 IP:61.221.xxx.xxx 未訂閱
請問各位高手 fdconnection1.ExecSQL('insert into [database]([name])values (''edit1.text'')') 
edit1.text 這裡要怎麼寫 讓他不是一串文字而已@@
GrandRURU
站務副站長


發表:234
回覆:1654
積分:1752
註冊:2005-06-21

發送簡訊給我
#2 引用回覆 回覆 發表時間:2017-06-23 10:39:24 IP:59.120.xxx.xxx 未訂閱
字串相加法:string +edit1.text + string

===================引 用 shawn850717 文 章===================
請問各位高手 fdconnection1.ExecSQL('insert into [database]([name])values (''edit1.text'')')
edit1.text 這裡要怎麼寫 讓他不是一串文字而已@@
shawn850717
一般會員


發表:8
回覆:11
積分:3
註冊:2016-10-11

發送簡訊給我
#3 引用回覆 回覆 發表時間:2017-06-23 10:54:09 IP:61.221.xxx.xxx 未訂閱
我寫fdconnection1.ExecSQL('insert into [database]([name])values'+ edit1.text) 
顯示 insert into 陳述式的語法錯誤 @@
請問我哪裡寫錯了嗎?
===================引 用 GrandRURU 文 章===================
字串相加法:string +edit1.text + string

===================引 用 shawn850717 文 章===================
請問各位高手 fdconnection1.ExecSQL('insert into [database]([name])values (''edit1.text'')')
edit1.text 這裡要怎麼寫 讓他不是一串文字而已@@
GrandRURU
站務副站長


發表:234
回覆:1654
積分:1752
註冊:2005-06-21

發送簡訊給我
#4 引用回覆 回覆 發表時間:2017-06-23 11:08:16 IP:59.120.xxx.xxx 未訂閱
Edit1.Text := '("ABC")';
fdconnection1.ExecSQL('insert into [database]([name])values' edit1.text)

試試
===================引 用 shawn850717 文 章===================
我寫fdconnection1.ExecSQL('insert into [database]([name])values' edit1.text)
顯示 insert into 陳述式的語法錯誤 @@
請問我哪裡寫錯了嗎?
===================引 用 GrandRURU 文 章===================
字串相加法:string +edit1.text + string

===================引 用 shawn850717 文 章===================
請問各位高手 fdconnection1.ExecSQL('insert into [database]([name])values (''edit1.text'')')
edit1.text 這裡要怎麼寫 讓他不是一串文字而已@@
shawn850717
一般會員


發表:8
回覆:11
積分:3
註冊:2016-10-11

發送簡訊給我
#5 引用回覆 回覆 發表時間:2017-06-23 11:12:58 IP:61.221.xxx.xxx 未訂閱
我找到這個函數Quotedstr() 這樣跑可以成功
fdconnection1.ExecSQL( 'insert into [database]([name])values' '(' Quotedstr(edit1.Text) ')' );
shawn850717
一般會員


發表:8
回覆:11
積分:3
註冊:2016-10-11

發送簡訊給我
#6 引用回覆 回覆 發表時間:2017-06-23 13:02:08 IP:61.221.xxx.xxx 未訂閱
不好意思 再請教一個問題 比如說在edit1中輸入2 那我的資料庫就輸入兩次edit2的text 
這樣子要怎麼寫?
GrandRURU
站務副站長


發表:234
回覆:1654
積分:1752
註冊:2005-06-21

發送簡訊給我
#7 引用回覆 回覆 發表時間:2017-06-23 13:40:16 IP:59.120.xxx.xxx 未訂閱
if Edit1.Text = '2' then
for 1 to 2 do
insert

大概是這樣
===================引 用 shawn850717 文 章===================
不好意思 再請教一個問題 比如說在edit1中輸入2 那我的資料庫就輸入兩次edit2的text
這樣子要怎麼寫?
shawn850717
一般會員


發表:8
回覆:11
積分:3
註冊:2016-10-11

發送簡訊給我
#8 引用回覆 回覆 發表時間:2017-06-23 13:46:20 IP:61.221.xxx.xxx 未訂閱
非常感謝!!!
系統時間:2017-11-24 21:00:58
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!