TADOquery parameter problem? SOS |
答題得分者是:GrandRURU
|
yixiao
一般會員 發表:14 回覆:13 積分:5 註冊:2004-04-26 發送簡訊給我 |
try
subsqlex.Close; subsqlex.SQL.Clear; subsqlex.SQL.Add('update qmswl set ybmc=:ybmc,ybnl=:ybnl,ybxj=:ybxj,ybgd=:ybgd,ybzxg=:ybzxg,nbx=:nbx,dxx=:dxx,qmcj=:qmcj,sgxz=:sgxz,szxz=:szxz,syxz=:syxz,sgenxz=:sgenxz,spxz=:spxz,zxz=:zzx where ybid=:ybid'); subsqlex.Parameters.ParamByName('ybmc').Value:=alltrim(edit1.Text); //--執行時,總提示ybmc未找到,取消ybmc,提示ybnl未找到 ???和解 subsqlex.Parameters.ParamByName('ybnl').Value:=alltrim(edit2.Text); subsqlex.Parameters.ParamByName('ybxj').Value:=alltrim(edit3.Text); subsqlex.Parameters.ParamByName('ybgd').Value:=alltrim(edit4.Text); subsqlex.Parameters.ParamByName('ybzxg').Value:=alltrim(edit5.Text); subsqlex.Parameters.ParamByName('nbx').Value:=alltrim(edit6.Text); subsqlex.Parameters.ParamByName('dxx').Value:=alltrim(edit7.Text); subsqlex.Parameters.ParamByName('qmcj').Value:=alltrim(edit8.Text); subsqlex.Parameters.ParamByName('sgxz').Value:=alltrim(edit9.Text); subsqlex.Parameters.ParamByName('szxz').Value:=alltrim(edit10.Text); subsqlex.Parameters.ParamByName('syxz').Value:=alltrim(edit11.Text); subsqlex.Parameters.ParamByName('sgengxz').Value:=alltrim(edit12.Text); subsqlex.Parameters.ParamByName('spxz').Value:=alltrim(edit13.Text); subsqlex.Parameters.ParamByName('zxz').Value:=alltrim(edit14.Text); subsqlex.Parameters.ParamByName('ybid').Value:=ybid; subsqlex.ExecSQL; showmessage('保存成功!'); finally subsqlex.Close; end; |
GrandRURU
站務副站長 發表:240 回覆:1680 積分:1874 註冊:2005-06-21 發送簡訊給我 |
試試看這樣的語法吧。
subsqlex.ParamByName('ybmc').AsString = alltrim(edit2.Text); 用到Parameters...請問你是要用在Master / Detail上嗎? ===================引 用 yixiao 文 章=================== try subsqlex.Close; subsqlex.SQL.Clear; subsqlex.SQL.Add('update qmswl set ybmc=:ybmc,ybnl=:ybnl,ybxj=:ybxj,ybgd=:ybgd,ybzxg=:ybzxg,nbx=:nbx,dxx=:dxx,qmcj=:qmcj,sgxz=:sgxz,szxz=:szxz,syxz=:syxz,sgenxz=:sgenxz,spxz=:spxz,zxz=:zzx where ybid=:ybid'); subsqlex.Parameters.ParamByName('ybmc').Value:=alltrim(edit1.Text); //--執行時,總提示ybmc未找到,取消ybmc,提示ybnl未找到 ???和解 subsqlex.Parameters.ParamByName('ybnl').Value:=alltrim(edit2.Text); subsqlex.Parameters.ParamByName('ybxj').Value:=alltrim(edit3.Text); subsqlex.Parameters.ParamByName('ybgd').Value:=alltrim(edit4.Text); subsqlex.Parameters.ParamByName('ybzxg').Value:=alltrim(edit5.Text); subsqlex.Parameters.ParamByName('nbx').Value:=alltrim(edit6.Text); subsqlex.Parameters.ParamByName('dxx').Value:=alltrim(edit7.Text); subsqlex.Parameters.ParamByName('qmcj').Value:=alltrim(edit8.Text); subsqlex.Parameters.ParamByName('sgxz').Value:=alltrim(edit9.Text); subsqlex.Parameters.ParamByName('szxz').Value:=alltrim(edit10.Text); subsqlex.Parameters.ParamByName('syxz').Value:=alltrim(edit11.Text); subsqlex.Parameters.ParamByName('sgengxz').Value:=alltrim(edit12.Text); subsqlex.Parameters.ParamByName('spxz').Value:=alltrim(edit13.Text); subsqlex.Parameters.ParamByName('zxz').Value:=alltrim(edit14.Text); subsqlex.Parameters.ParamByName('ybid').Value:=ybid; subsqlex.ExecSQL; showmessage('保存成功!'); finally subsqlex.Close; end; |
yixiao
一般會員 發表:14 回覆:13 積分:5 註冊:2004-04-26 發送簡訊給我 |
|
GrandRURU
站務副站長 發表:240 回覆:1680 積分:1874 註冊:2005-06-21 發送簡訊給我 |
不好意思,因為我用的不是ado
我剛剛用ado稍微測一下,沒有發現你說的狀況 還是說你方便把你的access檔放上來,讓我們研究一下呢? 以下雖然是c 的寫法,但內容應該差距不遠 ADOQuery1->Close(); ADOQuery1->SQL->Clear(); ADOQuery1->SQL->Add("update 員工 set 姓氏=:姓氏"); ADOQuery1->Parameters->ParamByName("姓氏")->Value = "1999999"; ADOQuery1->ExecSQL(); ===================引 用 yixiao 文 章=================== 謝謝,你的回覆。沒用用主/從。就是一個access 還有Tadoquery好像沒有subsqlex.ParamByName('ybmc').AsString = alltrim(edit2.Text);這種用法吧。 |
yixiao
一般會員 發表:14 回覆:13 積分:5 註冊:2004-04-26 發送簡訊給我 |
|
GrandRURU
站務副站長 發表:240 回覆:1680 積分:1874 註冊:2005-06-21 發送簡訊給我 |
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |