FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
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. |
#2
|
||||
|
||||
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.
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
#3
|
|||
|
|||
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 |
#4
|
|||
|
|||
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; |
|
|
|