Please Help Me!

[Melvana]

How can I delete all the records of 9 tables?
All 9 tables are in the same .mdb database.

I dont't know if I have to use one ADO(or DAO) for each
table or maybe there is a better way to do that...
I don't know.

All I know is that my SQL should look like this:
"delete from TableName;"

Anybody please help me

[jdavison]

I havent tried this yet but I think you can just use the * wildcard in the sql.

DELETE * FROM *

if it doesnt work then you will need to take the * of the FROM and do individual tables but I think that should work for you.

[Melvana]

I tryed that but it doesn't work :( (SQL error)

Thank anyway :)

Anyone can help me?

try this:

' this code was taken from 101 Tech Tips by VBPJ
Function ZapTable(sTable as STring, Optional sWhere as String = "") as Integer
Dim sSQL as String
On Error GoTo Err_ZapRecs
' For Access Apps only:
' docmd.SetWarnings False
sSQL = "DELETE * FROM " & sTable & " "
If sWhere <> "" Then
sSQL = sSQL & "WHERE " & sWhere
End If
DB.Execute sSQL, dbFailOnError
' docmd.SetWarnings True
ZapTable = True
Exit_ZapRecs:
Exit Function
Err_ZapRecs:
ZapTable = False
''ERROR HANDLING IF DESIRED
Resume Exit_ZapRecs
End Function


hope this helps. :)

[Melvana]

What type is DB in your function?

whatever database object you have.

[Melvana]

Hooooooooooooo yeah :)

thank you billyboy, your help was just what I needed.
It works perfectly, like I want.

thank you again :)