problemas en una operacion de insercion una db

[alfil123]

amigos en la linea cm.Execute;, se dispara este error con un dll "Access violation at addres 1B015CB5 in module 'msjet40.dll'" 015064D2 'msado15.dll'var Retorno:boolean; cm : TADOCommand; i:integer;Begin Try Retorno:=True; cn.BeginTrans; /// cm := TADOCommand.Create(nil); cm.Connection := cn; // INSERTAR CABECERA DEL CREDITO cm.CommandText := ' INSERT INTO TCREDITO VALUES ('+ (NroCredito)+','+ QuotedStr(IDCliente)+','+ QuotedStr(Cuenta)+','+ Monto+','+ QuotedStr(TipoDoc)+','+ QuotedStr(SerieDoc)+','+ QuotedStr(NroDoc)+','+ QuotedStr(Fecha)+','+ QuotedStr(Cancelado)+','+ QuotedStr(Contabilidad)+','+ QuotedStr(Almacen)+','+ QuotedStr(Fiscal)+','+ QuotedStr(Responsable)+')'; cm.Execute;

[Paoti]

alfil, no puedes concatenar una cadena de texto y una variable numerica, lo que haces con nroCredito, y monto es esto:


nroCredito := 123456
'values (' + nroCredito + ',' + ect ect

no es posible esto, debes de conertir a cadena de texto la variable para pdoer concatenarla, ojo no debes agregarle comillas.

'values (' + inttoStr(nroCredito) + ',' ect ect

o

'values (' + floattoStr(nroCredito) + ',' ect ect


ojala sea eso.


trata antes de ejecutar tu consulta, ponerla en una etiqueta o en algo donde peudas visualizarla:

ejemplo:

Código Delphi [-]
cadenaSQL := 'Insert into myTablas values(........';

etiqueta1.caption := cadenaSQL;

// y ya despues ponerla en 
cm.commandtext := cadenaSQL;