query.close;
query.sql.clear;
query.sql.add('select 字段名 from 表 where 字段名 like '+quotedstr('%包含的字符%'));
try
query.open;
except
end;
if query.active then
if query.recordcount<1 then
begin
//包含,写入你的代码
;
end;
query.sql.clear;
query.sql.add('select 字段名 from 表 where 字段名 like '+quotedstr('%包含的字符%'));
try
query.open;
except
end;
if query.active then
if query.recordcount<1 then
begin
//包含,写入你的代码
;
end;
解决方案 »
- 加班暂告一段落,散分
- 能不能不将JPEG流不放到IMAGE里面就将其缩小?
- 如何来判断grid里是否有内容
- 高手请进!~!!!!!!!!!有分相待!!!!!!!!!
- 为什么我的PROJECT老是报错:Access violation at address ......
- 本人想学习用线程技术编写Delphi程序,但对此一无所知,想请各位谈一下使用线程编写的经念,以及推荐一些比较好的关于用Delphi编写线程的
- 关于delphi的com组件编写问题!!
- 调用窗体的OnClose事件,能关闭窗体吗,能的话,如何调用?
- 在2000下安装98后,2000不能启动,那位高人有办法?
- 请问有比较两个'2002-01-01 11:01:00'相隔多长的东东吗?谢谢~
- 那个xe7 的firemonkey 效率差啊。
- 在线等DELPHI高人,简单C#代码,如何用DELPHI来写?
谢谢,再问一下,if query.active 为什么要判断这个?
function HasStr(sTableName, sField, S: string): boolean;
var SQL:string;
begin
Result := False;
SQL:='select '+sField+' from '+sTableName+' where '+sField+'='+#39+S+#39;
query.close;
query.sql.clear;
query.sql.add(S);
query.open;
if query.recordcount>0 then
Result := True;
end;条件query已与连接数据库控件相关。
谢谢,再问一下,if query.active 为什么要判断这个?防止上面的exception发生后,对query操作会直接raise错误,导致程序不能继续执行