[求助]adoquery判断重复入库出错
这个问题问了好多遍了,可是我始终没有弄清楚地。麻烦大家再帮帮忙看看哈,谢谢
写了这段程序后程序运行加入与数据库相同的ID号后,还是会出现错误:
我的主键是ID。错误提示是在adoquery1.execsql;
ADOQUERY1.Close;
ADOQUERY1.SQL.Clear;
ADOQUERY1.SQL.Text:='SELECT * FROM Card表';
ADOQUERY1.Open;
ADOQUERY1.First;
WHILE NOT ADOQUERY1.Eof DO BEGIN
IF ADOQUERY1.FieldByName('ID').AsString=EDITID_CQ.Text THEN SHOWMESSAGE('重复')
else BEGIN
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='insert into Card表(numcarku,ID,name,cph,ckh,ckqx,bkh,type) values('''+'智能控制车场'+''','''+editID_CQ.Text+''','''+editNAME_CQ.Text+''','''+editCPH_CQ.Text+''','''+editCKH_CQ.Text+''','''+editCKQX_CQ.Text+''','''+editBKH_CQ.Text+''','''+'长期停车车位'+''')';
try
adoquery1.ExecSQL; //错误提示处
except
showmessage('办卡失败,请重新启动应用程序');
Exit;
end;
showmessage('办卡成功');
ShowDataForCQ;
SetState(vShow);
END;
ADOQUERY1.Next;
END;