Buenos dias a todos, necesito si alguien me puede ayudar por favor.
Paso a describir el error que me da una consulta de insercion en SQL, estoy trabajando con delphi 6 y bases de MySql.
La descripcion del error es esta "Operation no Applicable" en la linea SqlGrabar.ExecSQL.
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,fec hafin,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);
SqlGrabar.ExecSQL;
end;
end;
dm.Creditos.Refresh;
Si alguien me pudiera dar una ayudita para encontrar ese error les estaria muy agradecido.