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;