Error al insertar registro

[[egostar]]

Hola amigos

Estoy migrando una aplicación de Paradox a Firebird 2.0, pero tengo un problema al querer insertar un registro.

Ya he probado varias alternativas que he encontrado, pero ninguna de ellas me inserta el registro, no me muestra ningún error ni nada que me indique que esta pasando.

Aqui pongo las diferentes maneras como he tratado de hacerlo.

Código Delphi [-]
  
with DataModule1 do begin

     Llamadas.Active := False;
     Llamadas.Active := True;
     LLamadas.Insert;

     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;
     Llamadas.Transaction.Commit;

{     If not IBTransaction1.InTransaction then
        IBTransaction1.StartTransaction;

     // Con IBDataSet
     IBDataset1.FieldByName('Fecha').Value        := StrtoDate(Fecha);
     IBDataset1.FieldByName('Extension').Value       := Extension;
     IBDataset1.FieldByName('Hora').Value            := StrToTime(HoraLlamada);
     IBDataset1.FieldByName('Prefijo').Value         := Prefijo;
     IBDataset1.FieldByName('Numero').Value          := Numero;
     IBDataset1.FieldByName('Codigo').Value          := Fac;
     IBDataset1.FieldByName('Departamento').Value    := Nivel1;
     IBDataset1.FieldByName('CCostos').Value         := Nivel2;
     IBDataset1.FieldByName('Troncal').Value         := Troncal;
     IBDataset1.FieldByName('Carrier').Value         := Carrier;
     IBDataset1.FieldByName('Ciudad').Value          := Ciudad;
     IBDataset1.FieldByName('Estado').Value          := Estado;
     IBDataset1.FieldByName('SMedido').Value         := SMedido;
     IBDataset1.FieldByName('Costo').Value           := CostoLla;
     IBDataset1.FieldByName('Iva').Value             := Iva;
     IBDataset1.FieldByName('Duracion').Value        := Duracion;
     IBDataset1.FieldByName('DurEntera').Value       := Round(DurEntera);
     IBDataset1.FieldByName('ExtensionOrigen').Value := ExtOrigen;
     IBDataset1.FieldByName('Empresa').Value         := Empresa;

     IBDataset1.Prepare;
     IBDataset1.InsertSQL;
     IBTransaction1.CommitRetaining;
     IBDataSet1.ApplyUpdates;
     IBDataset1.Close;

     // Con IBQuery
     IBQuery1.Close;
     IBQuery1.Params[0].Value  := strtodate(Fecha);
     IBQuery1.Params[1].Value  := Extension;
     IBQuery1.Params[2].Value  := StrToTime(HoraLlamada);
     IBQuery1.Params[3].Value  := Prefijo;
     IBQuery1.Params[4].Value  := Numero;
     IBQuery1.Params[5].Value  := Fac;
     IBQuery1.Params[6].Value  := Nivel1;
     IBQuery1.Params[7].Value  := Nivel2;
     IBQuery1.Params[8].Value  := Troncal;
     IBQuery1.Params[9].Value  := Carrier;
     IBQuery1.Params[10].Value := Ciudad;
     IBQuery1.Params[11].Value := Estado;
     IBQuery1.Params[12].Value := SMedido;
     IBQuery1.Params[13].Value := CostoLla;
     IBQuery1.Params[14].Value := Iva;
     IBQuery1.Params[15].Value := Duracion;
     IBQuery1.Params[16].Value := Round(DurEntera);
     IBQuery1.Params[17].Value := ExtOrigen;
     IBQuery1.Params[18].Value := Empresa;

     IBQuery1.Prepare;
     IBQuery1.ExecSQL; }
  end;

Como les explico, en ninguna de ellas me muestra error, pero no se agregan los registros en la tabla.

¿Que estoy haciendo mal?

Salud OS.

[[Caral]]

Hola egostar

Código Delphi [-]
with DataModule1 do begin
    
     DataModule1.BeginTrans; // esto?
     Llamadas.Active := False;
     Llamadas.Active := True;
     LLamadas.Insert;

     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;
     DataModule1.CommitTrans;  // Esto?
     Llamadas.Transaction.Commit; // no Se

No se podria ir por ahi.
Saludos

[[egostar]]

Gracias amigo Caral, pero no tengo esa propiedad en el DataModule1.

Si agrego IBTransaction.StartTransaction me dice que ya esta activa, pero si al final agrego IBTransaction1.Commit o CommitRetaining me dice que no hay transacción activa.

Me faltaba cerrar la tabla después del commit, pero aún así sigo teniendo el mismo problema, no hay registros en la tabla llamadas.

Salud OS.

[[egostar]]

Quiero agregar algo que hice,

Agregue un disparador así

Código SQL [-]
CREATE TRIGGER NUEVA_LLAMADA FOR LLAMADAS
ACTIVE AFTER INSERT POSITION 0
AS
begin
  post_event 'nueva_llamada';
  /* Trigger text */
end

Nota: Tambien lo puse en POSITION 1, por probar nadamas

Agregue un IBEvents y agregue en su propiedad Events "nueva_llamada"

En el código hice lo siguiente

Código Delphi [-]
procedure TDataModule1.IBEvents1EventAlert(Sender: TObject; EventName: string;
  EventCount: Integer; var CancelAlerts: Boolean);
begin
  if EventName='nueva_llamada' then
     showmessage('Registro nuevo en la base de datos')
end;

Pero nunca se dispara ese evento.

Salud OS.

[[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"

[[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

[[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 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.

[[egostar]]

Empezado por 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 ?

Incialmente no me agregaba los registros, esto lo checaba con el IBExpert, aún cerrando la base y volviendo a abrirla, no se veian los datos, después cuando se veían tenia que cerrar mi programa, ahora sin cerrar el programa ni la base ya se ven con solo cambiar de la vista a los campos ya se ven los registros agregados.

Use TIBDataSet, no me funcionó, en el InsertSQL tenia esto

Código SQL [-]
insert into LLAMADAS
  (CARRIER, CCOSTOS, CIUDAD, CODIGO, COSTO, DEPARTAMENTO,
 DURACION, DURENTERA, EMPRESA, ESTADO, EXTENSION,
 EXTENSIONORIGEN, FECHA, HORA, IVA, NUMERO, PREFIJO, 
 SMEDIDO, TRONCAL)
values
  (:CARRIER, :CCOSTOS, :CIUDAD, :CODIGO, :COSTO, EPARTAMENTO,
 URACION, URENTERA, :EMPRESA, :ESTADO, :EXTENSION,
 :EXTENSIONORIGEN, :FECHA, :HORA, :IVA, :NUMERO, :PREFIJO, 
 :SMEDIDO, :TRONCAL)

Bueno, todo se resolvió usando otro IBTransaction, y bueno, quiero usar un TTable, pero si hay algun consejo usaria lo que me recomendaran.

Bueno, a lo mejor no me explico muy bien, pero bueno, así es como lo habia soñado.

Salud OS.

[[RONPABLO]]

en si la transacción permanece activa lo mas probable que desde que arranco la aplicación, a no ser que siempre inicie con todo cerrado y en la ejecución active la bd, la transacción y la tabla!, por eso le sale el siguiente mensaje

me manda un error en el IBTransaction1.StartTransaction que dice "Transaction is Active".

simplemente no la inicie otra vez o si depronto puede estar desactivada has algo como lo siguiente:

Código Delphi [-]
if not Trans.Active  then
begin
    trans.StartTransaction;
end;

if not tabla.Active then
   tabla.open;
tabla.Insert;
tabla.FieldByName('id').asInteger := 1;
tabla.FieldByName('Nombre').asString := 'Pablo';
tabla.post;
trans.commit; // o commitRetaing;
tabla.Refresh;

Recuerda de poner la segunda opción al darle dobleClick a la transacción

[ranger6969]

hola, la vdd no tengo la respuesta para tu duda, es solo que no encontre como poner mi duda,, si alguien me pudiera explicar como pongo mis dudas en el foro estaria muy bien, es que tengo muchas preguntas y no se donde ponerlas