Auditoria-Gravar os SQL executados(insert,delete, etc)BD-IB

Question

id�iaspreciso fazer uma especie de auditoria em meu sistema que gravasse os SQL executados (somente INSERT, DELETE e UPDATE).Utilizo a paleta Interbase, consegui alguma coisa com o SqlMonitor ainda na...

Khundalini · Answer

A edi��o 51 da revista ClubeDelphi apresentou uma t�cnica de como registrar e gerenciar todas as altera��es no banco de dados. � como se ele gerasse um log dos dados em .XML. Muito bom.

[]s
Rubem Rocha
Manaus, AM

Danilodcf · Answer

obrigado pela dica, mas eu preceiso fazer isto com a paleta com a paleta Interbase, nao uso dbExpert....

Khundalini · Answer

Companheiro, a mat�ria da revista faz uso de TClientDataSet + TDataSetProvider para implementar isso. E por usar TClientDataSet, voc� pode usar qualquer tipo de dataset que quiser em um TDataSetProvider: IBX, IBO, dbExpress (e n�o dbExpert), BDE, ADO, etc. Procure informa��es sobre esse artigo.

[]s
Rubem Rocha
Manaus, AM

Danilodcf · Answer

Agradeco novamente pela atencao.Companheiro, por enquanto nao quero usar um TDataSetProvider, pois teria que mudar no sistema inteiro. Na verdade, gostaria de saber se teria como eu extrair o Sql direto de um TIBDataSet.Voce saberia me dizer tem como fazer isto?...

Khundalini · Answer

Que eu saiba, o TIBDataSet possui as seguintes propriedades (Detalhe: consultei isso apenas usando o Code Completion do IDE do Delphi):

property UpdateSQL;
property DeleteSQL;
property InsertSQL;

Isso sem falar que voc� poderia interceptar a a��o que est� sendo executada no evento OnUpdateRecord (acredito eu).

[]s
Rubem Rocha
Manaus, AM

Danilodcf · Answer

Tem alguma sugestao de como gravar os sql durante o OnUpateRecord?

So estou conseguido gravar os sql sem valores (Ex: UPDATE CLIENTE SET CD_CLIENTE = :CD_CLIENTE). Atraves das propriedades QDelete, QInsert, QModify.
Como obter os sql com os valores (Ex: UPDATE CLIENTE SET CD_CLIENTE = 1654)?

Khundalini · Answer

Ora, companheiro, experimentou consultar a propriedade Params (ou Parameters) de um TIBDataSet???[]s...