Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: Visual Basic
Expertise: Intermediate
Jun 29, 2000

Delete All Records in a Table

If you find yourself repeating the same Execute method in different parts of your code when clearing tables, use this method instead to automate the process. When you already have a global variable set to the open database, delete all the records in a table with this function, where DB is the database object:
 
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
Use this function in the code as in these examples:
 
If Not ZapTable("locLookup") Then
	MsgBox "Cannot delete Table."
End If
Or:
 
If Not ZapTable("locCities", "STATE = 'NY'") Then
	MsgBox "Cannot delete Table."
End If
Fabio A.
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date