consulta

[Sayra]

Pues ahora no da error, pero no actualiza el mas 1 en la tabla de datos
mira respuesta1,respuesta2,respuesta3,respuesta4,respue sta5 tienen en la base de datos el valor cero

se supone que cuando se seleccione el radiobutton consulta la tabla tome el valor de respuesta1 le sume 1 y lo guarde de nuevo

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

If RadioButton1.Checked = true then

Dim UpdateCmd As String ="update Formulario set Respuesta1 = "& (Ctype(dr("Respuesta1"),Integer) + 1) & " + 1 where formulario = 2"

Else If RadioButton2.Checked = true then

Dim UpdateCmd As String ="update Formulario set Respuesta2 = "& (Ctype(dr("Respuesta2"),Integer) + 1) & " + 1 where formulario = 2"

Else If RadioButton3.Checked = true then

Dim UpdateCmd As String ="update Formulario set Respuesta3 = "& (Ctype(dr("Respuesta3"),Integer) + 1) & " + 1 where formulario = 2"

Else If RadioButton4.Checked = true then

Dim UpdateCmd As String ="update Formulario set Respuesta4 = "& (Ctype(dr("Respuesta4"),Integer) + 1) & " + 1 where formulario = 2"

Else If RadioButton5.Checked = true then

Dim UpdateCmd As String ="update Formulario set Respuesta5 = "& (Ctype(dr("Respuesta5"),Integer) + 1) & " + 1 where formulario = 2"

end if

dr.close

MyCommand.Connection.Close()

End Sub

Todo eso debe hacer cuando se presione le boton ok