[HỎI] Dùng ADO để kết nối 1 file Access trên Dropbox như thế nào?

[Hoàng Trọng Nghĩa]

Tôi mới tập tành một thử nghiệm, tôi cài 1 bản Dropbox free và tạo lưu 1 file Access trên đó, tuy nhiên tôi kết nối bằng ADO không thành công. Các anh chị nào có kinh nghiệm về cái này xin hướng dẫn giúp mình làm sao kết nối được với file lưu trữ trên Dropbox.

Xin cám ơn rất nhiều.

Đây là code:

Public pblAdoConnection As Object


Function AdoConnectToAccess(ByVal strPath As String) As Boolean

    On Error GoTo Handler

    Dim strAdoConn As String

    Set pblAdoConnection = CreateObject("ADODB.Connection")

    strAdoConn = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & strPath & " ;" & _

                 "Jet OLEDB:Database Password=" & pblDbPassword & ";"

    pblAdoConnection.Open strAdoConn

    AdoConnectToAccess = True

    Exit Function

Handler:

    AdoConnectToAccess = False

    Set pblAdoConnection = Nothing

    Err.Clear

    MsgBox "Connecting fail, try again!", vbOKOnly, "Warning"

End Function





Sub test()

    On Error Resume Next

    ''Cái này thì duoc:

    'AdoConnectToAccess "C:\Users\Administrator\Dropbox\ThiNghiemDropbox.accdb"

  
    ''Nhung cái này thì không:

    AdoConnectToAccess "https://www.dropbox.com/s/mtupyei8pqtzzmo/ThiNghiemDropbox.accdb"

    pblAdoConnection.Close

End Sub

 

[Nguyễn Duy Tuân]

DropBox chỉ phù hợp để đồng bộ dữ liệu file thông thường. Với CSDL nó liên quan đến connection và sẽ ảnh hưởng với cách tương tác của DropBox. Cũng như Excel, nhiều người tưởng đưa vào DrobBox là cùng nhập liệu chung nhưng không thể được.

Nếu anh Nghĩa muốn share dữ liệu online thì nên quan tâm đến các CSDL như MySQL, SQL Server. Còn nếu vẫn muốn dùng Excel, Access cho nhiều người cùng mở qua mạng thì dùng giải pháp mà em vẫn hay chia sẻ trên GPE và trên Youtube mới là thuốc chữa.

 

[Hai Lúa Miền Tây]

Tôi mới tập tành một thử nghiệm, tôi cài 1 bản Dropbox free và tạo lưu 1 file Access trên đó, tuy nhiên tôi kết nối bằng ADO không thành công. Các anh chị nào có kinh nghiệm về cái này xin hướng dẫn giúp mình làm sao kết nối được với file lưu trữ trên Dropbox.

Xin cám ơn rất nhiều.

Đây là code:

Public pblAdoConnection As Object


Function AdoConnectToAccess(ByVal strPath As String) As Boolean

    On Error GoTo Handler

    Dim strAdoConn As String

    Set pblAdoConnection = CreateObject("ADODB.Connection")

    strAdoConn = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & strPath & " ;" & _

                 "Jet OLEDB:Database Password=" & pblDbPassword & ";"

    pblAdoConnection.Open strAdoConn

    AdoConnectToAccess = True

    Exit Function

Handler:

    AdoConnectToAccess = False

    Set pblAdoConnection = Nothing

    Err.Clear

    MsgBox "Connecting fail, try again!", vbOKOnly, "Warning"

End Function





Sub test()

    On Error Resume Next

    ''Cái này thì duoc:

    'AdoConnectToAccess "C:\Users\Administrator\Dropbox\ThiNghiemDropbox.accdb"

 
    ''Nhung cái này thì không:

    AdoConnectToAccess "https://www.dropbox.com/s/mtupyei8pqtzzmo/ThiNghiemDropbox.accdb"

    pblAdoConnection.Close

End Sub

Em nhớ là anh đã cài SQLServer vào máy rồi + thêm anh đã có IP tĩnh thì dùng luôn SQLServer đi anh. Nếu ban đầu anh ngại thì anh có thể link cái Access đó vào Server rồi mình cấu hình cho kết nối thôi anh.