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

問有關memo傳到資料庫裡

尚未結案
paa
初階會員


發表:50
回覆:101
積分:30
註冊:2005-02-01

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-08-27 19:50:00 IP:210.70.xxx.xxx 未訂閱
在memo上打 123 456 789 這三行文字,儲存到資料表裡的同一個欄位,三行。 var i,j,k:integer; a: array[0..100] of String; s:string; begin with ADOQuery1 do begin Close; SQL.Clear; SQL.Add('INSERT INTO test([two]) VALUES'); SQL.Add('(:two)'); i := Memo2.Lines.Count; //算行數 for j:=0 to i do begin a[j]:=memo2.Lines.Text; Parameters.ParamValues['two']:=a[j]; end; ExecSQL; end; end;可是只會儲存123文字到資料表裡,請高手幫幫我
bighm
一般會員


發表:5
回覆:21
積分:15
註冊:2006-10-29

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-08-27 20:31:18 IP:220.130.xxx.xxx 未訂閱
好像不用這麼麻煩的樣子,如果要存入整個memo2 的文字 直接把 Memo2.text 存進去就好了
paa
初階會員


發表:50
回覆:101
積分:30
註冊:2005-02-01

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-08-28 17:41:44 IP:210.70.xxx.xxx 未訂閱
你是指像這樣嗎?可是這樣也只能傳第一行到資料庫裡耶! var i,j,k:integer; a: array[0..100] of String; s:string; begin with ADOQuery1 do begin Close; SQL.Clear; SQL.Add('INSERT INTO test([two]) VALUES'); SQL.Add('(:two)'); // i := Memo2.Lines.Count; //算行數 // for j:=0 to i do begin // a[j]:=memo2.Lines.Text; Parameters.ParamValues['two']:=memo2.Lines.Text; // end; ExecSQL; end; end;可否高手教教我?
paa
初階會員


發表:50
回覆:101
積分:30
註冊:2005-02-01

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-08-28 18:18:10 IP:210.70.xxx.xxx 未訂閱
謝謝你,我已經想辦法解決出來了,不過還是很謝謝你,希望有機會在幫我解答。
系統時間:2024-06-15 19:32:25
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!