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;
解决方案 »
- idhttp控件Get方法执行后如何获取地址
- tcwbutton ,tcwgraph,tiannlogdisplay,tiledround是什么控件,怎么装啊
- 关于MDI窗体的一个问题
- 怎么样改变StatusBar1的字体颜色。 在线等,急,谢了。
- 请问现在一部好的摩托跑车大概多少钱
- 如何用Delphi操作远地的XML
- DELPHI里如何动态的改变ADO控件的CONNECTION信息?
- 求助,日期怎么转换的?
- 线程问题100分送上!
- 在对系统稳定性要求比较高的情况,用Delphi还是BCB好?
- 那个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错误,导致程序不能继续执行