怎样判断所输入的数据在数据库中是否存在,能否举个例子
解决方案 »
- 求助:哪位前辈有高程考试的资料,请给小弟传点,小弟在这里谢过了:)
- 如何取得窗体上按扭的句柄。
- 谁能给我一个密码修改的源码!
- 数据库备份和恢复
- (都用了好几百分了,难道真的没人解决),用TIdSMTP连接smtp.163.com发邮件时提示:System busy;
- 用DEBUG可不可以改掉我程序中变量的值
- 谁能告诉我updatesql控件和query控件相连时的用法,最好给段代码,比如删除代码或新增代码,在线等待。。。
- DELPHI应用难题,请各位高手指点
- 为什么每次执行下列语句总只修改第一条记录?(我已经在dbgrid中移动了指针!)
- 请教如何截获TWebBrowser中的弹出菜单事件?
- delphi7+access从access里读取ole对象类型的jpg图像问题
- 关于显示字段的问题
if adoqeury1.recordcount<>0 then
说明输入的数据在数据库
query1.sql.clear;
query1.sql.add('select * from table1 where a=b');
query1.open;
if query1.recordcount<>0 then
showmessage('存在相同数据');
if ADOTable1.Locate('ab',Edit1.text,[]) then showmessage('该字段中存在相同数据');
procedure TForm1.Edit1Exit(Sender: TObject);
begin
if snedit1.Text<>'' then
begin
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select * from tablename where field='+''''+edit1.text+'''');
adoquery1.open;
if adpquery1.recordcount<>0 then
showmessage('存在相同数据');
end;
end;
else showmessage('输入有数据')
第二种方法用 jian23cn(黑翼天使) ( ) 信第三种用:sql select * from table where 条件