alohn
Thành viên chính thức


- Tham gia
- 21/12/07
- Bài viết
- 59
- Được thích
- 13
Mình đang viết một đoạn sub query mà bị lỗi hoài, chưa tìm ra sai chỗ nào. Mong anh em sửa giúp mình với.
Sub Tk()
day
KetNoi
mySql = "SELECT InventoryItemCode, InventoryItemName, Unit, Sum(OpenQuantity), Sum(InwardQuantity), Sum(OutwardQuantity)" & Chr(10) & _
"From (SELECT II.InventoryItemCode, II.InventoryItemName, II.Unit, Sum(IL.InwardQuantity) - Sum(IL.OutwardQuantity) As OpenQuantity , sum(0) As InwardQuantity, sum(0) As OutwardQuantity" & Chr(10) & _
"FROM dbo.InventoryItem As II, dbo.InventoryLedger As IL, dbo.Stock As ST" & Chr(10) & _
"WHERE II.InventoryItemID = IL.InventoryItemID AND IL.StockID = St.StockID AND ((IL.RefDate<'" & gTimeFrom & "') AND (St.StockCode='155'))" & Chr(10) & _
"GROUP BY II.InventoryItemCode, II.InventoryItemName, II.Unit" & Chr(10) & _
"Union all" & Chr(10) & _
"SELECT II.InventoryItemCode, II.InventoryItemName, II.Unit, Sum(0) As OpenQuantity, Sum(IL.InwardQuantity) As InwardQuantity, Sum(IL.OutwardQuantity) As OutwardQuantity" & Chr(10) & _
"FROM dbo.InventoryItem As II, dbo.InventoryLedger As IL, dbo.Stock As ST" & Chr(10) & _
"WHERE II.InventoryItemID = IL.InventoryItemID AND IL.StockID = St.StockID AND ((IL.RefDate BETWEEN '" & gTimeFrom & "' AND '" & gTimeTo & "') AND (St.StockCode='155'))" & Chr(10) & _
"GROUP BY II.InventoryItemCode, II.InventoryItemName, II.Unit)"
rs.Open mySql, cnn, adOpenKeyset, adLockOptimistic
Sheet8.Range("A4").CopyFromRecordset rs
BoKetNoi
End Sub
Khi chạy Debug báo lỗi Incorrect syntax near ')' không biết có phải sai ở đoạn mình để màu đỏ đậm không, mong các anh em xem giúp đoạn query trên đã đúng "ngữ pháp" chưa.
Tìm hoài mà không biết mình sai ở chỗ nào 
Sub Tk()
day
KetNoi
mySql = "SELECT InventoryItemCode, InventoryItemName, Unit, Sum(OpenQuantity), Sum(InwardQuantity), Sum(OutwardQuantity)" & Chr(10) & _
"From (SELECT II.InventoryItemCode, II.InventoryItemName, II.Unit, Sum(IL.InwardQuantity) - Sum(IL.OutwardQuantity) As OpenQuantity , sum(0) As InwardQuantity, sum(0) As OutwardQuantity" & Chr(10) & _
"FROM dbo.InventoryItem As II, dbo.InventoryLedger As IL, dbo.Stock As ST" & Chr(10) & _
"WHERE II.InventoryItemID = IL.InventoryItemID AND IL.StockID = St.StockID AND ((IL.RefDate<'" & gTimeFrom & "') AND (St.StockCode='155'))" & Chr(10) & _
"GROUP BY II.InventoryItemCode, II.InventoryItemName, II.Unit" & Chr(10) & _
"Union all" & Chr(10) & _
"SELECT II.InventoryItemCode, II.InventoryItemName, II.Unit, Sum(0) As OpenQuantity, Sum(IL.InwardQuantity) As InwardQuantity, Sum(IL.OutwardQuantity) As OutwardQuantity" & Chr(10) & _
"FROM dbo.InventoryItem As II, dbo.InventoryLedger As IL, dbo.Stock As ST" & Chr(10) & _
"WHERE II.InventoryItemID = IL.InventoryItemID AND IL.StockID = St.StockID AND ((IL.RefDate BETWEEN '" & gTimeFrom & "' AND '" & gTimeTo & "') AND (St.StockCode='155'))" & Chr(10) & _
"GROUP BY II.InventoryItemCode, II.InventoryItemName, II.Unit)"
rs.Open mySql, cnn, adOpenKeyset, adLockOptimistic
Sheet8.Range("A4").CopyFromRecordset rs
BoKetNoi
End Sub
Khi chạy Debug báo lỗi Incorrect syntax near ')' không biết có phải sai ở đoạn mình để màu đỏ đậm không, mong các anh em xem giúp đoạn query trên đã đúng "ngữ pháp" chưa.

