On Error GoTo errdesc
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
' conn = "Driver={mySQL ODBC 3.51 Driver};Server=" & sserver & ";" & _
"Port=" & sport & ";Option=10;Database=" & sschema & ";Uid=" & suser & ";Pwd=" & spassword & ";"
conn = "Driver={mySQL ODBC 3.51 Driver};Server=" & sserver & ";" & _
"Port=" & sport & ";Database=" & sschema & ";Uid=" & suser & ";Pwd=" & spassword & ";"
conn.Open
Check_Host = True
conn.Close
Set conn = Nothing
errdesc:
If Err.Number <> 0 Then
If Err.Description Like "*Unknown database*" Then
MsgBox "หา Database บ่พ้อ", vbOKOnly + vbInformation, "Error..."
' MsgBox "Unknown Database specified.", vbOKOnly + vbInformation, "Error..."
Check_Host = False
ElseIf Err.Description Like "*Unknown MySQL server host*" Then
MsgBox "ติดต่อ Server ไม่ได้", vbOKOnly + vbInformation, "Error..."
' MsgBox "Unknown Server Host specified.", vbOKOnly + vbInformation, "Error..."
Check_Host = False
ElseIf Err.Description Like "*Access denied for user*" Then
MsgBox "username หรือ password ไม่ถูกต้อง", vbOKOnly + vbInformation, "Error..."
' MsgBox "Wrong username or password specified.", vbOKOnly + vbInformation, "Error..."
Check_Host = False
ElseIf Err.Description Like "*Can't connect to MySQL server*" Then
MsgBox "ติดต่อ Mysql ไม่ได้", vbOKOnly + vbInformation, "Error..."
' MsgBox "Incorrent port no. or host server unknown.", vbOKOnly + vbInformation, "Error..."
Check_Host = False
End If
End If
End Function