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;
解决方案 »
- 局域网文件的拷贝
- 拖动一个button水平移动时,好像默认有一个最小值,我这里试验为8个像素,如何只平移一个像素?
- 用sp_detach分离程序中创建的数据库时,出现数据库正在使用中,怎么办呢?
- 如何用 DBEdit 向数据库中添加 bigint 类型字段
- 百分在线等待!!!!!!!!!!!!!!!!!!
- 誰給我一個多層分布的比較完整的程序我給300分(大丈夫絕不食言)
- 有那位大虾对控件比较熟悉,请帮忙介绍一下以下控件的使用方法,我在这先谢谢大家了并顺祝新年快乐!。
- 当点击spinedit的增减小按钮分别触发什么事件?
- delphi的选择
- Listview和Listbox怎样一次性添加多个项目然后一起刷新?
- 那个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错误,导致程序不能继续执行