沒有爲一個或多個必需參數的Visual Basic錯誤

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

我建議增加（）周圍的選擇標準：

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

Answer 3

如果你在表INSERT ING值 - 不要錯過在單引號括起來，像 ' " & text1.text & " '

例如：

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