来自 Vb.net 2010 中列表框的 sqldatabase 变量声明

Question

我正在尝试将所选项目从列表框中保存到数据库，但是当我从列表框中选择项目时，我收到一个运行时错误，即未声明变量（RomID）。这是代码。我错过了什么？！

    If (con.State = ConnectionState.Closed) Then
        con.Open()
    End If


    Dim Name As SqlParameter = New SqlParameter("@Name", TxtName.Text)
    Dim Pass As SqlParameter = New SqlParameter("@PassportNum", TxtPassNum.Text)
    Dim Mobile As SqlParameter = New SqlParameter("@PhoneNUm", TxtMobile.Text)
    Dim RomID As SqlParameter = New SqlParameter("@ID", Integer.Parse(ListBox1.SelectedItem))
    Dim ChckIn As SqlParameter = New SqlParameter("@CheckIndate", DateTime.Now.Date)
    Dim Email As SqlParameter = New SqlParameter("@Email", TxtEmail.Text)

    Cmd.Parameters.Add(Name)
    Cmd.Parameters.Add(Pass)
    Cmd.Parameters.Add(Mobile)
    Cmd.Parameters.Add(RomID)
    Cmd.Parameters.Add(ChckIn)
    Cmd.Parameters.Add(Email)
    Cmd.CommandText = "Update Rooms set Status ='Booked' where ID = @RomID"
    Cmd.ExecuteNonQuery()
    Cmd.CommandText = "insert into Reservation(RoomID,GuestName,PassportNum,PhoneNUm,CHeckIndate,Email) VALUES(@RomID,@Name,@Pass,@Mobile,@ChckIn,@Email)"
    Cmd.ExecuteNonQuery()
    MessageBox.Show("Reservation Was Successful")

Answer 1

我没有以同样的方式声明你可以试试这个：

删除：

Dim RomID As SqlParameter =
  New SqlParameter("@ID", Integer.Parse(ListBox1.SelectedItem))

试试这样的：

command.Parameters.Add("@ID", SqlDbType.Int)
command.Parameters("@ID").Value = Integer.Parse(ListBox1.SelectedItem)

Answer 2

你有这个：

Dim RomID As SqlParameter =
  New SqlParameter("@ID", Integer.Parse(ListBox1.SelectedItem))

我认为你的意思是：

Dim RomID As SqlParameter =
  New SqlParameter("@RomID", Integer.Parse(ListBox1.SelectedItem))