thaicosmic.com

หนัง

วันเสาร์ที่ 19 ตุลาคม พ.ศ. 2556

เปลี่ยน connection ของ jhcis

Public Function Check_Host(sserver As String, sschema As String, suser As String, spassword As String, sport As String) As Boolean
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