Hoàn toàn đúng thế anh à, do HLMT không chịu kiểm tra kỹ trước khi viết. Anh muốn lọc theo điều kiện sau khi tính toán? Cột Sum(AMOUNT) là sau khi tính toán, do vậy nó phải nằm sau cái GroupBy, mà nằm sau Group By thì phải dùng Having.
Dùng tạm code này thử, đang nghĩ cách rút gọn phần or.
Sub SumSQL()
Dim strPath$, mySQL$
Dim Cnn As New ADODB.Connection
Dim Rcs As New ADODB.Recordset
'-------------------------------------------------------------------------
'Tuy chon Loai BC combobox phu hop SQL text sau menh de Where
strPath = ThisWorkbook.FullName
Set Cnn = New ADODB.Connection
'Tao Ket noi voi file du lieu nguon:
Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPath & _
";Persist Security Info=False; Extended Properties=Excel 8.0;"
'---------------------------------------------------------------------------
mySQL = "SELECT * FROM [DATA$]" & Chr(10)
mySQL = mySQL & "where MaHS='T10' AND Dottrinh=2 and" & Chr(10)
mySQL = mySQL & "(Mamuc='B4' or Mamuc='III' or Mamuc='V' or Mamuc='VII' or Mamuc='VIII')" & Chr(10)
'B4; III; V; VII; VIII
Rcs.Open mySQL, Cnn, adOpenKeyset, adLockOptimistic
'---------------------------------------------------------------------------
With Sheets("Report")
.Range("A2:D100").ClearContents
.[A2].CopyFromRecordset Rcs
End With
'Refresh lai hai bien cnEx va Rcs:
Rcs.Close: Set Rcs = Nothing
Cnn.Close: Set Cnn = Nothing
End SubmySQL = mySQL & "(Mamuc='B4' or Mamuc='III' or Mamuc='V' or Mamuc='VII' or Mamuc='VIII')" & Chr(10)mySQL = mySQL & "instr('B4; III; V; VII; VIII',Mamuc)"
Sao bạn không đưa nó vào list mà đưa vào textbox?
Sửa câu SQL lại
mySQL = "SELECT MaHS, Mamuc, sum(Soluong) FROM [DATA$]" & Chr(10)
mySQL = mySQL & "where MaHS='T10' AND Dottrinh=2 and" & Chr(10)
mySQL = mySQL & "instr('B4; III; V; VII; VIII',Mamuc)" & Chr(10)
mySQL = mySQL & "group by MaHs, Mamuc, Dottrinh;"Em đưa vào textbox vì nhìn nó đẹp hơn ạh
Câu lệnh:
Hình như còn thiếu 1 DK là T10 anh à.
mySQL = "SELECT MaHS, Mamuc, Sum(SoLuong) " _
& "FROM [DATA$] " _
& "WHERE Dottrinh = 2 AND MaHS='T10' " _
& "AND (Mamuc='B4' Or Mamuc='III' Or Mamuc='V' " _
& "Or Mamuc='VII' Or Mamuc='VIII') " _
& "GROUP BY MaHS, Mamuc" mySQL = "SELECT MaHS, Mamuc, Sum(SoLuong) " _
& "FROM [DATA$] " _
& "WHERE Dottrinh = 2 " _
& "GROUP BY MaHS, Mamuc " _
& "HAVING MaHS='T10' AND (Mamuc ='B4' " _
& "Or Mamuc='III' Or Mamuc='V' " _
& "Or Mamuc='VII' Or Mamuc='VIII');" Dim arr, str As String, i As Long
arr = Array("'III'", "'V'", "'VII'", "'VIII'")
str = "Dottrinh = 2 AND MaHS='T10' AND (Mamuc='B4'"
For i = 0 To UBound(arr)
str = str & " Or Mamuc=" & arr(i)
Next
str = str & ") "
[COLOR=#0000cd] mySQL = "SELECT MaHS, Mamuc, Sum(SoLuong) " _
& "FROM [DATA$] " _
& "WHERE " & [/COLOR][COLOR=#ff0000][B]str [/B][/COLOR][COLOR=#0000cd]_
& "GROUP BY MaHS, Mamuc"
[/COLOR]Sao kg dùng Instr cho khỏe
sTxt = "B4;III;V;VII;VIII"mySQL = "SELECT MaHS, Mamuc, sum(Soluong) FROM [DATA$]" & Chr(10)
mySQL = mySQL & "where MaHS='T10' AND Dottrinh=2 and" & Chr(10)
mySQL = mySQL & "instr('" & sTxt & "',Mamuc)" & Chr(10) sTxt = "B4,III,V,VII,VIII"Khổ ghê, hàm Instr trong VBA chớ gì.
sTxt = "B4,III,V,VII,VIII"sTxt = "B4;III;V;VII;VIII;"MySql = MySql & "instr('" & sTxt & "',Mamuc & ';' )" & Chr(10)Nhờ HL giải thích giúp, nếu dùng biến trung gian eD và fD thì OK nhưng dùng thẳng CVDate(fDate) và CVDate(eDate) thì kg được.
Sub LayDuLieuDK2()
On Error GoTo loi
Dim lsSQL As String: Dim rst As New ADODB.Recordset
Dim sXuatXu$, fDate$, eDate$
Dim eD&, fD&
sXuatXu = "VietNam"
eDate = "20/07/2012"
fDate = "08/06/2012"
eD = CVDate(eDate): fD = CVDate(fDate)
If cnn.State <> 1 Then Moketnoi
lsSQL = "SELECT *" & Chr(10)
lsSQL = lsSQL & "FROM tblData" & Chr(10)
lsSQL = lsSQL & "Where [origin] LIKE '" & sXuatXu & "'" & Chr(10)
lsSQL = lsSQL & "and [W_HDATE] >=" & fD & Chr(10)
lsSQL = lsSQL & "and [W_HDATE] <=" & eD
rst.Open lsSQL, cnn, adOpenStatic, adLockReadOnly
With Sheets("BC")
.Cells.ClearContents
.Range("A5").CopyFromRecordset rst
End With
rst.Close
Set rst = Nothing
cnn.Close
Set cnn = Nothing
Exit Sub
loi:
MsgBox Err.Description
End SubĐã test với rào # rồi. Nếu # thì nó sẽ chưa hiểu dd/mm/yyyy mà nó hiểu mm/dd/yyyy
