-
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