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.


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

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í


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


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:

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



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.



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:


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.
DataModule1.AC1.BeginTrans;
2: Query, Sentencia sql, y ejecutar sentencia sql.

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:
DataModule1.AC1.RollbackTrans;
Bueno este es el procedimiento que uso y a mi me funciona.
Saludos

[egostar]

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é.:D

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.


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]

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


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, :DEPARTAMENTO,
:DURACION, :DURENTERA, :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:


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

[eduarcol]

Hola para ayudarte un poco lee la http://www.clubdelphi.com/foros/guiaestilo.php (La Guia de Estilo), y luego podras postear tu pregunta haciendo click en el boton nuevo hilo dentro del foro que elijas postear

Bienvenido

[jhonny]

Tambien necesitaras leer la FAQ (http://www.clubdelphi.com/foros/faq.php).

[gabrielkc]

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

Boton Foros--->Seleccionas el Adecuado.
Herramientas--->Nuevo Tema.

Pones un título descriptivo, una descripción detallada de tu problema y le das enviar :D