TADOTable Anweisungen loggen

[Tyrael Y.]

Morgen zusammen,

innerhalb meines Quelltextes gibt es zahlreiche Stellen wo ich
je nach dem mit TADOTable oder TADOQuery Daten in meiner Datenbank ändere.

Ich möchte gerne die ausgeführten Anweisungen in eine ini.Datei loggen.
Bei TADOQuery nehme ich lQuery.SQL.Text und speichere diese Answeisung.

Wie sollte ich das bei lTable machen, da ich ja dort keine SQL Anweisungen zur
Verfügung habe, die ich speichern könnte.

Wenn jemand eine Idee hat, wie man diese Anweisungen am Besten loggen kann,
immer her damit...


Gruß Tyrael

[Gollum]

Hallo,

mit dem Ereignis OnUpdateData der Datasource, die mit der Tabelle verbunden ist.

[Leuselator]

welche DatenBank benutzt Du?

[Tyrael Y.]

Zitat:

mit dem Ereignis OnUpdateData der Datasource, die mit der Tabelle verbunden ist.

Könntest du das näher erläutern?

[Tyrael Y.]

Zitat:

welche DatenBank benutzt Du?

ich benutze MSSQL

[Gollum]

Hallo,

folgend ein Auszug aus der Delphi-Hilfe:

[zitat]
In einer Ereignisbehandlungsroutine für OnUpdateData können bestimmte Aktionen vor dem Eintragen der Datenänderungen durchgeführt werden. Die Ereignisbehandlungsroutine für OnUpdateData wird vor der Methode Post der Datenmenge aufgerufen, wenn in einer Anwendung geänderte Datensätze in die Datenbank eingetragen werden. Mit dieser Ereignisbehandlungsroutine können Sie dann zusätzliche Datenverarbeitungen oder -validierungen durchführen.
[/zitat]

[Tyrael Y.]

Zitat:

Hallo,

folgend ein Auszug aus der Delphi-Hilfe:

[zitat]
In einer Ereignisbehandlungsroutine für OnUpdateData können bestimmte Aktionen vor dem Eintragen der Datenänderungen durchgeführt werden. Die Ereignisbehandlungsroutine für OnUpdateData wird vor der Methode Post der Datenmenge aufgerufen, wenn in einer Anwendung geänderte Datensätze in die Datenbank eingetragen werden. Mit dieser Ereignisbehandlungsroutine können Sie dann zusätzliche Datenverarbeitungen oder -validierungen durchführen.
[/zitat]

ähm...
.. wie soll mir das helfen aus lTable eine SQL-Anweisung zu kriegen?

..oder verstehe ich dich falsch ?

[Leuselator]

Vorab: wenn ich in die Falsche Richtung gallopiere, dan Bremse anlegen (Stop schreien) :)

MS-SQL als "richtige" DB hat auch Features wie Trigger und Stored Procedures.

Wenn ich Dich richtig verstanden habe, möchtest Du die abgesetzten (datenändernden) SQL-Commands loggen. Ich unterstelle jetzt mal, Du möchtest das aus Sicherheitsgründen und nicht zum debuggen machen.

Dann könntest Du dies mit Triggern "sauberer" lösen, da diese nicht nur auf SQL-Commands aus Deiner Anwendung sondern auf alle SQL-Commands - egal woher (z.B. Queryanalyser/DbExplorer) - reagieren.

SQL-Code:

create table Daten
(
    idDaten                         int identity(1,1)     not null,
    V_Wert                          varchar(35)           null
    constraint pk_Daten primary key (idDaten)
)
go

create table Log
(
    idLog                           int identity(1,1)     not null,
    V_WertNew                       varchar(35)           null,
    V_WertOld                       varchar(35)           null,
    V_Aktion                        varchar(10)           not null,
    V_Benutzer                      varchar(255)          not null,
    D_Zeitpunkt                     datetime              not null  
    constraint pk_Log primary key (idLog)
)
go

create trigger DatenInsertTrigger on Daten for insert as
begin
    declare
      @WertNew varchar(35)
    set @WertNew = select V_Wert from Inserted
    insert Into Log
    (V_WertNew,V_Aktion,V_Benutzer,D_Zeitpunkt)
    VALUES
    (@WertNew,'Insert',SUSER_SNAME(),getdate())
end
go

create trigger DatenUpdateTrigger on Daten for update as
begin
    declare
      @WertNew varchar(35),
      @WertOld varchar(35)

    set @WertNew = select V_Wert from Inserted
    set @WertOld = select V_Wert from Deleted
    insert Into Log
    (V_WertNew,V_WertOld,V_Aktion,V_Benutzer,D_Zeitpunkt)
    VALUES
    (@WertNew,@WertOld,'Update',SUSER_SNAME(),getdate())
end
go

create trigger DatenDeleteTrigger on Daten for delete as
begin
    declare
      @WertOld varchar(35)
    set @WertOld = select V_Wert from Deleted
    insert Into Log
    (V_WertOld,V_Aktion,V_Benutzer,D_Zeitpunkt)
    VALUES
    (@WertOld,'Update',SUSER_SNAME(),getdate())
end
go

Gruß Tim

[Tyrael Y.]

@Leuselator

Hi, ist lieb von dir gemeint aber das nutzt mir leider nix.
Ich muss die SQL-Statements loggen.
Diese sollen bei Bedarf auf einem anderem Rechner ausgeführt werden können.
Daher brauche ich wirklich die SQL -Statements die ausgeführt worden sind.
Diese packe ich in eine ini Datei und bei Bedarf führe ich die Statements aus.
Für TADOQuery war das ziemlcih einfach zu realisieren, da die SQL-Statements
in lQuery.SQL.Text stehen.

Ich danke dir trotzdem für deine Mühe.
War echt lieb gemeint und zum reinen loggen ist das bestimmt besser.

Gruß Tyrael