Me da un error
No se ha declarado el nombre 'Add'.
Add.tostring(Ctype(dr("Respuesta1"),Integer) + 1)
Sub Ok_Click(sender As Object, e As EventArgs)
Dim MyCommand As SqlCommand
Dim SelectCmd As String = "Select Respuesta1, Respuesta2, Respuesta3, Respuesta4, Respuesta5 from Formulario where FormularioID=2"
MyCommand = New SqlCommand(SelectCmd, PortalSettings.SqlConnectionString)
MyCommand.Connection.Open()
Dim dr As sqldatareader
dr = mycommand.executereader
While dr.read
If RadioButton1.Checked = true then
Add.tostring(Ctype(dr("Respuesta1"),Integer) + 1)
Else If RadioButton2.Checked = true then
Add.tostring(Ctype(dr("Respuesta2"),Integer) + 1)
Else If RadioButton3.Checked = true then
Add.tostring(Ctype(dr("Respuesta3"),Integer) + 1)
Else If RadioButton4.Checked = true then
Add.tostring(Ctype(dr("Respuesta4"),Integer) + 1)
Else If RadioButton5.Checked = true then
Add.tostring(Ctype(dr("Respuesta5"),Integer) + 1)
end if
End While
dr.close
MyCommand.Connection.Close()
End Sub
Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs)
Dim DS As DataSet
Dim MyCommand As SqlCommand
Dim UpdateCmd As String ="update Formulario set Respuesta1 = Respuesta1 + 1 where formulario = 2"
MyCommand = New SqlCommand(UpdateCmd, PortalSettings.SqlConnectionString)
MyCommand.Parameters.Add(New SqlParameter("@Respuesta1", SqlDbType.Int, 4))
MyCommand.Connection.Open()
Try
MyCommand.ExecuteNonQuery()
End Try
MyCommand.Connection.Close()
end Sub
Por cierto agregue el update asi , no se si te capte bien la idea