Error al insertar registro

[[Caral]]

Hola
Lo que me suena raro es que nisiquiera te de algun error.
La verdad nunca hago las insersiones de esa manera asi que me siento un poco indefenso, las hago asi:

Código Delphi [-]
DataModule1.AC1.BeginTrans;
try
QTemp.SQL.Text := 'Insert Into OrdenProd (Codorden, FechaInicio, FechaRequerido, CodUsuario, Comentarios, CodCliente, Prioridad, Enrutada, OrdenCompra) '+
                   'Values (' +Edit2.Text+', '+QuotedStr(Edit4.Text)+', '+QuotedStr(DateToStr(DateTimePicker1.DateTime))+', '+
                            QuotedStr(Edit5.Text)+', '+QuotedStr(Memo1.Text)+', '+Edit3.Text+', '+IntEdit1.Text+', True, '+QuotedStr(Edit7.Text)+')'
end;
DataModule1.AC1.CommitTrans;
 except
         on E:Exception do DataModule1.AC1.RollbackTrans;
      end;

Me queda dificil saber en que puede estar el error, la verdad lo veo bien.
Saludos

[[RONPABLO]]

Hola, Como tenes configurada la transacción?

[[egostar]]

Hola RONPABLO, la transaccion la tengo como TACommit y tambien he probado con TACommitRetaining y nada.

Ya he probado lo que me comentas Caral

Código Delphi [-]
    

IBQuery1.Transaction.Commit;
    Fecha := StringReplace(Fecha,'/','.',[rfReplaceAll]);
    IBQuery1.Transaction.StartTransaction;
    IBQuery1.Close;
    IBQuery1.SQL.Text := 'Insert Into Llamadas (Fecha, Extension, Hora, Prefijo,'+
               'Numero, Codigo,Departamento, CCostos, Troncal, Carrier, Ciudad,'+
               'Estado,SMedido,Costo, Iva, Duracion, DurEntera, ExtensionOrigen,'+
               'Empresa) '+
               'Values (' +QuotedStr(Fecha)+', '+QuotedStr(Extension)+', '+
               QuotedStr(HoraLlamada)+', '+QuotedStr(Prefijo)+', '+QuotedStr(Numero)+', '+
               QuotedStr(Fac)+', '+QuotedStr(Nivel1)+', '+QuotedStr(Nivel2)+', '+
               QuotedStr(Troncal)+', '+QuotedStr(Carrier)+', '+QuotedStr(Ciudad)+', '+
               QuotedStr(Estado)+', '+FloattoStr(SMedido)+', '+FloattoStr(CostoLla)+
               ', '+FloattoStr(Iva)+', '+QuotedStr(Duracion)+', '+
               InttoStr(Round(DurEntera))+', '+QuotedStr(ExtOrigen)+', '+
               QuotedStr(Empresa)+')';
    IBQuery1.ExecSQL;
    IBQuery1.Transaction.CommitRetaining;

Pero no agrega el registro.

Sigo haciendo pruebas, gracias por leerme.

Salud OS.

[[egostar]]

Bueno, pues ya quedo, lo hice como me sugeriste Caral, muchas gracias.

Resulta que tuve que agregar otro IBTransaction asigne esa transaccion a mi IBQuery y ya funcionó.

Sin embargo, no pude usarlo con el IBTable, desconozco la causa, pero en cuanto encuentre el problema lo posteare.

Bueno, aqui pongo el código, pero me quedo con la espinita de porque solo así pude, no quitaré el dedo del renglón.

Código Delphi [-]
  

with DataModule1 do begin
    Fecha := StringReplace(Fecha,'/','.',[rfReplaceAll]);
    IBTransaction2.StartTransaction;
    IBQuery1.Close;
    IBQuery1.SQL.Text := 'Insert Into Llamadas (Fecha, Extension, Hora, Prefijo,'+
               'Numero, Codigo,Departamento, CCostos, Troncal, Carrier, Ciudad,'+
               'Estado,SMedido,Costo, Iva, Duracion, DurEntera, ExtensionOrigen,'+
               'Empresa) '+
               'Values (' +QuotedStr(Fecha)+', '+QuotedStr(Extension)+', '+
               QuotedStr(HoraLlamada)+', '+QuotedStr(Prefijo)+', '+QuotedStr(Numero)+', '+
               QuotedStr(Fac)+', '+QuotedStr(Nivel1)+', '+QuotedStr(Nivel2)+', '+
               QuotedStr(Troncal)+', '+QuotedStr(Carrier)+', '+QuotedStr(Ciudad)+', '+
               QuotedStr(Estado)+', '+FloattoStr(SMedido)+', '+FloattoStr(CostoLla)+
               ', '+FloattoStr(Iva)+', '+QuotedStr(Duracion)+', '+
               InttoStr(Round(DurEntera))+', '+QuotedStr(ExtOrigen)+', '+
               QuotedStr(Empresa)+')';
    IBQuery1.ExecSQL;
    IBTransaction2.Commit;
  end;

Salud OS.

[[RONPABLO]]

por lo que me imagino usas IBX, así pues, en el componente de la transacción puedes darle doble click y ponerla en la segunda opción o en el inspector de objetos buscar la propiedad params y en ella poner los siguientes comandos:

read_committed
rec_version
nowait

asegúrate de que la transacción este bien asociada a el componente database, y así mismo, que el IBTable este bien asociado a los dos anteriores (Transaccion y Database)....

[[RONPABLO]]

Se me olvidaba... yo siempre la trabajo con la propiedad "TACommit"

[[egostar]]

Gracias RONPABLO, ya lo habia hecho tambien, pero me manda un error en el IBTransaction1.StartTransaction que dice "Transaction is Active", usando otro IBTransaction, no tengo ningún problema y si me agrega los registros.

Estoy pensando que antes de grabar el registro, estoy usando varias consultas de varias tablas para llegar al resultado que necesito, es por eso (creo yo) que la transacción 1 esta activa. Leyendo vi que es necesario llamar un commit o un rollback antes de activar de nuevo la transacción, pero no se que pueda pasar haciendo eso recurrentemente, voy a probarlo y les aviso.

Te agradezco el tiempo que te has tomado para ayudarme.

Salud OS.

[[Caral]]

Hola egostar
Para empezar, se sabe que una transaccion se usa para salvar la integridad de los datos, bueno esto siempre que se tarte de mas de dos sentencias sql, en otras palabras, si se hacen dos transacciones y una falla, no se actualiza ninguna de las dos.
Ya que una sentencia de insercion no debuelve valores es importante saber si se hizo o no las transacciones.
En tu caso, se esta haciendo solo una sentencia sql, esta funciona o no, pero no afecta a mas sentencias sql, por eso me parece innecesario el uso de transacciones aqui.
Bueno yo haria una inserccion corriente y ya, funciona o no, eso es todo, asi:

Código Delphi [-]
   
    Fecha := StringReplace(Fecha,'/','.',[rfReplaceAll]);
    IBQuery1.Close;
    IBQuery1.SQL.Text := 'Insert Into Llamadas (Fecha, Extension, Hora, Prefijo,'+
               'Numero, Codigo,Departamento, CCostos, Troncal, Carrier, Ciudad,'+
               'Estado,SMedido,Costo, Iva, Duracion, DurEntera, ExtensionOrigen,'+
               'Empresa) '+
               'Values (' +QuotedStr(Fecha)+', '+QuotedStr(Extension)+', '+
               QuotedStr(HoraLlamada)+', '+QuotedStr(Prefijo)+', '+QuotedStr(Numero)+', '+
               QuotedStr(Fac)+', '+QuotedStr(Nivel1)+', '+QuotedStr(Nivel2)+', '+
               QuotedStr(Troncal)+', '+QuotedStr(Carrier)+', '+QuotedStr(Ciudad)+', '+
               QuotedStr(Estado)+', '+FloattoStr(SMedido)+', '+FloattoStr(CostoLla)+
               ', '+FloattoStr(Iva)+', '+QuotedStr(Duracion)+', '+
               InttoStr(Round(DurEntera))+', '+QuotedStr(ExtOrigen)+', '+
               QuotedStr(Empresa)+')';
    IBQuery1.ExecSQL;
 end;

Otra cosa que tienes que tener en cuenta es que las transacciones se hacen directamente a la tabla, no al query.
Mas, en el caso de seguir igual elimina el IBQuery1.Close; del principio.
Saludos

[[Caral]]

Hola egostar
Para que te quede un poco mas claro esto de las transacciones:
1: Modulo de datos, enlace, comienzo trans.

Código Delphi [-]
DataModule1.AC1.BeginTrans;

2: Query, Sentencia sql, y ejecutar sentencia sql.

Código Delphi [-]
QTemp.SQL.Text := // sentencia 1
QTemp.ExecSQL;

QTemp.SQL.Text := // sentencia 2
QTemp.ExecSQL;
DataModule1.AC1.CommitTrans;

3: Si fallan las insersiones u otros se hace un (no paso nada), todo sigue igual asi:

Código Delphi [-]
DataModule1.AC1.RollbackTrans;

Bueno este es el procedimiento que uso y a mi me funciona.
Saludos

[[egostar]]

Empezado por Caral

Otra cosa que tienes que tener en cuenta es que las transacciones se hacen directamente a la tabla, no al query.
Mas, en el caso de seguir igual elimina el IBQuery1.Close; del principio.
Saludos

Gracias Caral, pero este programa debe estar ejecutandose siempre ya que es un sistema de control de llamadas y debo de agregar los registros en tiempo real, estuve probando sin las transacciones y no me refleja los cambios sino hasta que cierro el programa, cosa que no debo hacer.

Pues bien, esto es debido a mi inexperiencia en el uso de Firebird, algún día lo dominaré.

Salud OS y gracias a ti a RONPABLO

[[gluglu]]

Algo tienes que tener por ahí que te esté fastidiando. Suele pasar. Buscas y te vuelves loco porque no funciona, y al final es una tontería en cualquier otro sitio.

Sólo un comentario adicional, y además lo he consultado en la ayuda propia de Delphi aunque no he podido llegar a una conclusión definitiva :

Yo nunca utilizo Insert sino Append y después le doy los valores a cada campo, tal y como lo has detallado tu. Verdaderamente no sé si eso puede influir pero por probar que no quede.

Saludos,

[[gluglu]]

Permíteme una pregunta adicional : Cuando dices que no te añade registros, donde lo compruebas ? Dentro de la propia aplicación, o incluso saliendo del programa y utilizando cualquier utilidad de Base de Datos llegas a comprobar que en la tabla correspondiente no hay registros ?

Qué utilizas ? Un TIBQuery o un TIBTable ? Si es un TIBQuery, podrías mostrarme su correspondiente SQLInsert.Text ?

[[egostar]]

Hola gluglu, gracias por tu respuesta.

Pues si, ya me funcionó con el IBTable, con Insert y con Append, pero le deje Append.

Aquí dejo el código que funcionó como yo quiero, quiero decir, que se vean los cambios a la base sin tener que cerrar el programa.

Código Delphi [-]
  with DataModule1 do begin
     IBTransaction2.StartTransaction;
     Llamadas.Active := True;
     Llamadas.Append;
     Llamadas.FieldByName('Fecha').Value           := StrToDate(Fecha);
     Llamadas.FieldByName('Extension').Value       := Extension;
     Llamadas.FieldByName('Hora').Value            := StrToTime(HoraLlamada);
     Llamadas.FieldByName('Prefijo').Value         := Prefijo;
     Llamadas.FieldByName('Numero').Value          := Numero;
     Llamadas.FieldByName('Codigo').Value          := Fac;
     Llamadas.FieldByName('Departamento').Value    := Nivel1;
     Llamadas.FieldByName('CCostos').Value         := Nivel2;
     Llamadas.FieldByName('Troncal').Value         := Troncal;
     Llamadas.FieldByName('Carrier').Value         := Carrier;
     Llamadas.FieldByName('Ciudad').Value          := Ciudad;
     Llamadas.FieldByName('Estado').Value          := Estado;
     Llamadas.FieldByName('SMedido').Value         := SMedido;
     Llamadas.FieldByName('Costo').Value           := CostoLla;
     Llamadas.FieldByName('Iva').Value             := Iva;
     Llamadas.FieldByName('Duracion').Value        := Duracion;
     Llamadas.FieldByName('DurEntera').Value       := Round(DurEntera);
     Llamadas.FieldByName('ExtensionOrigen').Value := ExtOrigen;
     Llamadas.FieldByName('Empresa').Value         := Empresa;
     Llamadas.Post;
     IBTransaction2.Commit;
     Llamadas.Active := False;
     DataBase1.Close;
  end;

Salud OS.