Error Insert SQL!!

[Casimiro Noteví]

Vamos a ver, ¿pero has visto tu código?, no has puesto fechafin, has puesto:
fec..hafin

Con 2 espacios por medio.

[XcamX]

tenes razon, asi salio el codigo cuando lo puse aca, pero revisando el codigo en el programa esta bien puesto fechafin lo subo de nuevo para que lo veas si?

Código Delphi [-]
with SqlGrabar do
begin
active:=false;
Sql.Clear;
SQL.add('INSERT INTO creditos(idcredito,idcliente,fechacred,tipoventa,montoprestado,interes,cantcuotas,tipopago,idemp,
               fechafin,interesmora,diacobro,estado,montocuota,montototal)'+
        'value(:idcred,:idcliente,:feccred,:tventa,:montoprest,:inte,:cantc,:tpago,:idemp,
               :fecfin,:intemora,:diacobro,:estado,:montoc,:montot)');
    ParamByName('idcred').asinteger:=strtoint(label3.caption);
    ParamByName('idcliente').asinteger:=strtoint(edit3.text);
    ParamByName('feccred').AsDateTime:=strtodate(maskedit1.text);
    ParamByName('tventa').asstring:=combobox3.text;
    ParamByName('montoprest').AsFloat:=strtofloat(abfedit1.text);
    ParamByName('inte').asinteger:=strtoint(abfedit2.text);
    ParamByName('cantc').asinteger:=strtoint(abfedit3.text);
    ParamByName('tpago').asstring:=combobox5.text;
    ParamByName('idemp').asstring:=label33.caption;
    ParamByName('fecfin').asDateTime:=strtodate(listacuota.Cells[0,2]);
    ParamByName('intemora').asinteger:=0;
    ParamByName('diacobro').asstring:=combobox4.text;
    ParamByName('estado').asstring:='DEBE';
    ParamByName('montoc').asfloat:=strtofloat(abfedit4.text);
    ParamByName('montot').asfloat:=strtofloat(abfedit13.text);
    ExecSQL;
end;
end;
dm.Creditos.Refresh;

saludos

[XcamX]

ahi lo hizo de nuevo hace ese espacio, fijate que en la linea de abajo tambien lo hace y en el codigo original no lo tiene

un abrazo che y gracias por el interes.

[Casimiro Noteví]

Bien, pero quita ese "value" y ponlo correctamente, y por si acaso pon un espacio delante y detrás del values para separarlo del paréntesis.

[Casimiro Noteví]

Mira esto.

[[Caral]]

Hola

Código Delphi [-]
with SqlGrabar do
begin
active:=false;
SQL.text:= 'INSERT INTO creditos ( idcredito, idcliente, fechacred, tipoventa, montoprestado, interes, cantcuotas, tipopago, idemp, '+
           ' fechafin, interesmora, diacobro, estado, montocuota, montototal ) '+
           'values ( :idcred, :idcliente, :feccred, :tventa, :montoprest, :inte, :cantc, :tpago, :idemp, '+
           ' :fecfin, :intemora, :diacobro, :estado, :montoc, :montot )' ;
    ParamByName('idcred').asinteger:=strtoint(label3.caption);
    ParamByName('idcliente').asinteger:=strtoint(edit3.text);
    ParamByName('feccred').AsDateTime:=strtodate(maskedit1.text);
    ParamByName('tventa').asstring:=combobox3.text;
    ParamByName('montoprest').AsFloat:=strtofloat(abfedit1.text);
    ParamByName('inte').asinteger:=strtoint(abfedit2.text);
    ParamByName('cantc').asinteger:=strtoint(abfedit3.text);
    ParamByName('tpago').asstring:=combobox5.text;
    ParamByName('idemp').asstring:=label33.caption;
    ParamByName('fecfin').asDateTime:=strtodate(listacuota.Cells[0,2]);
    ParamByName('intemora').asinteger:=0;
    ParamByName('diacobro').asstring:=combobox4.text;
    ParamByName('estado').asstring:='DEBE';
    ParamByName('montoc').asfloat:=strtofloat(abfedit4.text);
    ParamByName('montot').asfloat:=strtofloat(abfedit13.text);
    ExecSQL;
end;

Saludos

[XcamX]

gracias caral por tu ayuda pero me sigue dando el mismo error

saludos