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

[HUYNHTIEN0202]

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.

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")
'--

 

[HeSanbi]

Khi dùng bẫy lỗi sử dụng thuộc tính Error:

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:

'adStateClosed         0 
'adStateOpen           1  
'adStateConnecting     2 
'adStateExecuting      4 
'adStateFetching       8
If Not Cnn Is Nothing Then _
    If Cnn.State <> 1 Then Exit Sub

 

[HUYNHTIEN0202]

Khi dùng bẫy lỗi sử dụng thuộc tính Error:

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:

'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.