Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 26-09-2003
trex2000 trex2000 is offline
Miembro
 
Registrado: may 2003
Posts: 240
Poder: 21
trex2000 Va por buen camino
Unhappy Actualizar Datos

Hola a todos:
Soy nuevo en esto de Interbase, tengo el problemita de que cuando hago una operacion de insercion, modificacion, o barrado de registros no me actualiza en todas las estaciones nomas en la que estoy trabajando veo el cambio de inmediato y en las otras no.
No se si me pudieran ayudar?, lo que hago es lo siguiente:

Cuando presiono el boton de ok que es el que agrega o modifica hago lo que sigue:

Clave:=Edit1.Text;
Descr:=Edit2.Text;
Modulo.IBQuery1.Close;
Modulo.IBQuery1.SQL.Clear;
Modulo.IBQuery1.SQL.Add('Insert Into Dptos(Codigo,Descripcion)');
Modulo.IBQuery1.SQL.Add('Values("'+Clave+'","'+Descr+'")');
Modulo.IBQuery1.ExecSQL;
Modulo.IBTransaction1.Commit;
Modulo.IBTable1.Active:=True;
Modulo.IBTable1.Refresh;

Si presiono el boton cancelar es lo que sigue:

Modulo.IBTransaction1.Rollback;
Modulo.IBTable1.Active:=True;
ActBuscar:='F';
Edit1.Text:=Modulo.IBTable1.FieldByName('codigo').AsString;
Edit2.Text:=Modulo.IBTable1.FieldByName('Descripcion').AsString;
Edit1.Enabled:=False;
Edit2.Enabled:=False;
CoolBtn_Ok.Enabled:=False;
CoolBtn_Can.Enabled:=False;
ActivarBotones;
DBGrid1.Enabled:=True;
CoolBtn_Agregar.SetFocus;

Cuando presiono el boton agregar:

If Not Modulo.IBTransaction1.InTransaction Then
Modulo.IBTransaction1.StartTransaction
Else
Begin
Modulo.IBTransaction1.Active:=False;
Modulo.IBTransaction1.StartTransaction;
End;
Modulo.IBTable1.Active:=True;

Acepto cualquier sugerencia, como dije soy principiante en Interbase.

De antemano muchas gracias.
Responder Con Cita
  #2  
Antiguo 26-09-2003
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Poder: 10
marcoszorrilla Va por buen camino
Mira este hilo:
http://www.clubdelphi.com/foros/show...&threadid=3381

Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita
Respuesta



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


La franja horaria es GMT +2. Ahora son las 05:27:35.


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