Delphi如何判断数据库中某列是否包含某值
Delphi怎么判断数据库中某列是否包含某值
若不包含就把数据写进去，若包含了就不写了，Delphi代码怎么判断？
------解决思路----------------------
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已与连接数据库控件相关。
若不包含就把数据写进去，若包含了就不写了，Delphi代码怎么判断？
------解决思路----------------------
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;
------解决思路----------------------
编写一个函数：
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已与连接数据库控件相关。