Crear archivo *.LOG

[ciscu]

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]

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]

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]

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

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;