• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• A module to connect to a MySQL Database using MyODBC 3.51

A module to connect to a MySQL Database using MyODBC 3.51

A module to connect to a MySQL Database using MyODBC 3.51

API Declarations



Option Explicit
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim username As String
Dim passwd As String
Dim serverIP As String
Dim db As String
Public Function connectMysql(username As String, passwd As String, serverIP As String, db As String, conn As ADODB.Connection, rs As ADODB.Recordset)
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.CursorLocation = adUseClient
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & serverIP & ";UID=" & username & ";PWD=" & passwd & ";DATABASE=" & db & ";" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 163841
conn.Open
End Function

'********************************************




Rate A module to connect to a MySQL Database using MyODBC 3.51

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim username As String
Dim passwd As String
Dim serverIP As String
Dim db As String
Dim ssql As String
Private Sub Form_Load()
Call connectMysql("root", "", "127.0.0.1", "myerp", conn, rs)

ssql = "SELECT * FROM accmaster"
rs.Open ssql, conn

Set DataGrid1.DataSource = rs

End Sub


'Visit my site for more free vb / mysql code & updates