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 發送簡訊給我 |
|
發表時間：2009-07-28 10:08:31
IP:220.168.xxx.xxx 訂閱
系統時間：2024-04-19 21:56:56
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |