Connect Excel to My SQL in VBA

[walo]

Private Sub UserForm_Initialize()
Dim connStr As String
Dim conn As Object

Set conn = New ADODB.connection

' Set connection parameters
Dim dsnName As String
Dim server As String
Dim port As Integer
Dim database As String
Dim username As String
Dim password As String


dsnName = "MySql"
server = "127.0.0.1"
port = 3306 ' Replace with your actual port number
database = "dbwalo"
username = "admin"
password = "SirWalo88"


connStr = "DSN=" & dsnName & ";SERVER=" & server & ";PORT=" & port & ";DATABASE=" & database & ";UID=" & username & ";PWD=" & password

On Error GoTo ErrorHandler

conn.Open connStr
MsgBox "Connection successful"

Exit Sub

ErrorHandler:
MsgBox "Error connecting to database: " & Err.Description
conn.Close
End Sub

Installer Needed:

mysql-connector-odbc-8.0.32-win32.msi
xampp-win32-7.3.0-0-VC15-installer.exe


ALWAYS CLICK LIKE!!!