Delphi怎么判断数据库中某列是否包含某值

[zzyhost]

若不包含就把数据写进去，若包含了就不写了，Delphi代码怎么判断？

[doloopcn]

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;

[zzyhost]

引用 1 楼 doloopcn 的回复:

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;

谢谢，再问一下，if query.active 为什么要判断这个？

[lyhoo163]

编写一个函数：

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已与连接数据库控件相关。

[doloopcn]

引用 2 楼 u013402605 的回复:

[quote=引用 1 楼 doloopcn 的回复:] 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;

谢谢，再问一下，if query.active 为什么要判断这个？[/quote] 防止上面的exception发生后，对query操作会直接raise错误，导致程序不能继续执行