求救!!!在线急待。

xieshun 2003-09-15 02:56:10
代码如下:
with adoquery1 do
begin
adoquery1.Close;
adoquery1.Parameters.ParamByName('itemcode').Value:=ypdm;
adoquery1.Parameters.ParamByName('DEPT').Value:=dept;
adoquery1.Parameters.ParamByName('date1').Value:=StartDate;
adoquery1.Parameters.ParamByName('date2').Value:=EndDate;
adoquery1.Open;

end;
adoquery1.First;

while not adoquery1.Eof DO //B
begin
adoquery1.edit;
adoquery1.FieldByName('EXEUFLAG').Value := '0';
adoquery1.FieldByName('EXEUDEPT').Value := '0102204003';
adoquery1.FieldByName('EXEUOPERATOR').Value := Trim(edit1.Text);
adoquery1.FieldByName('EXEUDATE').Value := now;
//adoquery1.Post;
adoquery1.Next;
end;

当运行到B处时出现“缺少更新或刷新的键列信息”提示错误,请问是什么错误呀?谢谢!
...全文
35 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
jpyc 2003-09-15
  • 打赏
  • 举报
回复
应当是是数据库的主键有问题
dulei115 2003-09-15
  • 打赏
  • 举报
回复
//adoquery1.Post
是对的,干吗要去掉。
sy_315 2003-09-15
  • 打赏
  • 举报
回复
with adoquery1 do
begin
Close;
Parameters.ParamByName('itemcode').Value:=ypdm;//1
Parameters.ParamByName('DEPT').Value:=dept;//2
Parameters.ParamByName('date1').Value:=StartDate;//3
Parameters.ParamByName('date2').Value:=EndDate;//4
Open;
end;

1,2,3,4是不是字段属性的问题
jaunmai 2003-09-15
  • 打赏
  • 举报
回复
改日期型試下:
adoquery1.Parameters.ParamByName('date1').asstring:=
FormatDateTime('yyyy-mm-dd ',StartDate);
adoquery1.Parameters.ParamByName('date2').asstring:=
FormatDateTime('yyyy-mm-dd',EndDate);
  • 打赏
  • 举报
回复
设置主键

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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