Cita:
Empezado por jose001
Código Delphi [-]qCaja.Close;
qCaja.SQL.Clear;
qCaja.SQL.ADD('select * from caja');
qCaja.SQL.ADD('where fecha BETWEEN :Finicio AND :Fhasta');
qCaja.SQL.ADD('AND idcaja=(select max(idcaja) from caja')); qCaja.SQL.ADD('AND monto_total = :total')); Edit1.Text:= qCaja.ParambyName('total').AsInteger; qCaja.Params[0].AsDate:= Finicio.Date;
qCaja.Params[1].AsDate:= Fhasta.Date;
bien aca pasa lo siguiente me tira un error de que mysql no me reconoce la consulta.
|
Hola jose001,
Es posible que el error sea de programación, fijate en la línea de "Edit1"
Código Delphi
[-]Edit1.Text:= qCaja.ParambyName('total').AsInteger;
Cambiala por:
Código Delphi
[-]Edit1.Text:= qCaja.ParambyName('total').AsString;
Un saludo.