this code worked fine with 7.4.11.
with version 7.4.12, i have sometimes no result.
Code: Select all
function c_sqlite.SelectWhere(qdb, qtable, qWhereVar, qcondition: string;
qWhereValue: variant): integer;
var qsql : string;
begin
result := -1;
if e_unic.Connected = false then begin
if connect(qdb, false) = false then exit;
end;
qsql := 'SELECT * FROM ' + qtable + ' WHERE ' + qWhereVar + ' ' + qcondition + ' :qwvalue ;' ;
e_query.Close;
e_query.SQL.Clear;
e_query.SQL.Add(qsql);
e_query.Params.ParamValues['qwvalue'] := qWhereValue ;
try
begin
e_query.Open;
e_query.First;
e_query.Last;
result := e_query.RecordCount;
end;
except
result := -1;
end;
end;