Foros Club Delphi - Crear archivo *.LOG

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Crear archivo *.LOG (https://www.clubdelphi.com/foros/showthread.php?t=7230)

ciscu

09-02-2004 13:08:51

Crear archivo *.LOG

Hola a todos!!!

Tengo un programa hecho en delphi que utiliza una base de datos, y lo que me interesaría es que para cada inserción, borrado o modificación en la base de datos lo guarde en un fichero *.log para así controlar todos los movimientos que se hacen sobre la base de datos.

Tenéis alguna idea para compartir?

Gracias anticipadas.

jachguate

09-02-2004 14:49:24

Pues depende de con que ataques la base de datos...

Si no estoy mal, las IBX por ejemplo... traen algo como un ibxSQLMonitor con el que podrias generar el log.

Hasta luego.

;)

ciscu

09-02-2004 16:21:14

Respuesta para jachguate!!!

Hola, gracias por responderme!!

Pues veras, yo utilizo TTables y TQuerys que están ligadas con un TDatabase en un formulario de tipo module (y las bases de datos son de tipo PARADOX).

Puedes seguir ayudándome (o alguien que esté por aquí)?

Gracias anticipadas de nuevo :)

__cadetill

09-02-2004 17:07:54

Puedes hacer una función genérica y llamarla desde el evento AfterPost de los TTables o TQuerys aprovechando que reciben como parámetro un Dataset

Lo pongo de cabeza y sin comprobar el funcionamiento, para que pilles la idea

Código:

procedure TForm1.CrearLog(DataSet: TDataSet);

var

  i : integer;

  F: TextFile;

begin

  // gestión de abertura de fichero

  .......

  // gestión del Dataset

  for i := 0 to DataSet.Fields.Count - 1 do

    Writeln(F, DataSet.Fields[i].FieldName + ': ' +

               DataSet.FieldByName(DataSet.Fields[i].FieldName).AsString);



  // gestión de cierre fichero

  .....

end;



procedure TForm1.Tabla1AfterPost(DataSet: TDataSet);

begin

   CrearLog(Dataset)

end;

La franja horaria es GMT +2. Ahora son las 08:44:25.