使用dbexpress时出现的问题 |
|
缺席
|
|
liangzai
初階會員   發表：77 回覆：91 積分：33 註冊：2004-08-13 發送簡訊給我 |
请教各位前辈：
小弟使用Oracle9i，通过dbexpress来写数据到某一个表中：
procedure TForm1.BitBtn25Click(Sender: TObject);
。。。。。。
SQLStoredProc1.Params[0].AsString:=edit1.Text;
SQLStoredProc1.Params[1].AsString:=dblookupcombobox1.Text;
SQLStoredProc1.Params[2].AsString:=combobox2.Text;
SQLStoredProc1.Params[3].AsString:=dblookupcombobox2.Text;
SQLStoredProc1.Params[4].AsFMTBCD:=strtobcd(edit5.Text);
SQLStoredProc1.ExecProc; errno:=bcdtointeger(SQLStoredProc1.Params[5].AsFMTBCD);
stock:=bcdtointeger(SQLStoredProc1.Params[6].AsFMTBCD);
end;
case errno of
0:messagedlg('Process Successful',mtconfirmation,[mbOK],0);
1:messagedlg('Not Enough Quantity',mtwarning,[mbOK],0);
2:messagedlg('Brand Quota Exceeded',mtwarning,[mbOK],0);
3:messagedlg('Model Quota Exceeded',mtwarning,[mbOK],0);
4:messagedlg('The voucher no. has been assigned to different employee',mtwarning,[mbOK],0);
end;
dm.SQLConnection1.Connected:=false;
dm.SQLConnection1.Connected:=true;
。。。。。。 SQLStoredProc1里面的语句功能就是将界面上几个值进行判断，没有问题就加入到table中去，有问题就会弹出错误信息。 现在的问题是当我加入几条没有问题的记录之后，再继续加入就会出现错误：
'DBX Error:No Mapping for Error Code Found'，这个错误有时出现，有时又没有，疑惑中，请教那位前辈能指点一下，非常感谢！
|
|
liangzai
初階會員 發表：77 回覆：91 積分：33 註冊：2004-08-13 發送簡訊給我 |
發表時間：2005-09-13 10:10:29
IP:218.19.xxx.xxx 未訂閱
系統時間：2024-06-28 18:32:29
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |