Check to see if table is empty

[dnjacks]

Is there a way I can check to see if a table is empty from code?

 

[EBGreen]

Select * from the table then see if the recordset is empty?

[red]"... isn't sanity really just a one trick pony anyway?! I mean, all you get is one trick, rational thinking, but when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick[/red]

 

[BNPMike]

Warning (I got caught with this): if you use ADO the recordset counts don't work properly. You have to see if (BOF and EOF).

 

[dnjacks]

I was hoping there was a way to do this with out using a recordset. If anyone else has an idea, please share.

 

[cmmrfrds]

Why not use a recordset?
dim rs as new adodb.recordset, str as string
str = "Select count(*) as cnt from table"
rs.Open str, currentproject.connection

If rs(0) > 0 then
some records
else
no records
end if
Set rs = Nothing

 

[PHV]

If you don't like Recordset, you may try something like this:
If DCount("*", "myTableName") > 0 Then
MsgBox "Not empty"
End If

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244