How to delete some records in all the tables in a database?

A

Athena

Hello,

I am new to this so sorry for the this simple question.

I want to delete certain records on all the tables in a database using
ADO from VB6. I can have a line like below:

sSQL="DELETE * FROM TableName WHERE FieldID='" & FieldName & "'"

But how can I scan all the tables in the database so that TableName above
is each one of the tables in the database.

Thank you.

Athena
 
V

Vladimír Cvajniga

Dim tbl as TableDef

For Each tbl in CurrentDb.TableDefs
sSQL="DELETE * FROM " & tbl.Name & " WHERE FieldID='" & FieldName &
"'"
 
A

Athena

Thank you Vlado. I did not expect it to be this simple! I will try soon.
Thanks again.

Athena
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Can't seem to delete all images from a Word Doc 2
Ghost references to deleted tables in a back end database (Access2000 XP) 5
How to delete certain records based on a column value on all tables in a 2003 Access database? 0
Trying to create a report that will list unmatched records by Ticket Primary Key 0
How to display the merge function "url" of a picture? 0
Delete all data after a symbol in a field 0
Delete rows in different tables 7
How to use/create code in MS Word to calculate age? 0

Top