¿ Como me se si una tabla esta vacía ? me Urge !! !

Claudio Campos

unread,

Jul 12, 1997, 3:00:00 AM7/12/97

to

Este es un mensaje con múltiples partes en formato MIME.

------=_NextPart_000_01BE3CD3.C9DB21A0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit

Que tal !

Miren tengo un problemita, quisiera saber como hago para saber si
una tabla tiene 0 (cero) registros activos, sin tener en cuenta los
borrados,
la funcion reccount() no me sirve porque me los incluye.

Chau, Gracias ! :*)

THISNEWS.VisualFoxSaludos("Desde mi CyberBarrio" , "Argentina")
SID 6.7

PD: Si me posiciono en EOF() y hago skip -1 para ver si es BOF() me da un
error
"se ha encontrado el final del archivo" :*(
------=_NextPart_000_01BE3CD3.C9DB21A0
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable

<html><head></head><BODY bgcolor=3D"#FFFFFF">Que tal ! 	Miren tengo un =
problemita, quisiera saber como hago para saber si una tabla tiene 0 =
(cero) registros activos, sin tener  en  cuenta los =
borrados, la funcion reccount() no me sirve porque me los =
incluye. Chau, Gracias ! =
:*) THISNEWS.VisualFoxSaludos("Desde mi CyberBarrio" , =
"Argentina") SID 6.7 PD: Si me posiciono en EOF() y =
hago skip -1 para ver si es BOF() me da un error "se ha =
encontrado el final del archivo" :*(
</body></html>
------=_NextPart_000_01BE3CD3.C9DB21A0--

Marc Miralles

unread,

Jul 13, 1997, 3:00:00 AM7/13/97

to

Este es un mensaje con múltiples partes en formato MIME.

------=_NextPart_000_01BC8F83.5FEF5760
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit

Hola claudio:

He hecho una prueba y me ha funcionado una solucion aunque un poco chapuza
seria sobre la tabla hacer un GO BOTTOM y sobre este registro verificar si
este es BOF() y si este es EOF() de ser cierto(.t.) es que no hay ningún
registro en esa tabla y si los hay estos estan borrados.

Es una solución un poco 'Chapuza', pero creo que te puede ayudar.

--
VISUALFOX SALUDOS desde Vilafranca del Penedès (BARCELONA-ESPAÑA) :-)))

Claudio Campos <cdca...@santafe.com.ar> escribió en artículo
<01be3cec$ef0fefa0$LocalHost@claudio>...
Que tal !

Miren tengo un problemita, quisiera saber como hago para saber si
una tabla tiene 0 (cero) registros activos, sin tener en cuenta los
borrados,
la funcion reccount() no me sirve porque me los incluye.

Chau, Gracias ! :*)

THISNEWS.VisualFoxSaludos("Desde mi CyberBarrio" , "Argentina")
SID 6.7

PD: Si me posiciono en EOF() y hago skip -1 para ver si es BOF() me da un
error
"se ha encontrado el final del archivo" :*(

Claro.. pero si estas en EOF() y Tambien en BOF() entonces es que no hay
registros

------=_NextPart_000_01BC8F83.5FEF5760

Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable

<html><head></head><BODY bgcolor=3D"#FFFFFF"><font size=3D2 =

color=3D"#000000" face=3D"Arial">Hola claudio: He hecho una =
prueba y me ha funcionado una solucion aunque un poco chapuza seria =
sobre la tabla hacer un GO BOTTOM y sobre este registro verificar si =
este es BOF() y si este es EOF() de ser cierto(.t.) es que no hay =
ning=FAn registro en esa tabla y si los hay estos estan =
borrados. 	Es una soluci=F3n un poco 'Chapuza', pero creo =
que te puede ayudar. -- VISUALFOX SALUDOS desde Vilafranca =
del Pened=E8s (BARCELONA-ESPA=D1A) :-))) Claudio Campos <cdca...@santafe.com.ar> escribi=F3 en art=EDculo <01be3cec$ef0fefa0$LocalHost@claudio>... Que tal ! 	Miren tengo un =

problemita, quisiera saber como hago para saber si una tabla tiene 0 =
(cero) registros activos, sin tener  en  cuenta los =
borrados, la funcion reccount() no me sirve porque me los =
incluye. Chau, Gracias ! =
:*) THISNEWS.VisualFoxSaludos("Desde mi CyberBarrio" , =
"Argentina") SID 6.7 PD: Si me posiciono en EOF() y =
hago skip -1 para ver si es BOF() me da un error "se ha =

encontrado el final del archivo" :*( Claro.. pero si estas =
en EOF() y Tambien en BOF() entonces es que no hay =
registros 
</body></html>
------=_NextPart_000_01BC8F83.5FEF5760--

FAD

unread,

Jul 13, 1997, 3:00:00 AM7/13/97

to

Tal vez la solucion este en contarlos. Suponiendo el SET DELETED ON prueba
el siguiente codigo:

STORE 0 to Contador
GO TOP IN (nombre del fichero)

DO WHILE .NOT. EOF('nombre del fichero')
Contador = contador +1
SKIP IN (nombre del fichero)
ENDDO

IF EMPTY(Contador)
? 'El fichero no tiene ningun registro'
ENDIF

Leo Lob

unread,

Jul 13, 1997, 3:00:00 AM7/13/97

to

Creo que esta solucion es facil, aunque en algunos casos no muy rapida:

Count All to Cantidad_de_Registros

Si Cantidad_de_Registros es cero, es que la tabla esta vacia, o estan todos
los registros borrados.

Domingo Lado

unread,

Jul 13, 1997, 3:00:00 AM7/13/97

to

Hola Claudio:

Yo uso la solución de Marc y no creo que sea chapuza, ya que da resultado y
son 2 lineas.

con set dele on

go bott
if bof()
no hay ningún registro activo
endif

o

go top
if eof()
que no es lo mismo pero es igual

En la solución de FAD haría:

sele archivo
Contador=0
GO TOP
scan WHILE .NOT. EOF().and.contador=0
Contador = contador +1
ENDscan

IF Contador=0

? 'El fichero no tiene ningun registro'
ENDIF

Abrazos.

--
Domingo Lado
Montevideo - Uruguay

Claudio Campos <cdca...@santafe.com.ar> escribió en artículo
<01be3cec$ef0fefa0$LocalHost@claudio>...
Que tal !

Miren tengo un problemita, quisiera saber como hago para saber si
una tabla tiene 0 (cero) registros activos, sin tener en cuenta los
borrados,
la funcion reccount() no me sirve porque me los incluye.

Chau, Gracias ! :*)

THISNEWS.VisualFoxSaludos("Desde mi CyberBarrio" , "Argentina")
SID 6.7

PD: Si me posiciono en EOF() y hago skip -1 para ver si es BOF() me da un
error
"se ha encontrado el final del archivo" :*(

----------