Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Kiểm tra kết nối
#1
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 
Chữ ký của thucgia Hix, Access quả nhiên lợi hại !!!! http://vibigaba.esy.es/
ღღღღღTài sản của thucgia (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#2
(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 
Chữ ký của thucgia Hix, Access quả nhiên lợi hại !!!! http://vibigaba.esy.es/
ღღღღღTài sản của thucgia (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] lệnh tìm kiếm và hiển thị kết quả tìm kiếm trên form tvn_hut 12 1,014 25-06-16, 12:22 AM
Bài mới nhất: zinzin8x
Photo [Thủ Thuật] Phần mềm Kiểm phiếu bầu cử đại biểu Quốc hội và HĐND các cấp trav2t 16 2,742 21-06-16, 03:37 PM
Bài mới nhất: tienpq
  [Hàm] [Demo] Hàm kiểm tra IP tắt hay mở maidinhdan 5 313 05-06-16, 12:47 AM
Bài mới nhất: maidinhdan
  [Thủ Thuật] In kết quả record sau khi tìm kiếm có điều kiện với hình ảnh khi có đường dẫn tvn_hut 5 540 18-01-16, 04:24 PM
Bài mới nhất: tranthanhan1962
  [Thủ Thuật] lập trình ADO và kiểm tra bộ nhớ thucgia 0 263 28-09-15, 12:52 AM
Bài mới nhất: thucgia

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ