Error Insert SQL!!

[XcamX]

Hola amigos, ya probe con values pero me sigue dando el error, con respecto a fechafin asi se llama el campo en la base de datos, y fecfin es el nombre del parametro al que le asigno el valor, no me equivoque al poner el nombre.

[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