none
ayuda con el codigo para actualizar bdd RRS feed

  • Pregunta

  • No puedo actualizar la base,lo que quiero es actualizar un precio de venta teniendo como referencia el

    id_producto ya que esta nunca se repetirá, también no se como hacer para que la condición

    update productos set precio_venta=@precio_venta where id_producto=@id_producto", oConexion)

    no se en que estoy mal si me pueden ayudar porfa.

    dejo las imágenes aki------->(http://www.flickr.com/photos/108856290@N03/10896931554/

    -------http://www.flickr.com/photos/108856290@N03/10896790595/

    Imports MySql.Data.MySqlClient Imports MySql.Data Public Class subproductos Inherits System.Windows.Forms.Form Private oConexion As MySqlConnection Private oDataSet As DataSet Private oDataAdapter As MySqlDataAdapter Private Sub subproductos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'crear conexion oConexion = New MySqlConnection oConexion.ConnectionString = "server=localhost;database=moveethations;uid=root;password='android'" 'crear adaptador oDataAdapter = New MySqlDataAdapter 'crear comando de inserccion 'consulta con sus parametros y asignarlos al adaptador Dim OcmdInsercion As New MySqlCommand("update productos set precio_venta=@precio_venta where id_producto=@id_producto", oConexion) oDataAdapter.UpdateCommand = OcmdInsercion oDataAdapter.UpdateCommand.Parameters.Add(New MySqlParameter("@precio_venta", MySqlDbType.Decimal)) Dim OcmdConsulta As New MySqlCommand("SELECT * FROM productos", oConexion) oDataAdapter.SelectCommand = OcmdConsulta 'crear un conjunto de datos oDataSet = New DataSet 'llamar procedimiento Me.cargardatos() End Sub Private Sub cargardatos() 'limpiamos el conjunto de datos oDataSet.Clear() 'abrir la conexion oConexion.Open() 'utilizar el adaptador para llenar el dataset con la tabla oDataAdapter.Fill(oDataSet, "productos") 'cerrar la conexion oConexion.Close() 'enlazar el dataset con el datagrid 'en datasource se asigna el dataset 'en datamember el nombre de la tabla 'del dataset que mostrara el datagrid Me.DataGridView1.DataSource = oDataSet Me.DataGridView1.DataMember = "productos" End Sub Private Sub ButtonModificarPre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonModificarPre.Click Dim y As Decimal y = TextNuevoPrecio.Text Dim iResultado As Integer 'asignar los valores a los parametros para el comando insercion oDataAdapter.InsertCommand.Parameters("@precio_venta").Value = y 'abrir conexion oConexion.Open() 'ejecutar comando de insercion del adptador iResultado = oDataAdapter.InsertCommand.ExecuteNonQuery() 'cerrar conexion oConexion.Close() Me.cargardatos() MsgBox("Datos Agregados!" & iResultado) End Sub End Class


    domingo, 17 de noviembre de 2013 3:37