Trích lọc dữ liệu bằng ADODB

[chipiu3001]

Chào các bạn

Mình đang tìm hiểu về ADODB nhưng thây khó quá

Mình đang có 1 ví dụ về trích lọc dữ liệu từ 1 file sang 1 file khác: Điều kiện lọc theo mã hàng thôi ah

Các bạn viết code giúp mình và giải thích giùm nhé

Cảm ơn các bạn!

 

[Let'GâuGâu]

Chào các bạn

Mình đang tìm hiểu về ADODB nhưng thây khó quá

Mình đang có 1 ví dụ về trích lọc dữ liệu từ 1 file sang 1 file khác: Điều kiện lọc theo mã hàng thôi ah

Các bạn viết code giúp mình và giải thích giùm nhé

Cảm ơn các bạn!

tôi cũng đang tập (mất cả ngày trời đánh vật với nó, thử xem nha

Option Explicit


Sub test()
    Dim rsCon As Object
    Dim rsData As Object
    Dim szConnect, SourceFile, SourceSheet, SourceRange As String
    Dim szSQL As String
    Dim lCount As Long
  SourceFile = "E:\New folder\Database.xlsx" ' chinh lai theo thu muc
  SourceSheet = "Sheet1"
  SourceRange = "A3:D50000"
    
    szConnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                        "Data Source=" & SourceFile & ";" & _
                        "Extended Properties=""Excel 12.0;HDR=No"";"
    szSQL = "SELECT * FROM [" & SourceSheet & "$" & SourceRange$ & "]" & "WHERE (F1=" & [G5] & ")"

    Set rsCon = CreateObject("ADODB.Connection")
    Set rsData = CreateObject("ADODB.Recordset")

    rsCon.Open szConnect
    rsData.Open szSQL, rsCon, 0, 1, 1
    
    If Not rsData.EOF Then
        [a6].CopyFromRecordset rsData
    Else
        MsgBox "No records returned from : " & SourceFile, vbCritical
    End If

    rsData.Close
    Set rsData = Nothing
    rsCon.Close
    Set rsCon = Nothing


End Sub

 

[chipiu3001]

Cảm ơn bạn nha. Mình cũng tìm cho mình được câu trả lời rồi.

Mình thử cách của bạn cũng OK bạn ah.

Mình cũng đang loay hoay. Tìm ví dụ trên mạng rồi đang tìm hiểu từng đoạn code có ý nghĩa gì. khó hiểu thật.

Một lần nữa cảm ơn bạn nha

 

[leviet]

ANH ƠI CHO EM HỎI ,EM MUỐN LỌC THEO TÊN(DẠNG TEXT) , CÓ THỂ THAY DOI THEO CELL , THI PHAI CHINH DOAN NAY NHU THẾ NÀO AH, "WHERE (F1=" & [G5] & ")"

 

[khanhhero]

ANH ƠI CHO EM HỎI ,EM MUỐN LỌC THEO TÊN(DẠNG TEXT) , CÓ THỂ THAY DOI THEO CELL , THI PHAI CHINH DOAN NAY NHU THẾ NÀO AH, "WHERE (F1=" & [G5] & ")"

WHERE (F1='" & [G5] & "')"

 

[leviet]

WHERE (F1='" & [G5] & "')"

WHERE (F1='" & [G5] & "')"

cam on anh, phien anh giúp đỡ thêm 1 chút nữa ah, em muốn lọc thêm 1 dữ liệu(cũng theo dạng text luôn) nữa thì WHERE (F1='" & [G5] & "')" AND ....như thế nào nữa ah

 

[leonguyenz]

cam on anh, phien anh giúp đỡ thêm 1 chút nữa ah, em muốn lọc thêm 1 dữ liệu(cũng theo dạng text luôn) nữa thì WHERE (F1='" & [G5] & "')" AND ....như thế nào nữa ah

Thử với điệu kiện lọc ở G5 và H5:
- Hoặc: Where F1 ='" & [G5] & "' Or F1 = '" & [H5] & "'"
- Và: Where F1 ='" & [G5] & "' And F2 = '" & [H5] & "'"

 

[thetrungkien]

Chào các bạn

Mình đang tìm hiểu về ADODB nhưng thây khó quá

Mình đang có 1 ví dụ về trích lọc dữ liệu từ 1 file sang 1 file khác: Điều kiện lọc theo mã hàng thôi ah

Các bạn viết code giúp mình và giải thích giùm nhé

Cảm ơn các bạn!

Chào các bạn

Mình đang tìm hiểu về ADODB nhưng thây khó quá

Mình đang có 1 ví dụ về trích lọc dữ liệu từ 1 file sang 1 file khác: Điều kiện lọc theo mã hàng thôi ah

Các bạn viết code giúp mình và giải thích giùm nhé

Cảm ơn các bạn!

Dùng ADODB chi cho vất vả và phức tạp bạn
Mình nghĩ chắc là bạn cần lọc dữ liệu theo mã hàng để tính số lượng, nên chỉ cần dùng hàm SUBTOTAL vào ô D2
sau đó còn lại cho lọc dữ liệu thế là xong, dữ liệu lọc thay đổi thì hàm cũng thay đổi
còn khi muốn chép dữ liệu đã lọc chỉ cần copy sang file khác hoặc sheet khác là xong
mình gủi lại file nhé