• Kiểm tra kết nối
  • Kiểm tra kết nối

    thucgia > 15-03-15, 06:25 PM

    Mình viết cái function kiểm tra kết nối như bên dưới không biết sai chỗ nào mà nó bị treo chương trình
    Nhờ các bạn kiểm tra hộ, chân thành cám ơn

    Mã PHP:
    Function test_connection() As Integer
        
    'Tra ve -1 là khong ket noi duoc may chu
        On Error GoTo test_error
        Dim kq As Integer
        Dim con As ADODB.Connection
        Set con = New ADODB.Connection
        con.ConnectionString = "Driver={MySQL ODBC 5.3 UNICODE Driver};Server=localhost;Database=bao_cao_tn;" & _
            "User=root;Password=;Option=3;"
        con.Open
        kq = con.State
    test_end:
        test_connection = kq
        con.Close
        Set con = Nothing
        Exit Function
    test_error:
        kq = -1
        Resume test_end
    End Function 
  • RE: Kiểm tra kết nối

    thucgia > 16-03-15, 01:29 PM

    (15-03-15, 06:25 PM)thucgia Đã viết: Mình viết cái function kiểm tra kết nối như bên dưới không biết sai chỗ nào mà nó bị treo chương trình
    Nhờ các bạn kiểm tra hộ, chân thành cám ơn

    Mã PHP:
    Function test_connection() As Integer
        
    'Tra ve -1 là khong ket noi duoc may chu
        On Error GoTo test_error
        Dim kq As Integer
        Dim con As ADODB.Connection
        Set con = New ADODB.Connection
        con.ConnectionString = "Driver={MySQL ODBC 5.3 UNICODE Driver};Server=localhost;Database=bao_cao_tn;" & _
            "User=root;Password=;Option=3;"
        con.Open
        kq = con.State
    test_end:
        test_connection = kq
        con.Close
        Set con = Nothing
        Exit Function
    test_error:
        kq = -1
        Resume test_end
    End Function 

    Sửa lại như thế này thì ok

    Mã PHP:
    Function test_connection() As Integer
        
    'Tra ve -1 là khong ket noi duoc may chu
        On Error GoTo test_error
        Dim kq As Integer
        Dim con As ADODB.Connection
        Set con = New ADODB.Connection
        con.ConnectionString = "Driver={MySQL ODBC 5.3 UNICODE Driver};Server=localhost;Database=bao_cao_tn;" & _
            "User=root;Password=;Option=3;"
        con.Open  ' 
    có lỗi thì nhảy vào test_error
        kq 
    con.State
        con
    .Close  ' có lỗi thì nhảy vào test_error
    test_end:
        test_connection = kq
        '
    con.Close
        Set con 
    Nothing
        
    Exit Function
    test_error:
        
    kq = -1
        Resume test_end
    End 
    Function