
11/06/2008, 15:46
|
| | Fecha de Ingreso: junio-2008
Mensajes: 1
Antigüedad: 16 años, 9 meses Puntos: 0 | |
Problema al actualizar una BD de access CAda vez que me actuliza en vez de colocarme el valor del parametro, siempre me coloca el valor de 1 o el valor de la primera variable parametro creada,, no entiendo por que, Soy nuevo en .Net, la base de datos actualiza pero no con el valor que debe ser
Tengo este codigo
Código:
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
|