Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Firebird e Interbase
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

 
 
Herramientas Buscar en Tema Desplegado
  #23  
Antiguo 24-04-2007
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.572
Poder: 27
egostar Va camino a la fama
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.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Insertar un registro psll Conexión con bases de datos 2 26-10-2006 19:33:42
Insertar registro en acces jgmarduel Conexión con bases de datos 9 08-09-2005 22:11:38
Error al insertar un registro en Firebird mateamargo Conexión con bases de datos 4 12-06-2005 14:52:36
Error al insertar un registro en la BD RiverPlate Conexión con bases de datos 3 08-12-2004 15:53:18
Error al insertar nuevo registro Humberto Firebird e Interbase 13 06-05-2004 22:45:01


La franja horaria es GMT +2. Ahora son las 06:01:17.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi