Ejemplos comparativos de GH Freebrary

[[Al González]]

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.