Revision history [back]

Here are the general steps to send a JSON-formatted string from Excel VBA to a MySQL stored procedure as input:

1. Create a reference to the MySQL Connector/ODBC driver in your VBA project.
2. Create a connection string that specifies the server name, database name, username, and password to connect to the MySQL server.
3. Open a connection to the MySQL server using the connection string.
4. Construct a SQL query that calls the stored procedure and passes the JSON-formatted string as a parameter.
5. Execute the SQL query using the connection object.
6. Close the connection to the MySQL server.

Here's an example of how you might achieve this:

' Set up connection string
Dim connString As String
connString = "DRIVER={MySQL ODBC 8.0 Unicode Driver};" & _
             "SERVER=yourServerName;" & _
             "DATABASE=yourDatabaseName;" & _
             "UID=yourUsername;" & _
             "PWD=yourPassword;"

' Open connection to MySQL server
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.Open connString

' Construct SQL query
Dim sql As String
sql = "CALL yourStoredProcedureName('" & yourJsonString & "')"

' Execute SQL query
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open sql, conn

' Close connection
rs.Close
conn.Close
Set rs = Nothing
Set conn= Nothing

Note that you'll need to replace the placeholders in the connection string, SQL query, and stored procedure name with your own values. Also, make sure that the MySQL Connector/ODBC driver is installed on your machine before running this code.