帮我看下数据库代码哪出错了

[lmjloavcj1]

procedure TForm1.Button1Click(Sender: TObject);

begin


ADOQuery1.Close;
ADOQuery1.SQL.Create;
ADOQuery1.SQL.Add('insert into error_table(id,error_id) values(:str,:str1)');
ADOQuery1.Parameters.ParamByName('str').value:=strtoint(edit1.Text);
ADOQuery1.Parameters.ParamByName('str1').value:=edit2.Text;
ADOQuery1.ExecSQL;
ADOQuery1.Active:=false;
end;

上面的代码，执持一次可以，执行二次的时候就出现"不正常的定义参数对象。提供了不一致或不完整的信息"

[Ascn]

procedure   TForm1.Button1Click(Sender:   TObject); 

begin 

ADOQuery1.Close; 
ADOQuery1.SQL.Clear; 
ADOQuery1.SQL.Add('insert   into   error_table(id,error_id)   values(:str,:str1)'); 
ADOQuery1.Parameters.ParamByName('str').value:=strtoint(edit1.Text); 
ADOQuery1.Parameters.ParamByName('str1').value:=edit2.Text; 
ADOQuery1.ExecSQL; 
ADOQuery1.Active:=false; 
end; 

[Ascn]

不要用：
ADOQuery1.SQL.Create;

用：
ADOQuery1.SQL.Clear;

[lmjloavcj1]

谢谢 ，我试试

[lmjloavcj1]

OK。怎么结贴啊

[woaiwd]

procedure   TForm1.Button1Click(Sender:   TObject); 
begin 
with ADOQuery1 do
  begin
  Close;//Active:=False;
  SQL.Clear; 
  SQL.Add('insert   into   error_table(id,error_id)   values(:str,:str1)'); 
  Parameters.ParamByName('str').value:=strtoint(edit1.Text); 
  Parameters.ParamByName('str1').value:=edit2.Text; 
  ExecSQL; 
  End; 
end; 

Close和Active:=False是一个意思
ADOQuery的一般用法是：

with ADOQuery1 do
begin
  Close;
  SQL.Clear;
  ...
  Open;//ExecSQL;看SQL语句而定这里是Open还是ExecSQL
end;

点管理帖子加分就可以结贴了

[alimyso]

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into error_table(id,error_id) values(:str,:str1)');
ADOQuery1.Parameters.ParamByName('str').value:=strtoint(edit1.Text);
ADOQuery1.Parameters.ParamByName('str1').value:=edit2.Text;
ADOQuery1.ExecSQL;
ADOQuery1.Close;
end;

[wxsan]

jf

[chinmusam]

ADOQuery1.SQL.Create;
按钮事件中,第二句清空语句写错了.
应是ADOQuery1.SQL.Clear;
是清空,不是重新创建对象.
因为第二次运行时会重新创建SQL语句对象,
故会此报错误信息.