Foros del web, para los que viven de bits

 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        
        coneccion = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=anime.mdb")

        Dim orden1 As OleDb.OleDbCommand
        Dim orden2 As OleDb.OleDbCommand
        Dim orden3 As OleDb.OleDbCommand
        Dim orden4 As OleDb.OleDbCommand
        Dim orden_pre As OleDb.OleDbCommand
        If accion = 1 Then
            MsgBox("ok sere")
            q = "insert into respuesta(id_pregunta,respuesta,correcta) values(@ID_PREGUNTA,@R1,@R1C)"
            'q = "insert into respuesta(id_pregunta,respuesta) values(@ID_PREGUNTA,@R2)"
            'q = "insert into respuesta(id_pregunta,respuesta,correcta) values(@ID_PREGUNTA,@R3,@R3C)"
            'qp = "insert into respuesta(id_pregunta,respuesta,correcta) values(@ID_PREGUNTA,@R4,@R4C)"
        Else

            MsgBox("actualiza")
            q = "update respuesta set respuesta = @R4C where id =" & lblrespuesta1.Text
        End If

        orden1 = New OleDb.OleDbCommand(q, coneccion)
        orden2 = New OleDb.OleDbCommand(q, coneccion)
        orden3 = New OleDb.OleDbCommand(q, coneccion)
        orden4 = New OleDb.OleDbCommand(q, coneccion)
        orden_pre = New OleDb.OleDbCommand(q, coneccion)

        orden1.Parameters.Add(New OleDb.OleDbParameter("@ID_PREGUNTA", OleDb.OleDbType.Integer))
        orden2.Parameters.Add(New OleDb.OleDbParameter("@ID_PREGUNTA", OleDb.OleDbType.Integer))
        orden3.Parameters.Add(New OleDb.OleDbParameter("@ID_PREGUNTA", OleDb.OleDbType.Integer))
        orden4.Parameters.Add(New OleDb.OleDbParameter("@ID_PREGUNTA", OleDb.OleDbType.Integer))
        orden_pre.Parameters.Add(New OleDb.OleDbParameter("@ID_PREGUNTA", OleDb.OleDbType.Integer))
        orden_pre.Parameters.Add(New OleDb.OleDbParameter("@PREGUNTA", OleDb.OleDbType.VarWChar, 250))
        orden_pre.Parameters.Add(New OleDb.OleDbParameter("@TIPO", OleDb.OleDbType.VarWChar, 20))
        orden_pre.Parameters.Add(New OleDb.OleDbParameter("@NIVEL", OleDb.OleDbType.Integer))

        orden1.Parameters.Add(New OleDb.OleDbParameter("@R1", OleDb.OleDbType.VarWChar, 100))
        orden2.Parameters.Add(New OleDb.OleDbParameter("@R2", OleDb.OleDbType.VarWChar, 100))
        orden3.Parameters.Add(New OleDb.OleDbParameter("@R3", OleDb.OleDbType.VarWChar, 100))
        orden4.Parameters.Add(New OleDb.OleDbParameter("@R4", OleDb.OleDbType.VarWChar, 100))

        orden1.Parameters.Add(New OleDb.OleDbParameter("@R1C", OleDb.OleDbType.Boolean))
        orden2.Parameters.Add(New OleDb.OleDbParameter("@R2C", OleDb.OleDbType.Boolean))
        orden3.Parameters.Add(New OleDb.OleDbParameter("@R3C", OleDb.OleDbType.Boolean))
        orden4.Parameters.Add(New OleDb.OleDbParameter("@R4C", OleDb.OleDbType.Boolean))
        orden1.Parameters("@ID_PREGUNTA").Value = Val(lblid.Text)
        orden2.Parameters("@ID_PREGUNTA").Value = Val(lblid.Text)
        orden3.Parameters("@ID_PREGUNTA").Value = Val(lblid.Text)
        orden4.Parameters("@ID_PREGUNTA").Value = Val(lblid.Text)
        orden_pre.Parameters("@ID_PREGUNTA").Value = Val(lblid.Text)
        orden_pre.Parameters("@NIVEL").Value = Val(txtnivel.Text)
        orden_pre.Parameters("@PREGUNTA").Value = txtpregunta.Text
        orden_pre.Parameters("@TIPO").Value = txttipo.Text
        orden1.Parameters("@R1").Value = respuesta1.Text
        orden2.Parameters("@R2").Value = respuesta2.Text
        orden3.Parameters("@R3").Value = respuesta3.Text
        orden4.Parameters("@R4").Value = respuesta4.Text
        orden1.Parameters("@R1C").Value = rb1.Checked
        orden2.Parameters("@R2C").Value = rb2.Checked
        orden3.Parameters("@R3C").Value = rb3.Checked
        orden4.Parameters("@R4C").Value = rb4.Checked
        MsgBox(orden1.Parameters("@R1").Value)
        orden1.Connection.Open()
        orden1.ExecuteNonQuery()
        orden1.Connection.Close()

        orden2.Connection.Open()
        orden2.ExecuteNonQuery()
        orden2.Connection.Close()

        orden3.Connection.Open()
        orden3.ExecuteNonQuery()
        orden3.Connection.Close()

        orden4.Connection.Open()
        orden4.ExecuteNonQuery()
        orden4.Connection.Close()

        Me.Close()

    End Sub