Freigeben über

dbc_PackData-Ereignis

  • Artikel

Tritt vor der Ausführung des PACK DATABASE-Befehls auf.

PROCEDURE dbc_PackData( )

Hinweise

Mit dem dbc_PackData-Ereignis können Sie Zugriffsversuche auf die Datenbank überwachen, bevor ein PACK DATABASE-Befehl ausgeführt wird.

Wenn Sie verhindern möchten, dass die Datenbank komprimiert wird, sollten Sie Falsch (.F.) als Rückgabewert für diese Prozedur festlegen. Wenn Sie bei Festlegung des Rückgabewertes .F. versuchen, die Datenbank zu komprimieren, wird die Fehlermeldung "Dateizugriff verweigert" angezeigt.

Beispiel

* Reports to the screen Event name, where it is called from and ;
* the parameter passed.
PROCEDURE dbc_PackData
 ? '  -  ' + PROGRAM()
 ??' in ' + SUBSTR(SYS(16),RAT('\',SYS(16))+1)
 ? '     Current DBC: ' + SUBSTR(DBC(),RAT('\',DBC())+1)+' /end/ '
ENDPROC

Siehe auch

Aktivieren oder Deaktivieren von DBC-Ereignissen | PACK DATABASE-Befehl