Question

delphi7 数据更新问题

procedure TForm1.Button1Click(Sender: TObject);
begin

ADOQuery1.Close;
ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('Update huizong SET snum=:a+b+c');
ADOQuery1.SQL.Add('where snum is null');

ADOQuery1.ExecSQL;

end;

end.
为什么不对啊

Answer 1

sSql := 'Select * From A Where FYear = :vYear and Fmonth = :vMonth';
ADOQuery1.SQL.Text := sSql;
ADOQuery1.Parameters.ParamByName('vYear').Value := Edit1.Text;
ADOQuery1.Parameters.ParamByName('vMonth').Value := Edit2.Text;
ADOQuery1.Open;

if ADOQuery1.RecordCount = 0 then
begin
ADOQuery1.Insert;
ADOQuery1.FieldByName('Fvalue').Value := Trim(Edit3.Text);
ADOQuery1.Post;
end
else
begin
ADOQuery1.Edit;
ADOQuery1.FieldByName('Fvalue').Value := Trim(Edit3.Text);
ADOQuery1.Post;
end;赞同
0| 评论

Answer 2

ADOQuery1.SQL.Add('Update huizong SET snum=:a+b+c');

snum=:a+b+c

:a 这不是参数变量吧？snum=a+b+c

追问

也不对啊

追答

这要看你数据表里a、b、c代表的是什么了，你得附上你的数据结构看的人才能看完整。
另外，你选的答案里“ExecSQL;改成open试试”貌似没什么关联：
ExecSQL是用来执行无返回数据集的指令，比如：insert、update、delete
Open是用来返回数据集的，一般用于select语句

Answer 3

ExecSQL;改成open试试