Kod:
Public Function MySQLBağlan(Server As String, Kullanıcı As String, Şifre As String, Database As String, Port As Integer)
If Baglan.State = 0 Then
On Error GoTo Hata
Baglan.Open "Provider=MSDASQL.1;Password=;Persist Security Info=False;User ID=;Extended Properties=" & Chr$(34) & "DRIVER={MySQL ODBC 3.51 Driver};DATABASE=" & Database & ";SERVER=" & Server & ";UID=" & Kullanıcı & ";PWD=" & Şifre & ";PORT=" & Port & ";OPTION=16387;STMT=;" & Chr$(34)
Baglan.CursorLocation = adUseClient
Exit Function
Else
End If
Hata:
MsgBox Err.Description, vbCritical
End Functionbunu nasıl kullanabiliriz
