adoquery1判断重复一提交post就出错

我的数据表为db1,一个表单,一个DBGRID,一个ADOQUERY1,一个datasource1,一个ADOConnection1,一个EDIT1.TEXT,

点保存时,判断是否name字段有重复,有则提示,无重重则加入记录.

不知道老是出错,谁有这样的例子给我写一个.谢谢

procedure TForm1.FormCreate(Sender: TObject);
begin
  adoquery1.SQL.Text:='select * from db1'; 
  adoquery1.Connection:=ADOConnection1;
  adoquery1.active:=true;
  datasource1.DataSet:=adoquery1;
  dbgrid1.DataSource:=datasource1;
end;
//上面是初绐化


  //下面通过"保存"按钮判断是否存在重复值
procedure TForm1.BitBtn8Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.text:='select * from db1 where name='+quotedstr(edit1.text);
adoquery1.Open;
if ADOQuery1.RecordCount>0 then
MessageBox(Application.Handle,'本人已经存在','信息',MB_OK or MB_ICONINFORMATION)
else
adoquery1.Post; //出错的地方
end;

我的数据表为db1,一个表单,一个DBGRID,一个ADOQUERY1,一个datasource1,一个ADOConnection1,一个EDIT1.TEXT,

点保存时,判断是否name字段有重复,有则提示,无重重则加入记录.

不知道老是出错,谁有这样的例子给我写一个.谢谢

procedure TForm1.FormCreate(Sender: TObject);
begin
  adoquery1.SQL.Text:='select * from db1';  
  adoquery1.Connection:=ADOConnection1;
  adoquery1.active:=true;
  datasource1.DataSet:=adoquery1;
  dbgrid1.DataSource:=datasource1;
end;
//上面是初绐化


  //下面通过"保存"按钮判断是否存在重复值
procedure TForm1.BitBtn8Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.text:='select * from db1 where name='+quotedstr(edit1.text);
adoquery1.Open;
if ADOQuery1.RecordCount>0 then
MessageBox(Application.Handle,'本人已经存在','信息',MB_OK or MB_ICONINFORMATION)
else
adoquery1.Post; //出错的地方
end;

如果adoquery1.recordcount=0的话，你没有任何修改就post，肯定会出错。
查询是否存在，要用另外一个adoquery2.只用一个的话，原来修改的数据被你关掉了，已经没有用了。
应该再加一个adoquery2,代码这样改:
Delphi(Pascal) code

procedure TForm1.BitBtn8Click(Sender: TObject);
begin
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.text:='select * from db1 where name='+quotedstr(edit1.text);
adoquery2.Open;
if ADOQuery2.RecordCount>0 then
MessageBox(Application.Handle,'本人已经存在','信息',MB_OK or MB_ICONINFORMATION)
else
if adoquery1.state=dsedit then  adoquery1.Post; //出错的地方//保存在没有编辑的状态下也不出错。
end;