我正尝试在一个名为‘Noofday’的数据库中选择一个表中的字段,以便在以后的计算中使用。我的问题是它的值仍然是0。
以下是我的代码
Private Sub GetRentalDays()
'Select the rental record for the Current Rental with ID CurrentRentalID
If DbConnect() Then
Dim SQLCmd As New OleDbCommand
With SQLCmd
.Connection = cn
.CommandText = "Select Tbl_Rental.RentalID, Tbl_Rental.Noofdays from Tbl_Rental Where RentalID = @CurrentrentalID"
.Parameters.AddWithValue("@RentalID", CurrentRentalID)
Dim rs As OleDbDataReader = .ExecuteReader()
While rs.Read
RentalDayCount = rs("Noofdays")
End While
End With
End If
早些时候,当用户创建新的租房时,它将租房id设置为当前的租房id,现在正尝试从租房表中选择该租房,并获取Noofday值。我正在尝试将该值赋给'Rentaldaycount‘
如有任何帮助,将不胜感激
发布于 2018-11-07 03:00:46
使用Option Strict On
,也可以使用Option Explicit
。花点时间修复暴露出来的错误。
我认为你的问题出在这两行上。
.CommandText = "Select Tbl_Rental.RentalID, Tbl_Rental.Noofdays from Tbl_Rental Where RentalID = @CurrentrentalID"
.Parameters.AddWithValue("@RentalID", CurrentRentalID)
您在第二行使用"@RentalID"
,但在第一行使用@CurrentrentalID
。
此外,我们也看不到CurrentRentalID
或cn
的设置位置。您的代码片段暗示Sub
的开始就在这些行之前,因此它们可能为空、null或任何其他没有意义的内容。
https://stackoverflow.com/questions/53178102
复制相似问题