TQuery

TQuery

uses syndb

查询

function Tfmain.query(const sql: string): RawUTF8;
var
q: TQuery;
begin
q := TQuery.Create(fDataBase.ThreadSafeConnection);
try
q.Close;
q.SQL.Clear;
q.SQL.Add(sql);
q.Open;
Result := q.PreparedSQLDBStatement.FetchAllAsJSON(True);
end;
finally
q.Free;
end;
end;

事务SQL

ex := TQuery.Create(fDataBase.ThreadSafeConnection);
try
ex.Close;
ex.SQL.Clear;
ex.SQL.Add(sql);
ex.ExecSQL;

转载于:https://www.cnblogs.com/hnxxcxg/p/8067354.html