标题:[求助]adoquery判断重复入库出错
取消只看楼主
aaron52088
Rank: 1
等 级:新手上路
帖 子:130
专家分:0
注 册:2007-1-24
 问题点数:0 回复次数:0 
[求助]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;

搜索更多相关主题的帖子: adoquery 入库 判断 
2007-05-04 18:55



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-136897-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.053992 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved