Chào anh chị GPE, em đang học và tìm hiểu ADO, xin anh chị giúp em với nhé!
Thay vì Lưu hóa đơn bán hàng sang sheet TongHop như thông thường thì em muốn đẩy nó vào Access thông qua ADO.
Em có tạo một file database Access gồm những cột như mong muốn.
Sau khi đưa dữ liệu vào mảng thì từ mảng đó mình đưa vào Access như thế nào ạ?
Anh chị hãy giúp em điền tiếp dữ liệu ở code bên dưới để đưa vào file data Access với.
Đây là mẫu hóa đơn:
Đây là code em mới viết tới đây:
Em có gửi File đính kèm gồm file Excel và file data access ạ!
Em xin cảm ơn nhiều. Em mới học nên cho phép em xin hỏi từng bước từng bước ạ!
Thay vì Lưu hóa đơn bán hàng sang sheet TongHop như thông thường thì em muốn đẩy nó vào Access thông qua ADO.
Em có tạo một file database Access gồm những cột như mong muốn.
Sau khi đưa dữ liệu vào mảng thì từ mảng đó mình đưa vào Access như thế nào ạ?
Anh chị hãy giúp em điền tiếp dữ liệu ở code bên dưới để đưa vào file data Access với.
Đây là mẫu hóa đơn:
Đây là code em mới viết tới đây:
Mã:
Sub LuuHoaDon_ADO()
Dim lr As Long, i As Long, a As Long
Dim darr(), sarr(), lrData As Long
'1. Dua du lieu vao mang
darr = Range("B11:G25").Value
ReDim sarr(1 To UBound(darr, 1), 1 To 12)
For i = 1 To UBound(darr)
If darr(i, 1) <> "" Then
a = a + 1
sarr(a, 1) = darr(i, 1) ' ten hang
sarr(a, 2) = darr(i, 2) ' DVT
sarr(a, 3) = darr(i, 3) ' Sl
sarr(a, 4) = darr(i, 4) ' don gia
sarr(a, 5) = darr(i, 5) ' thanh tien
sarr(a, 6) = darr(i, 6) ' ghi chu
sarr(a, 7) = Range("G1").Value 'so HD
sarr(a, 8) = Range("G2").Value ' ngay
sarr(a, 9) = Range("B3").Value ' ten kh
sarr(a, 10) = Range("B4").Value ' dia chi
sarr(a, 11) = Range("F4").Value ' dien thoai
End If
Next i
'With Sheets("TongHop")
' lr = .Range("A" & Rows.Count).End(xlUp).Row + 1
' .Range("A" & lr).Resize(a, 11).Value = sarr
'End With
' dua du lieu vao access
Dim cnn As Object: Dim rst As Object
Set cnn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
With cnn
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\db.accdb;Persist Security Info=False;"
.Open
End With
' tiep theo
'Sort du lieu trong Access
End SubEm có gửi File đính kèm gồm file Excel và file data access ạ!
Em xin cảm ơn nhiều. Em mới học nên cho phép em xin hỏi từng bước từng bước ạ!
