Question

在Delphi中关于通过ADO连接，修改SQL SERVER2000数据库中数据的操作，我已经查询出了单价

现在想通过在文本框中输入数据，点击按钮就修改数据库中的数据。
我编了以下代码，但是不对，求高人指点，初学者，希望详细点。。。
procedure TForm1.Button2Click(Sender: TObject);
var
pjbm:string;
jhj:extended;

begin
adoquery1.Close;
adoquery1.SQL.Clear;
pjbm:=edit1.text;

ADOQuery1.SQL.Add('update kc_detail set jhj='''+edit2.text+''' where pjbm='''+edit1.text'''');

end;

Answer 1

with Update do
close;
Update.Parameters[0].Value:=trim(edit2.text);
Update.Parameters[1].Value:=trim(Edit1.Text);
Update.execsql;

Update 裏面的内容
update kc_detail
set jhj=:jhj
where pjbm=:pjbm

追问

过不去啊，从with 那里就停住了

追答

begin
with Update do
close;
Update.Parameters[0].Value:=trim(edit2.text);
Update.Parameters[1].Value:=trim(Edit1.Text);
Update.execsql;
end;
这样在不行，把错误提示发下

追问

[Error] Unit1.pas(71): Record, object or class type required
[Error] Unit1.pas(73): Record, object or class type required
[Error] Unit1.pas(73): Array type required
[Error] Unit1.pas(75): Record, object or class type required
[Error] Unit1.pas(93): Undeclared identifier: 'midstr'
[Error] Unit1.pas(94): Missing operator or semicolon

追答

换个写法如下：
begin
with adoquery1 do
Close;
SQL.Clear;
SQL.Add(' update kc_detail set jhj=''' + edit2.text + ''' where pjbm = ''' + edit1.text+ '''')；
EXECSQL;
end;

追问

还是不行哦

追答

不可能吧 我这里测试了都可以

Answer 2

最后少了一句
AdoQuery1.ExecSQL();

Answer 3

ADOQuery1.execsql();