DBCLOSEALL( )

Cierra todas las áreas de trabajo ocupadas

Sintaxis

     DBCLOSEALL() –> NIL

Devuelve

DBCLOSEALL() devuelve siempre NIL.

Descripción

DBCLOSEALL() libera todas las áreas de trabajo ocupadas. Equivale a utilizar DBCLOSEAREA() en todas las áreas de trabajo ocupadas.

DBCLOSEALL() tiene el mismo efecto que el mandato CLOSE DATABASES estándar. Si desea más información, consulte los mandatos USE y CLOSE.

 Ejemplos

     ¦  En el ejemplo siguiente se cierran todas las áreas de trabajo:

        cApellido := “López”

        DBUSEAREA(.T., “DBFNTX”, “Ventas”, “Ventas”, .T.)

        DBSETINDEX( “SALEFNAM” )

        DBSETINDEX( “SALELNAM” )

        //

        DBUSEAREA(.T., “DBFNTX”, “Distribu”, “Distribu”, .T.)

        DBSETINDEX( “COLLFNAM” )

        DBSETINDEX( “COLLLNAM” )

        //

        DBSELECTAREA( “Ventas” )         // seleccionar el área

                                                        // de trabajo “Ventas”

        //

        IF ( Ventas->(DBSEEK(cApellido)) )

           IF Ventas->( DELETED() )

              IF RLOCK()

                 Ventas->( DBRECALL() )

                 ? “Registro borrado: “, Ventas->( DELETED() )

              ENDIF

           ENDIF

        ELSE

           ? “No se encuentra”

        ENDIF

        DBCLOSEALL()                     // cerrar todas las áreas

                                                 // de trabajo

 Ficheros:  La biblioteca asociada es DPXBASE.CH.