Devart Forums

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;