Code kiểm tra kết nối Server nếu không được thì thoát sub.

Liên hệ QC

HUYNHTIEN0202

Thành viên chính thức
Tham gia
22/8/14
Bài viết
87
Được thích
1
Chào các Anh Chị
Hiện tại mình đang dùng dữ liệu kết nối SQL Server,mình muốn bổ sung thêm điều kiện,nếu kết nối không đúng thì Exit sub.
Mã:
Dim Cnn As Object, lrs As Object, lrs1 As ObjectDim dArr(), I As LongOn Error Resume NextApplication.ScreenUpdating = False    Set Cnn = CreateObject("ADODB.Connection")'Ket noi voi Server'-------------------------------------------------------------------------------------------------    Cnn.Open ("DRIVER=SQL Server;SERVER=168.81.6.12,1455;UID=AnhTuan;PWD=T@m#2019;DATABASE=Quanli")
'--
 
Khi dùng bẫy lỗi sử dụng thuộc tính Error:
PHP:
On Error Resume Next
Cnn.Open ("DRIVER=SQL Server;SERVER=168.81.6.12,1455;UID=AnhTuan;PWD=T@m#2019;DATABASE=Quanli")
If err.Number <> 0 then exit sub

Khi kiểm tra kết nối:
PHP:
'adStateClosed         0 
'adStateOpen           1  
'adStateConnecting     2 
'adStateExecuting      4 
'adStateFetching       8
If Not Cnn Is Nothing Then _
    If Cnn.State <> 1 Then Exit Sub
 
Lần chỉnh sửa cuối:
Khi dùng bẫy lỗi sử dụng thuộc tính Error:
PHP:
On Error Resume Next
Cnn.Open ("DRIVER=SQL Server;SERVER=168.81.6.12,1455;UID=AnhTuan;PWD=T@m#2019;DATABASE=Quanli")
If err.Number <> 0 then exit sub

Khi kiểm tra kết nối:
PHP:
'adStateClosed         0
'adStateOpen           1 
'adStateConnecting     2
'adStateExecuting      4
'adStateFetching       8
If Not Cnn Is Nothing Then _
    If Cnn.State <> 1 Then Exit Sub
Cám ơn nhiều.
 
Web KT
Back
Top Bottom