帮我看一下这段代码哪里错了?

pgstar 2004-11-22 10:58:39
提示错误:
parameter对像被不正确定义,提供不一致或不完整信息!
程序:
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOStoredProc1.Parameters.ParamByName('@V_DEPTNO').Value:=edit1.Text;
ADOStoredProc1.Parameters.ParamByName('@V_APPMAN').Value:=edit2.Text;
ADOStoredProc1.Parameters.ParamByName('@V_APPDATE').Value:=DateTimePicker1.Date;
ADOStoredProc1.Parameters.ParamByName('@V_MEMO').Value:=edit3.Text;
ADOStoredProc1.Prepared:=true;
ADOStoredProc1.open;
edit4.Text:=ADOStoredProc1.Parameters.ParamByName('@v_devreqno').Value;
end;
存储过程:
create or replace procedure xqinfo
(v_DEVREQNO out cg_devreq.devreqno%type,
v_DEPTNO in cg_devreq.deptno%type,
v_APPMAN in cg_devreq.appman%type,
v_APPDATE in cg_devreq.appdate%type,
v_MEMO in cg_devreq.memo%type) is
begin
insert into cg_devreq(DEVREQNO,deptno,appman,appdate,memo)
values(cg_sequence.nextval,v_DEPTNO,v_APPMAN,v_APPDATE,v_MEMO);
select DEVREQNO into v_DEVREQNO from cg_devreq where rowid=(select max(rowid) from cg_devreq);
end xqinfo;
...全文
84 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
yinzhiw 2004-11-22
  • 打赏
  • 举报
回复
ADOStoredProc1.Parameters.ParamByName('a').DataType :=...
yinzhiw 2004-11-22
  • 打赏
  • 举报
回复
定义一下每个参数类型看看
bee2518 2004-11-22
  • 打赏
  • 举报
回复
ADOStoredProc1设置它的参数类型,属性Params设置

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧