• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Kiểm tra kết nối

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • Kiểm tra kết nối
• 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 

• Bài trước Bài tiếp