Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

 
 
Herramientas Buscar en Tema Desplegado
  #9  
Antiguo 18-06-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola marilinspi.

Se me ocurre que podrías usar un TTimer para el autoguardado, algo parecido a este ejemplo:
Código Delphi [-]
const
   NSEG = 20;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with Database1 do
  begin
    Close;
    AliasName := 'DBDEMOS';
    TransIsolation := tiDirtyRead;
    Open;
  end;

  with Query1 do
  begin
    DatabaseName := 'TEST';
    CachedUpdates:= True;
    UpdateMode   := upWhereChanged;
    Open;
  end;
  // Ej. Guardar datos c/NSEG seg
  Timer1.Interval  := NSEG  * 1000 ; // 20 seg
  Timer1.Enabled   := True;
end;

// Aplicar updates
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  with Query1 do
  begin
    Database1.StartTransaction;
    try
      ApplyUpdates;
      Database1.Commit;
    except
      Database1.Rollback;
      raise;
    end;
    CommitUpdates;
  end;
  ShowMessage('Datos guardados'); // solo para visualizar
end;

// Capturar excepciones
procedure TForm1.Query1EditError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
const
  FLAG = MB_ICONERROR + MB_RETRYCANCEL;
begin
  if MessageBox(Handle, Pchar(E.Message),'', FLAG) = IDRETRY then
    Action := daRetry
  else
    Action := daAbort;
end;
No le pidas mucho lujo al código, estoy seguro que debe haber 100 formas mejores de escribirlo. La verdad es que tuve que leer para refrescar los paupérrimos conocimientos que tengo sobre Paradox , es sólo para acercarte una idea y que espero te sea útil.

De todos modos, y con la mejor de las intenciones, te voy a hacer una sugerencia. Con Paradox vas a vivir reparando y reindexando, es tecnología obsoleta y te va a dar muchos dolores de cabeza.

Existen excelentes gestores, y gratuitos además, como PostgreSQL, Firebird o MySql (por mencionar algunos), que son mil veces superiores. Si todavía estás a tiempo de migrar, huí de Paradox cuanto antes.

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 18-06-2015 a las 01:54:43. Razón: agregar comentario al código
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
Paradox To many open table reynaldo Tablas planas 0 06-02-2006 19:06:12
Subir Informaciónde una tabla plana o db a table paradox ginasil Tablas planas 3 27-05-2005 16:49:42
alter table error JoseQ Firebird e Interbase 4 13-08-2004 20:47:45
error en el create table xerkan Firebird e Interbase 3 07-10-2003 15:43:24
Error At end of table del BDE Marina Conexión con bases de datos 6 25-06-2003 10:58:32


La franja horaria es GMT +2. Ahora son las 15:14:33.


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