Sql句子这样执行试试？

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
adoquery1.SQL.text:='select * from a';
adoquery1.Open;
adoquery1.SQL.Text:='delete a where id=1';
adoquery1.ExecSQL;
end;
但我想在按下butt的时候实现这功能怎么办？

Answer 1

adoquery1.close;
adoquery1.sql.clear;
.....

Answer 2

不是很懂你的意思.是不是mousedown 事件的時候實現這個功能.

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
adoquery1.SQL.text:='select * from a';
adoquery1.Open;/////////
adoquery1.Close;
adoquery1.Clear;////////先Clear再说；
adoquery1.SQL.Text:='delete a where id=1';
adoquery1.ExecSQL;
end;
-----------------------------
www.nxit.net/bbs 愿和您一起交流

Answer 4

直接赋TEXT值时不用Clear,只在CLOSE就可以了!procedure TForm1.Button1Click(Sender: TObject);
begin
adoquery1.close; 
adoquery1.SQL.text:='select * from a';
adoquery1.Open;
adoquery1.Close;
adoquery1.SQL.Text:='delete a where id=1';
adoquery1.ExecSQL;
end;

Answer 5

to： jixinfa(DELHPI程序员) 错误一样存在。不能执行。