| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> 数据库专区 斑竹:liumazi,waterstone | |||||
| 作者： |
|
2003/11/29 12:53:41 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 这是一个提交记录给数据为的问题: 数据库是SQL2000,OS是win2k,使用的是ＡＤＯ连接：代码如下： 预实现功能：如果action_cd='m'则新加，若action_cd='m' 则修改.编译通过．在实行操作时出现时 'Querytemp Parameter 邮政编号 not found; 是什么意思，大家帮帮我好吗？ if Mainform.Action_Cd='n' then begin with DM.QueryTemp do close; Sql.Clear; Sql.Add('insert into Customer(邮政编号,公司名称,地址,'); SQl.Add('部门,联系人,开户行,电话1,客户代码,传真,'); SQL.Add('手机号,税号,EMAIL,互联网址,帐号)'); SQL.Add('values(:邮政编号,:公司名称,:地址,'); SQL.Add(':部门,:联系人,:开户行,:电话1,:客户代码,:传真,'); SQL.Add(':手机号,:税号,:EMAIL,:互联网址,:帐号)'); Parameters.ParamValues['邮政编码']:=edit1.text; Parameters.ParamValues['公司名称']:=edit2.text; Parameters.ParamValues['地址']:=edit3.text; Parameters.ParamValues['部门']:=edit4.Text; Parameters.ParamValues['联系人']:=edit5.Text; Parameters.ParamValues['开户行']:=edit6.text; Parameters.ParamValues['电话1']:=edit7.Text; Parameters.ParamValues['客户代码']:=edit8.Text; Parameters.ParamValues['传真']:=edit9.Text; Parameters.ParamValues['手机号']:=edit10.Text; Parameters.ParamValues['税号']:=edit11.Text; Parameters.ParamValues['EMAIL']:=edit12.Text; Parameters.ParamValues['互联网址']:=edit13.Text; Parameters.ParamValues['帐号']:=edit14.Text; Prepared:=true; EXECSQL; end; end else if Mainform.Action_Cd='m' then begin with DM.QueryTemp do begin Close; Sql.Clear; Sql.Add('Update Customer set 邮政编号=:邮政编码,公司名称=:公司名称,地址=:地址,'); Sql.Add('部门=:部门,联系人=:联系人,开户行=:开户行,电话1=:电话1,客户代码=:客户代码,'); SQL.Add('传真=:传真,手机号=:手机号,税号=:税号,EAMIL=:EMAIL,互联网址=:互联网址,帐号=:帐号'); SQL.Add('where 编号=:ID'); Parameters.ParamValues['邮政编号']:=edit1.text; Parameters.ParamValues['公司名称']:=edit2.text; Parameters.ParamValues['地址']:=edit3.text; Parameters.ParamValues['部门']:=edit4.Text; Parameters.ParamValues['联系人']:=edit5.Text; Parameters.ParamValues['开户行']:=edit6.Text; Parameters.ParamValues['电话1']:=edit7.Text; Parameters.ParamValues['客户代码']:=edit8.Text; Parameters.ParamValues['传真']:=edit9.Text; Parameters.ParamValues['手机号']:=edit10.Text; Parameters.ParamValues['税号']:=edit11.Text; Parameters.ParamValues['EMAIL']:=edit12.Text; Parameters.ParamValues['互联网址']:=edit13.Text; Parameters.ParamValues['帐号']:=edit14.Text; Parameters.ParamValues['编号']:=Dm.Customer.FieldByName('编号').asstring; Prepared:=true; ExecSQL; ---------------------------------------------- - |
|||||
| 作者： |
|
2003/11/29 13:00:37 | ||||
| 1楼： | Parameters.ParamByName('邮政编码').Value:=edit1.Text; ----------------------------------------------  充电..........
|
|||||
| 作者： |
|
2003/11/29 13:46:42 | ||||
| 2楼： | 不行, 如下语句: Parameters.Parambyname('....').value:=edit1.text; Parameters.Items[0].value:=edit1.text; 都不行 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/11/29 14:32:05 | ||||
| 3楼： | cjrb不是说了，你的代码有输入错误！ ---------------------------------------------- - |
|||||
| 作者： |
|
2003/11/29 19:17:47 | ||||
| 4楼： | 邮政编码<->邮政编号 ---------------------------------------------- 充电..........
|
|||||
| 作者： |
|
2003/12/8 17:11:48 | ||||
| 5楼： | 是不是低级错误呀！~！ 有没有新建参数呀~！用的这么慌！！ 还是先clear一下把！1 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/12/8 17:44:52 | ||||
| 6楼： | Parameters.ParamValues['邮政编号'].value:=edit1.text; Parameters.ParamValues['公司名称'].value:=edit2.text; Parameters.ParamValues['地址'].value:=edit3.text; Parameters.ParamValues['部门'].value:=edit4.Text; Parameters.ParamValues['联系人'].value:=edit5.Text; Parameters.ParamValues['开户行'].value:=edit6.Text; Parameters.ParamValues['电话1'].value:=edit7.Text; Parameters.ParamValues['客户代码'].value:=edit8.Text; Parameters.ParamValues['传真'].value:=edit9.Text; Parameters.ParamValues['手机号'].value:=edit10.Text; Parameters.ParamValues['税号'].value:=edit11.Text; Parameters.ParamValues['EMAIL'].value:=edit12.Text; Parameters.ParamValues['互联网址'].value:=edit13.Text; Parameters.ParamValues['帐号'].value:=edit14.Text; Parameters.ParamValues['编号'].value:=Dm.Customer.FieldByName('编号').asstring; ---------------------------------------------- 想飞的朋友跟我来。。。 |
|||||
| 作者： |
|
2003/12/10 15:04:45 | ||||
| 7楼： | Parameters.ParamValues['邮政编号'].asstring:=edit1.text; 我想应该是类型的原因 ---------------------------------------------- 李建明 |
|||||
| 信息 |
| 登陆以后才能回复 |
