2,497
社区成员
发帖
与我相关
我的任务
分享大家帮忙看看.在线急等
报错提示"键列信息不足或不正确.更新影响到多行." 大家帮忙啊!!!
=========================================================================================
procedure TTP.Button1Click(Sender: TObject);
var
name:string;
zgs:double;
begin
DM.ADODataSet1.Close;
name:=button1.Caption ;
DM.ADODataSet1.CommandText :='SELECT * from GDNAME where 姓名=:name order by ID';
DM.ADODataSet1.Parameters[0].Value:=name;
DM.ADODataSet1.Open ;
edit2.Text :=dm.ADODataSet1.FieldByName('总股数').AsString;
Button1.Visible :=false;
zgs:=strtofloat(edit2.Text)+ strtofloat(dbtext3.Caption);
dm.ADODataSet1.Edit ;
dm.ADODataSet1.FieldByName('总股数').AsString:=floattostr(zgs);
dm.ADODataSet1.Post ;
end;
=========================================================================================
=========================================================================================
procedure TTP.Button1Click(Sender: TObject);
var
name:string;
zgs:double;
begin
DM.ADODataSet1.Close;
name:=button1.Caption ;
DM.ADODataSet1.CommandText :='SELECT * from GDNAME where 姓名=:name order by ID';
DM.ADODataSet1.Parameters[0].Value:=name;
DM.ADODataSet1.Open ;
edit2.Text :=dm.ADODataSet1.FieldByName('总股数').AsString;
Button1.Visible :=false;
zgs:=strtofloat(edit2.Text)+ strtofloat(dbtext3.Caption);
dm.ADODataSet1.Edit ;
dm.ADODataSet1.FieldByName('总股数').AsString:=floattostr(zgs);
dm.ADODataSet1.Post ;
end;
=========================================================================================
...全文
请发表友善的回复…
发表回复
zhaolinzeng 2006-03-15
- 打赏
- 举报
你找找，看是不是有一行的数据和你将要更新的数据是完全一样的？
zhaolinzeng 2006-03-15
- 打赏
- 举报
至少有两行的字段值是重复的，它才会找不到该更新哪一行。
jinjazz 2006-03-15
- 打赏
- 举报
你的数据库没有主键，有些记录就都一样了
