Error al insertar registro

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

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

[[eduarcol]]

Hola para ayudarte un poco lee la http://www.clubdelphi.com/foros/guiaestilo.php, 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.

[gabrielkc]

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

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

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

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