How to know a table is empty ? 1

[andreateh]

How do i know that a table is empty ? "Empty" i mean here is no record in tha table or the table contain only deleted record. Does line below work ?

nRecno = IIF(NOT EOF("table") OR;
         BOF("table"),RECNO("table"),.F.)

IF TYPE("nRecNo") = "L"
     ?" no record"
ElSE
      ?"Contain Record"
endif

 

[baltman]

With SET DELETED ON, you can avoid a count with:

GO TOP
lnTop=RECNO()
GO BOTTOM
lnBot=RECNO()
?iif(lnTop=lnBot and DELETED()=.f. and EOF()=.f.,"I think it IS NOT EMPTY by top/bott compare","I think it is empty by top/bott compare")

Demostrated here:

clear
CREATE TABLE test (f1 c(1))
?"Table IS empty"
DO testempty

?""

FOR x = 1 TO 3
APPEND BLANK
DELETE
endfor
?"Table Has 3 deleted only"
DO testempty

?""

APPEND BLANK
APPEND BLANK
DELETE
?"Table Has 4 deleted and ONE NOT deleted"
DO testempty

PROCEDURE testempty
lcDeleted=SET("deleted")
SET DELETED ON

?iif(RECCOUNT()=0,"I think it is empty by RECCOUNT()","I think it IS NOT EMPTY by RECCOUNT()")

GO TOP 
lnTop=RECNO()
GO BOTTOM
lnBot=RECNO()
?iif(lnTop=lnBot and DELETED()=.f. and EOF()=.f.,"I think it IS NOT EMPTY by top/bott compare","I think it is empty by top/bott compare")
SET DELETED &lcDeleted
ENDPROC

 

[andreateh]

Baltman, thanks for the tips. A star for u.

 

[ChrisRChamberlain]

...unless there is another technique?

Good thinking, baltman - star!

FAQ184-2483 - answering getting answered.​

Chris
PDFcommander[sup]tm[/sup].com
PDFcommander[sup]tm[/sup].co.uk