, 20 2018 . 18:53
+
!
On Error Resume Next
Dim oConn As Object
Set oConn = New ADODB.Connection
oConn.Open "DRIVER={MySQL ODBC 5.3 ANSI Driver};" & _
"SERVER=test;" & _
"DATABASE=test;" & _
"UID=test;" & _
"PASSWORD=test;" & _
"PORT:3306;" & _
"Option=3;"
If oConn.State = adStateOpen Then
MsgBox ", =)"
Else
MsgBox "... =("
End If
, ...
, ( ), ???
http://www.sql.ru/forum/1283065/access-mysql