Question

我正在尝试运行此代码但收到编译错误 - INSERT ....行上的语句的预期结束。

可能出现什么问题？

Private Sub cmdInbound_Transport_Click()

Dim iProduct As Integer

iProductID = DLookup("DefaultProductID", "tblProductType", "ProductTypeID" = 1)

INSERT INTO tblGuestProduct (ProductID, GuestID,) VALUES (iProductID,tblBooking!subGuest.GuestID);

End Sub

Answer 1

您的Insert语句中有一个额外的逗号。试试这个，

   INSERT INTO tblGuestProduct (ProductID, GuestID) 
   VALUES (iProductID,tblBooking!subGuest.GuestID);

Answer 2

删除逗号（GuestID附近）。插入行应该是这样的：

INSERT INTO tblGuestProduct (ProductID, GuestID) VALUES (iProductID,tblBooking!subGuest.GuestID);

完整代码：

Private Sub cmdInbound_Transport_Click()

Dim iProduct As Integer

iProductID = DLookup("DefaultProductID", "tblProductType", "ProductTypeID" = 1)

INSERT INTO tblGuestProduct (ProductID, GuestID) VALUES (iProductID,tblBooking!subGuest.GuestID);

End Sub

SQL INSERT代码进行故障排除

2 个答案: