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

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.


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

WEBINAR:

On-Demand

Application Security Testing: An Integral Part of DevOps


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
×
We have made updates to our Privacy Policy to reflect the implementation of the General Data Protection Regulation.
Thanks for your registration, follow us on our social networks to keep up-to-date