Me alegra saber que en el club hay compañeros que sí aprecian y valoran de buena fe los ejemplos que he venido escribiendo sobre el uso de GH Freebrary.
Pongamos uno más, simplificando ligeramente
este código del compañero wilcg:
Código Delphi
[-]Uses
GHFRTL;
...
with Query do
begin
SQL.Clear;
SQL.Add ('Select * from pagos');
SQL.Add ('where codventa = ' + QuotedStr (edtCodigo.Text));
SQL.Add ('and f_venta = ' + ghQuotedSQLDate (edtFVdenta.Date)) ;
SQL.Add ('and f_pago between ');
SQL.Add (ghQuotedSQLDate (edtDesde.Date));
SQL.Add ('and '+ ghQuotedSQLDate (Date));
SQL.Add ('Order By f_pago desc');
Open;
end;
La función ghQuotedSQLDate convierte un valor de tipo fecha en su representación literal SQL, es decir, bajo el formato universal
aaaa-mm-dd y con una comilla a cada lado. La fecha de hoy, por ejemplo, queda como
'2014-08-22' lo cual permite añadirla a cualquier sentencia SQL como el
Select del ejemplo. Sin el potencial problema de la configuración regional del sistema operativo o del motor de la base de datos.