How to execute an SQL statement in VBA

This simple method allows to execute the given SQL query, returning true if there was no error, or false otherwise.
The SQL statement is not supposed to return resultsets, like an INSERT, UPDATE or DELETE
Copy Embed Code
<iframe id="embedFrame" style="width:600px; height:300px;"
Click on the embed code to copy it into your clipboard Width Height
Leave empty to retrieve all the content Start End
Public Function ExecCmd(ByVal sql As String) As Boolean On Error GoTo ErrorCmd Dim conn As ADODB.Connection Dim cmd As ADODB.Command 'Init db objects 'Connection is the current DB one Set conn = CurrentProject.Connection Set cmd = New ADODB.Command With cmd .ActiveConnection = conn .CommandText = sql .CommandType = adCmdText .Execute End With ExecCmd = True Exit_go: Exit Function ErrorCmd: MsgBox Err.Description ExecCmd = False End Function
If you want to be updated about similar snippets, Sign in and follow our Channels

blog comments powered by Disqus