Cita:
Empezado por Casimiro Notevi
O sea, que el problema es otra cosa que no tiene nada que ver. Debes seguir tu código paso a paso con el depurador para encontrarlo.
No, lo que ocurre, como dice ahí, es que el sitio ese que has elegido para subir las imágenes, no permite que las enlaces desde otro sitio.
|
Me refería a eso precisamente (el servidor de alojamiento de imágenes), use el depurador paso a paso y el error me lo arroja al leer la primera linea:
Código Delphi
[-]ADO1.sql.text:='INSERT INTO factura (cantfactu,subtfactu,ivafactu,totalfactu,horafactu,idclientef,idpagof,iduserf)'+
Cita:
Empezado por AgustinOrtu
Código Delphi [-]
Query.Parameters.ParamByName('ParamFecha').DateType := ftDate;
Query.Parameters.ParamByName('ParamFecha').DateType := ftDateTime;
Query.Parameters.ParamByName('ParamFecha').Value:= VariableFecha;
Proba con uno de esos, si te interesa almacenar tanto fecha como hora obviamente usarias ftDateTime, sino ftDate
|
Me sigue dando el mismo error amigo, lo que puedo ver después de tanto darle vueltas a esto es que es un error en todo el pedazo de código de el botón "guardar" (que solo tiene la query), es primera vez que trabajo con parámetros...
Código Delphi
[-]with ADOQuery1 do begin
If active then close;
SQL.Clear;
ADOQuery1.sql.add('INSERT INTO factura (cantfactu,subtfactu,ivafactu,totalfactu,horafactu,idclientef,idpagof,iduserf)');
ADOQuery1.sql.add('VALUES (:cantfactu,:subtfactu,:ivafactu,:totalfactu,:horafactu,:idclientef,:idpagof,:iduserF)');
with parameters do
begin
ADOQuery1.Parameters.ParamByName('cantfactu').Value := combocant.Text;
ADOQuery1.Parameters.ParamByName('subtfactu').Value := cant;
ADOQuery1.Parameters.ParamByName('ivafactu').Value := iva;
ADOQuery1.Parameters.ParamByName('totalfactu').Value := total;
ADOQuery1.Parameters.ParamByName('horafactu').Value := (FormatDateTime('yyyy/mm/dd',(Mfechahora)));
ADOQuery1.Parameters.ParamByName('idclientef').Value := form2.edtcedula.text;
ADOQuery1.Parameters.ParamByName('idpagof').Value := tpago;
ADOQuery1.Parameters.ParamByName('iduserF').Value := ('1');
end;
ADOQuery1.open;
end;
end;
así esta ahora mismo y me sigue dando el mismo error.