没有为一个或多个必需参数提供视觉基本错误的值

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表中的值 - 不要错过用单引号括起来，比如 ' " & 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 )"