vba - 一个或多个所需参数未给出值 视觉基本错误

Question

此错误出现在 vb 代码的以下行中

 rs.Open "select * From Reservation where [table_number]=tablenumber.text and booking_date=bookingdate.Text", cn, adOpenStatic, adLockPessimistic

Answer 1

这是您的 SQL 查询的问题。该消息的原因是 SQL 解析器无法识别 SQL 查询中的标记，并将其解释为您需要为其提供值的参数。

因此，您要么错误地输入了某些字段或表名，要么以错误的方式创建了 SQL。我想后者，它应该读

 rs.Open "select * From Reservation where [table_number] = " & tablenumber.text & " and booking_date=" & bookingdate.Text, cn, adOpenStatic, adLockPessimistic

因为tablenumber并且bookingdate很可能是表单控件。

上面的查询不能开箱即用，因为您需要为 SQL 查询使用正确的数据类型，我无法根据您的稀疏信息推断出这些数据类型。

Answer 2

如果您INSERT在 TABLE 中输入值 - 不要错过将其括在单引号中，例如 ' " & text1.text & " '

例子：

INSERT into [TABLE NAME]([Purchase Order Status]) values(' " & text1.text & " ')

Answer 3

我建议在选择标准周围添加 ()：

rs.Open "select * From Reservation where ( [table_number]=tablenumber.text and booking_date=bookingdate.Text )"