Nhờ anh em sửa giúp đoạn query này (1 người xem)

[alohn]

Sub TK()
day
KetNoi
mySql = "Select InventoryItemCode,InventoryItemName, Unit, Sum(Closing) As Closing ,Sum(InwardQuantity) as InwardQuantity ,sum(OutwardQuantity) as OutwardQuantity" & Chr(10) & _
"From (SELECT II.InventoryItemCode, II.InventoryItemName, II.Unit,Sum(IL.InwardQuantity) - Sum(IL.OutwardQuantity) As Closing, NULL As InwardQuantity, NULL as OutwardQuantity " & Chr(10) & _
"FROM dbo.InventoryItem As II, dbo.InventoryLedger As IL" & Chr(10) & _
"WHERE II.InventoryItemID = IL.InventoryItemID AND (IL.RefDate<'" & gTimeFrom & "')" & Chr(10) & _
"GROUP BY II.InventoryItemCode, II.InventoryItemName, II.Unit" & Chr(10) & _
"Union all" & Chr(10) & _
"SELECT II.InventoryItemCode, II.InventoryItemName, II.Unit,NULL as Closing, Sum(IL.InwardQuantity) As InwardQuantity , Sum(IL.OutwardQuantity) as OutwardQuantity " & Chr(10) & _
"FROM dbo.InventoryItem As II, dbo.InventoryLedger As IL" & Chr(10) & _
"WHERE II.InventoryItemID = IL.InventoryItemID AND (IL.RefDate BETWEEN '" & gTimeFrom & "' AND '" & gTimeTo & "')" & 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 Debug báo lỗi An object or column name is missing or empty. For select into statement, verify each column has a name . For other statement, look for empty alias name. Aliases defined as "" or [] are not allowed. Add a name or single space as the alias name.

Nhờ các cao thủ xem hộ với, cảm ơn anh em nhiều.

 

[ptm0412]

Trong dữ liệu gốc có 1 (hoặc vài) field không có field name.
Hoặc bản thân biến dbo không tồn tại