Question

我正在尝试在名为“ Noofdays”的数据库的表中选择一个字段稍后将在计算中使用。我的问题是它的值只是保持为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，现在尝试从租金表中选择要出租的租金，并获取Noofdays值。我试图将该值分配给'Rentaldaycount'

任何帮助将不胜感激

Answer 1

同时使用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或其他没有意义的行。

通过SQL从表中选择特定值

1 个答案: