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

[Hỏi] Tự khởi động lại kết nối ODBC

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • [Hỏi] Tự khởi động lại kết nối ODBC
• [Hỏi] Tự khởi động lại kết nối ODBC

• [Hỏi] Tự khởi động lại kết nối ODBC

  AnNguyen > 17-06-20, 12:46 PM

  Trong ứng dụng có một vài chỗ em sử dụng ODBC để kết nối và khi mất kết nối thường xuyên phải thoát hẳn MS Access ra vào lại mới kết nối được ạ?
  Vậy có cách nào để cho nó tự kết nối được không ạ? hoặc là thoát riêng cái form đó thôi. 
  Chứ em thấy thoát cả cụm hơi phiền ạ 
  Em cảm ơn!

• RE: [Hỏi] Tự khởi động lại kết nối ODBC

  ongke0711 > 17-06-20, 07:40 PM

  Vậy chắc là có vấn đề với code kết nối, không có chuyện phải thoát hẳn Access mới kết nối lại được.
  Thường thì tiến trình lấy dữ liệu như sau: (code cho hàm lấy dữ liệu)
  - Kết nối nguồn dữ liệu.Kiểm tra kết nối xem còn sống không, nếu không thì tạo kết nối lại.
  - Tiến hành lấy dữ liệu
  - Đóng Form thì ngắt kết nối.
  - Nếu bị lỗi thì đóng kết nối.
  
  Ví dụ code kết nối như sau:
  
  

  Mã PHP:

  Function ConnectDB(ByVal DBType As DBaseType) As Boolean

    On Error GoTo ConnectDBError

    Dim strConnectSQL As String
    Dim blnNewConnect As Boolean
    Dim blnReturn As Boolean

    blnReturn = True
    blnNewConnect = True

    Call BuildConnectionString(DBType)

    If Not oConn Is Nothing Then  'Kiem tra xem có Connection chua, có rôi thi dung ket noi cu
        If oConn.State And adStateOpen = adStateOpen Then  '-> Da có ket noi
            blnNewConnect = False
        End If
    End If

    If blnNewConnect Then
        Set oConn = New ADODB.Connection
        oConn.ConnectionString = mConnectionString
        oConn.Open
    End If


ConnectDBResume:
    ConnectDB = blnReturn
    Exit Function

ConnectDBError:
    blnReturn = False

    Select Case Err.Number
    Case -2147467259
        MsgBox "Thong so ket noi Database khong dúng.", vbCritical, "Thông báo"
    Case -2147217843
        MsgBox "Sai ten dang nhap hoac mat khau.", vbCritical, "Thông báo"
    Case Else
        MsgBox "Có loi phat sinh." & vbCrLf & "Ma loi: " & Err.Number _
            & "Noi dung: " & Err.Description, vbCritical, "ConnectDB"
    End Select
    Resume ConnectDBResume

End Function 


• RE: [Hỏi] Tự khởi động lại kết nối ODBC

  Xuân Thanh > 18-06-20, 07:20 AM

  Với tôi thì ít khi dùng kết nối bằng ODBC vì thấy không thuận tiện lắm (Thực ra là chưa dùng kết nối này bao giờ thì chính xác hơn). Nếu dùng cho máy đơn thì kết nối bằng LinkTable. Nếu dùng cho mạng LAN hoặc Internet thì kết nối bằng ADO. Kết nối bằng ADO thì chỉ kết nối một lần lúc mở chương trình và đóng một lần khi thoát chương trình. Khi kết nối thì kiểm tra như ongke0711 đã nói ở trên

• RE: [Hỏi] Tự khởi động lại kết nối ODBC

  AnNguyen > 18-06-20, 03:54 PM

  (17-06-20, 07:40 PM)ongke0711 Đã viết: Vậy chắc là có vấn đề với code kết nối, không có chuyện phải thoát hẳn Access mới kết nối lại được.
  Thường thì tiến trình lấy dữ liệu như sau: (code cho hàm lấy dữ liệu)
  - Kết nối nguồn dữ liệu.Kiểm tra kết nối xem còn sống không, nếu không thì tạo kết nối lại.
  - Tiến hành lấy dữ liệu
  - Đóng Form thì ngắt kết nối.
  - Nếu bị lỗi thì đóng kết nối.
  
  Ví dụ code kết nối như sau:
  
  

  Mã PHP:

  Function ConnectDB(ByVal DBType As DBaseType) As Boolean

    On Error GoTo ConnectDBError

    Dim strConnectSQL As String
    Dim blnNewConnect As Boolean
    Dim blnReturn As Boolean

    blnReturn = True
    blnNewConnect = True

    Call BuildConnectionString(DBType)

    If Not oConn Is Nothing Then  'Kiem tra xem có Connection chua, có rôi thi dung ket noi cu
        If oConn.State And adStateOpen = adStateOpen Then  '-> Da có ket noi
            blnNewConnect = False
        End If
    End If

    If blnNewConnect Then
        Set oConn = New ADODB.Connection
        oConn.ConnectionString = mConnectionString
        oConn.Open
    End If


ConnectDBResume:
    ConnectDB = blnReturn
    Exit Function

ConnectDBError:
    blnReturn = False

    Select Case Err.Number
    Case -2147467259
        MsgBox "Thong so ket noi Database khong dúng.", vbCritical, "Thông báo"
    Case -2147217843
        MsgBox "Sai ten dang nhap hoac mat khau.", vbCritical, "Thông báo"
    Case Else
        MsgBox "Có loi phat sinh." & vbCrLf & "Ma loi: " & Err.Number _
            & "Noi dung: " & Err.Description, vbCritical, "ConnectDB"
    End Select
    Resume ConnectDBResume

End Function 


  
  Cái hàm này của anh sử dụng như nào vậy ạ? để em áp dụng vào chỗ kết nối lại ODCB của em.
  Em vẫn dùng theo code này mà 1 lần anh chỉ cho em đó ạ.
  

  Mã:

  Function Tao_Query(ten_qr, cau_lenh) As String
  Dim qdf As QueryDef
    stConnect = "ODBC;DRIVER=SQL Server;SERVER=" & stServer & ";DATABASE=" & stDatabase & ";UID=" & stUser & ";PWD=" & stPass & ";"
    Set qdf = DBEngine(0)(0).CreateQueryDef(ten_qr, cau_lenh)
    qdf.Connect = stConnect
    qdf.Close
    Tao_Query = ten_qr
End Function

  Code đây ạ, cứ mỗi lần có kết nối e mở report ok ạ, nhưng nếu máy chủ mất kết nối thì nó quay 1 lúc rồi báo lỗi ạ chứ không tự kết nối lại dù em có tắt form đi mở lại.

• RE: [Hỏi] Tự khởi động lại kết nối ODBC

  AnNguyen > 18-06-20, 03:58 PM

  (18-06-20, 07:20 AM)Xuân Thanh Đã viết: Với tôi thì ít khi dùng kết nối bằng ODBC vì thấy không thuận tiện lắm (Thực ra là chưa dùng kết nối này bao giờ thì chính xác hơn). Nếu dùng cho máy đơn thì kết nối bằng LinkTable. Nếu dùng cho mạng LAN hoặc Internet thì kết nối bằng ADO. Kết nối bằng ADO thì chỉ kết nối một lần lúc mở chương trình và đóng một lần khi thoát chương trình. Khi kết nối thì kiểm tra như ongke0711 đã nói ở trên

  Có 1 vài chỗ như tạo query để đổ dữ liệu vào report hoặc tạo query sau đó đổ vào 1 table để thao tác trên đó ạ.
  Đó là cách cháu làm vì cũng chưa biết phải làm thế nào với những chỗ như vậy chứ cháu cũng luôn dùng SQLOLEDB để sử dụng ạ
• Bài trước Bài tiếp