Ver Mensaje Individual
  #2  
Antiguo 07-01-2010
Avatar de rgstuamigo
rgstuamigo rgstuamigo is offline
Miembro
 
Registrado: jul 2008
Ubicación: Santa Cruz de la Sierra-Bolivia
Posts: 1.646
Reputación: 19
rgstuamigo Va por buen camino
Arrow

Segun veo, tal ves es por que no estas creando los parametros como deberia ser:
Haber intenta asi:
Código Delphi [-]
Datamodule.tabla1.AdsConnection.BeginTransaction ;
TRY
QrAux.SQL.Clear ;
QrAux.SQL.Add('Insert Into tabla (campo1,campo2,campo3)') ;
QrAux.SQL.Add('Values (:dato1,:dato2,:dato3)');//aqui no habias puesto los dos punto ( : ) para los parametros
QrAux.ParamByName('dato1').AsInteger := valor1
QrAux.ParamByName('dato2').AsInteger := valor2
QrAux.ParamByName('dato3').AsInteger := valor3
QrAux.ExecSQL ;
//QrAux.Close ;//<--Esto quisas esta por demas
EXCEPT
Datamodule.tabla1.AdsConnection.Rollback ;
RAISE
END ;
Datamodule.Tabla1.AdsConnection.Commit ;
Datamodule.Tabla1.Close;
ShowMessage('SE GRABO EXITOSAMENTE EL REGISTRO....');
Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7
Responder Con Cita