Trích lọc dữ liệu bằng câu lệnh truy vấn SQL

Chia sẻ bởi:hands

★★★★★

‹ Python với Excel – Đọc và ghi... Cập nhật theo lô – Batch update ›

Quảng cáo

LsSQL = "SELECT TEN_HANG,DIEN_GIAI,SUM(XUAT) AS [SL XUAT],SUM(DOANH_THU) AS [DOANH_THU] FROM TIEN WHERE [TEN_HANG] ='" & Range("C2").Value & "' AND [DIEN_GIAI] = '" & Range("D2").Value & "' GROUP BY TEN_HANG,DIEN_GIAI"
Em có file dữ liệu đang cần trích lọc dữ liệu bằng SQL. Ở sheét 1, em có cơ sở dữ liệu. Ở trong sheet 2, em cần lọc theo 2 tiêu chí là Tên hàng (Dạ yến thảo đơn) và diễn giải (bầu). Hiện tại em chỉ lọc được đúng Tên hàng (Dạ yến thảo đơn) và diễn giải (bầu). Giờ em mong muốn là lọc được Tên hàng (Dạ yến thảo đơn) và diễn giải có bầu to, bầu nhỏ (giống toán tử like trong VBA) nhưng chưa biết cách. Em thảo khác bài của anh Hai Lúa thì thấy hình như dùng % nhưng em làm chưa được. Nhờ anh chị và các bạn giúp sửa lại câu lệnh trên cho phù hợp , hoặc giúp em viết lại code mới thì quá tốt. Em cảm ơn.

Bạn thử với code sau nhé:

Sub Tong_xitin()  
Dim cn As Object, adoRS As Object
  Set cn = CreateObject("ADODB.Connection")
  cn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=" & ThisWorkbook.FullName & _
           ";Extended Properties=""Excel 8.0;HDR=Yes;"";")
  Set adoRS = cn.Execute("SELECT TEN_HANG,DIEN_GIAI,SUM(XUAT) AS [SL XUAT],SUM(DOANH_THU) AS [DOANH_THU] " & _
                        "FROM [Sheet1$] " & _
                        "WHERE [TEN_HANG] ='" & Sheets("Sheet2").Range("C3").Value & _
                                "' AND [DIEN_GIAI] like '" & Sheets("Sheet2").Range("D3").Value & _
                        "%' GROUP BY TEN_HANG,DIEN_GIAI")
  With Sheets("Sheet2")
    .Range("A7:D65000").ClearContents
    .Range("A7").CopyFromRecordset adoRS
    .Activate
  End With
  adoRS.Close: cn.Close
  Set cn = Nothing: Set adoRS = Nothing

End Sub

Cảm ơn bạn rất nhiều, đã biết cách thêm % vào. Hay quá. Mình đã thử ok.

Nếu rãnh bạn qua chủ đề ADO căn bản và đố vui ADO để tham khảo thêm nhé.

Cảm ơn bạn nhé, file lúc đầu mình cũng giống bạn rồi nhưng ko hiểu sao ko ra. Test file giả lập thì ok hết. Mình copy code của bạn vào file thật chưa được (chỉ ra được 1 trường hợp bầu như ban đầu của mình, file test thì ok hết nhé. Lạ quá). Mình đang kiểm tra thật kỹ file thật xem tại sao vậy. Chắc do file thôi, code mình nghĩ không vấn đề gì cả
OK rồi bạn ah, do lỗi file của mình thôi. File thật cũng ok rồi