none
Visual Basic y MySQL RRS feed

  • Pregunta

  • Tengo este codigo para actualizar registros en mi base de datos de MYSQL, pero a la hora de precionar el boton actualizar verifico mi base de datos y todo sigue como estaba.

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Try
                Dim coman As String = "Update Proyecto Set NoProyecto=@NoProyecto,NoCliente=@NoCliente,Institucion=@Institucion,Descripcion=@Descripcion, 
                                   Periododeejecucion=@Periododeejecucion,Ubicacion=@Ubicacion,Diasenejecucion=@Diasenejecucion,Estadodeobra=@EstadodeObra,
                                   Nota=@Nota,NoOrdendecompra=@NoOrdendecompra,NoRequisicion=@NoRequisicion,NoOrdendepago=@NoOrdendepago"
                Dim act As New MySqlCommand(coman, conec)
                act.Parameters.AddWithValue("@NoProyecto", TxbNProyEditarP.Text)
                act.Parameters.AddWithValue("@NoCliente", TxbNClieEditarP.Text)
                act.Parameters.AddWithValue("@Institucion", TxbInstEditarP.Text)
                act.Parameters.AddWithValue("@Descripcion", TxbDescEditarP.Text)
                act.Parameters.AddWithValue("@Periododeejecucion", TxbPeriEditarP.Text)
                act.Parameters.AddWithValue("@Ubicacion", TxbUbiEditarP.Text)
                act.Parameters.AddWithValue("@Diasenejecucion", TxbDiasEditarP.Text)
                act.Parameters.AddWithValue("@Estadodeobra", TxbEstadoEditarP.Text)
                act.Parameters.AddWithValue("@Nota", TxbNotasEditarP.Text)
                act.Parameters.AddWithValue("@NoOrdendepago", TxbNordPagEditarP.Text)
                act.Parameters.AddWithValue("@NoRequisicion", TxbNoreqEditarP.Text)
                act.Parameters.AddWithValue("@NoOrdendecompra", TxbNordComEditarP.Text)
                MsgBox("Datos actualizados correctamente")
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End Sub

    sábado, 16 de marzo de 2019 14:54

Todas las respuestas

  • Fíjate que con ese código estás construyendo todo el comando que habría que enviarle a la base de datos... y después de haberlo construido no lo mandas a ejecutar, con lo que no sirve para nada.

    Te falta añadir

    act.ExecuteNonQuery()

    antes del MsgBox.

    Por cierto, ten cuidado con tu comando Update, que no tiene ningún Where, con lo que cambiará todos los registros de la tabla. Está bien si eso es lo que quieres hacer, pero compruébalo no vaya a ser que machaques indebidamente todos los datos de la tabla.

    • Propuesto como respuesta Carlos_Ruiz_M sábado, 16 de marzo de 2019 16:44
    sábado, 16 de marzo de 2019 16:07