When executing the following SQL statment in VB6 I get Runtime Error Line1: Incorrect syntax near '='
I am using SQL 2000 as back end.
Can somebody tell me what am I doing wrong?
conn.Open "Provider=sqloledb; Data Source=acmedc1; Initial Catalog=OrderChecking; Integrated Security=SSPI;"
sql = "SELECT tblHeader.PO, tblHeader.BillName, tblHeader.BillAddress1, tblHeader.BillAddress2, " & _
"tblHeader.BillAddress3, tblHeader.BillCity, tblHeader.BillState, tblHeader.BillZip, " & _
"tblHeader.ShipName, tblHeader.ShipAddress1, tblHeader.ShipAddress2, tblHeader.ShipAddress3, " & _
"tblHeader.ShipCity, tblHeader.ShipState, tblHeader.ShipZip, tblDetails.ItemNo, " & _
"tblHeader.StoreNo, tblDetails.[Desc], tblDetails.Color, tblDetails.Style, 1 AS CartonCount, " & _
"tblDetails.[Size] AS [Size],IIf(tblDetails.[Size] = ""XS"",tblCartons.Qty,"""") AS XSQty, tblDetails.ItemNo as CustItem " & _
"FROM (tblHeader INNER JOIN tblDetails ON tblHeader.SO = tblDetails.SO) " & _
"INNER JOIN tblCartons ON (tblDetails.[LineNo] = tblCartons.[LineNo]) " & _
"AND (tblDetails.SO = tblCartons.SO) AND (tblDetails.ItemNo = tblCartons.ItemNo) " & _
WHERE (((tblHeader.SO) = '" & sOrder & "')) ORDER BY tblCartons.CartonNo"
Set rs = conn.Execute(sql)
I am using SQL 2000 as back end.
Can somebody tell me what am I doing wrong?
conn.Open "Provider=sqloledb; Data Source=acmedc1; Initial Catalog=OrderChecking; Integrated Security=SSPI;"
sql = "SELECT tblHeader.PO, tblHeader.BillName, tblHeader.BillAddress1, tblHeader.BillAddress2, " & _
"tblHeader.BillAddress3, tblHeader.BillCity, tblHeader.BillState, tblHeader.BillZip, " & _
"tblHeader.ShipName, tblHeader.ShipAddress1, tblHeader.ShipAddress2, tblHeader.ShipAddress3, " & _
"tblHeader.ShipCity, tblHeader.ShipState, tblHeader.ShipZip, tblDetails.ItemNo, " & _
"tblHeader.StoreNo, tblDetails.[Desc], tblDetails.Color, tblDetails.Style, 1 AS CartonCount, " & _
"tblDetails.[Size] AS [Size],IIf(tblDetails.[Size] = ""XS"",tblCartons.Qty,"""") AS XSQty, tblDetails.ItemNo as CustItem " & _
"FROM (tblHeader INNER JOIN tblDetails ON tblHeader.SO = tblDetails.SO) " & _
"INNER JOIN tblCartons ON (tblDetails.[LineNo] = tblCartons.[LineNo]) " & _
"AND (tblDetails.SO = tblCartons.SO) AND (tblDetails.ItemNo = tblCartons.ItemNo) " & _
WHERE (((tblHeader.SO) = '" & sOrder & "')) ORDER BY tblCartons.CartonNo"
Set rs = conn.Execute(sql)