Error en comando pack
Hola experto, como puedo borrar registros
definitivamente con el comando pack, tengo una tabla de la cual debo
borrar todos los registros desde un formulario, tengo un botón que es
reiniciar, el código que utilizo
select lblcodificacion
set exclusive on
delete all
pack
cuando ejecuto, arroja un error que debo abrir la tabla en modo exclusivo
la
propiedad exclusive esta en true en el entorno de datos del formulario e
igual me sigue arrojando el mismo error, que puedo hacer, por favor es
urgente
1 respuesta
Un placer saludarte. Gracias por consultar y espero poder ayudarte. Proba con éste código, debería funcionar:
**--
USE IN(SELECT("lblcodificacion"))
**--Abrimos tabla
USE lblcodificacion
**--Pasamos a modo exclusivo
USE lblcodificacion EXCLUSIVE
**--Marcamos para eliminación y aplicamos eliminación física.
SELECT lblcodificacion
GO TOP
**Marcamos
DELETE ALL
**--Eliminado físico
PACK
**--//Fin
Proba el código y si te da algún inconveniente, avisame! Estoy a la orden para cualquier consulta!
Un abrazo!
Desde Managua, Nicaragua!
Ravenn :D :D :D
Hola experto, muchas gracias, y que pena molestarte nuevamente, ya aplique el código que tu me sugeriste y lo que sucede es que la base de datos la tengo en una carpeta a la que llamo crecer y la tabla en una subcarpeta de esta que se llama tablas, al intentar abrir con este comando, dice que no encuentra la tabla y esta tabla la tengo involucrada en varias consultas
Ahh no te preocupes. Puedes hacerme las consultas que quieras! :) :) :)
Imagino que el debugger te remarca el error cuando usas USE tabla...
Bien... creo que el problema seria de directorios. Foxpro debe ser configurado para que pueda rastrear los ficheros .dbf (y otros) en algún directorio especifico y las sub carpetas.
Para eso, podes establecer antes (preferiblemente al inicio o arranque de tu aplicación) el directorio donde están los ficheros de base de datos y tablas, así:
&&Carpeta principal&&
SET DEFAULT TO "C:\Miproyecto"
SET PATH TO RCDATO, RCFORMU, RCGRAPHICS, RCLIBS, RCPROGS, RCREPORTS
**--
La ruta la estableces con set default. Las subcarpetas con SET PATH... ves! :D :D :D Luego ejecuta tu código y eso debe solucionar el error!
