Deleteing all data from a database...

[PogoWolf]

I found this nice piece of code on the netm which will delete all records from a database.

Declare @sql NVarChar(4000)
Select @sql= isnull(@sql,'') +'Delete From ' + Name + ';' From sysObjects Where xType='U'
Exec sp_executesql @sql

but it's an SQL procedure, is there a way to do this in Access?



The PogoWolf

http://pogowolf.GamersCommune.com

 

[PHV]

In VBA you may browse the CurrentDB.TableDefs collection and execute on the fly a DoCmd.RunSQL "DELETE FROM " & theTableName instruction.

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

 

[PogoWolf]

hmm..
Would you happen to know if there's an equavlet to CurrentDB.TableDefs in VB.NET?


The PogoWolf

http://pogowolf.GamersCommune.com