Dữ liệu mẫu ADO offline

Liên hệ QC

Hai Lúa Miền Tây

❆❆❆❆❆❆❆❆
Thành viên BQT
Administrator
Tham gia
18/3/08
Bài viết
8,281
Được thích
15,776
Giới tính
Nam
Nghề nghiệp
Làm ruộng.
Chuẩn bị dữ liệu để thành viên test.

Mã:
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
 

File đính kèm

  • ADO_Database.rar
    1.9 MB · Đọc: 20
  • ADO_Database.zip
    1.9 MB · Đọc: 20
  • ADO (Phan Can Ban).pdf
    1.6 MB · Đọc: 22
  • ADO_NangCao_HV.rar
    1.3 MB · Đọc: 11
  • ADO_NangCao_HV.zip
    1.7 MB · Đọc: 10
Lần chỉnh sửa cuối:
Web KT
Back
Top Bottom