![]() |
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.:confused: |
|
La franja horaria es GMT +2. Ahora son las 00:59:27. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi