Compartir a través de


dbc_BeforeAppendProc (Evento)

Se produce antes de que se complete un comando APPEND PROCEDURES.

PROCEDURE dbc_BeforeAppendProc(cFileName, nCodePage, lOverwrite) 

–O bien–

PROCEDURE dbc_BeforeAppendProc
LPARAMETERS cFileName, nCodePage, lOverwrite

Parámetros

  • cFileName
    Especifica el nombre de un archivo de texto a partir del cual se van a anexar los procedimientos almacenados.
  • nCodePage,
    Especifica la página de códigos del archivo de texto a partir del que se van a anexar los procedimientos almacenados. Visual FoxPro copia el contenido del archivo de texto y, a medida que lo hace, lo convierte automáticamente a la página de códigos especificada.
  • lOverwrite
    Especifica si se incluyó la palabra clave OVERWRITE en el comando APPEND PROCEDURE. Si se omitió OVERWRITE, los procedimientos actualmente almacenados en la base de datos se anexan a los procedimientos almacenados existentes; si no es así, reemplazan a los procedimientos almacenados existentes.

Observaciones

Se puede utilizar el evento dbc_BeforeAppendProc para realizar el seguimiento de los intentos de acceso a la base de datos antes de anexar los procedimientos almacenados.

Devuelva .F. desde este procedimiento para evitar que el contenido del archivo de texto se anexe a los procedimientos almacenados en la base de datos.

Ejemplo

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

Vea también

Activar o desactivar eventos DBC | dbc_AfterAppendProc (Evento)