adoquery1判断重复一提交post就出错,该怎么处理

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);beginADOQuery2.Close;ADOQuery2.SQL.Clear;ADOQuery2.SQL.text:='select * from db1 where name='+quotedstr(edit1.text);adoquery2.Open;if ADOQuery2.RecordCount&gt;0 thenMessageBox(Application.Handle,'本人已经存在','信息',MB_OK or MB_ICONINFORMATION)elseif adoquery1.state=dsedit then  adoquery1.Post; //出错的地方//保存在没有编辑的状态下也不出错。end;
[解决办法]
 if QryceDeviceDll.State in[dsEdit,dsInsert] then
 begin
   QryceDeviceDll.Post;
 end;
[解决办法]
DBGRID是感知控件，即你所做的操作都会反应到数据库中，直接就更新了，不须要另外写代码

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

热点推荐