Dữ liệu mẫu ADO offline (2 người xem)

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

Chuẩn bị dữ liệu để thành viên test.

Private Sub ADO_LayDL(ByVal rsRange As Range, ByVal tgBook As String, ByVal sqlStr As String, Hdr As Boolean)
    Dim v As Integer
    v = Val(Application.Version)
    With CreateObject("ADODB.Connection")
        .Open ("Provider=Microsoft." & IIf(v < 12, "ACE.OLEDB.12.0", "JET.OLEDB.4.0") & ";Data Source=" & tgBook & ";Extended Properties=""Excel " & IIf(v < 12, "12.0", "8.0") & ";HDR=" & IIf(Hdr = False, "No", "Yes") & """")
        rsRange.CopyFromRecordset .Execute(sqlStr)
    End With
End Sub
Sub LayDL()
fileNguon = ThisWorkbook.FullName '.Path & "\FileNguon.xlsx"
truyVan = "Select * From [Input_Database$]"
ADO_LayDL Sheet3.Range("A2"), fileNguon, truyVan, True
End Sub


strcon = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
   "Data Source=E:\Student.accdb;" & _
   "User Id=admin;Password=****"

Vui lòng không phê duyệt đề tài này

 

[ERX_Vietnam]

Cập nhật file AccessDatabaseEngine 32 bi & 64 bit

https://www.fshare.vn/file/HEAXKRTMESK5
https://www.fshare.vn/file/PTS7CV2DHX12