Store Procedure VB.NET y MYSQL

[gnzsoloyo]

Hay modos más sencillos para hacer esto:

Código vb:

Try
            ' Crear y abrir la conexión. 
            Dim con As New MySqlConnection("server=localhost;User Id=alberto;Password=123456;database=comercio") 'Persist Security Info=True;
            con.Open()
 
            ' Crear em MysqlCommand. Si la conexión está cerrada puede darte un error.
            Dim comm As New MySqlCommand("Consultar_Articulo", con)
            comm.CommandType = CommandType.StoredProcedure
            comm.Parameters.AddWithValue("@Cod_Barras", Convert.ToInt32(txtCodBarras.Text)).Direction = ParameterDirection.Output
            Dim da As New MySqlDataAdapter(comm)
            Dim ds As New DataSet
            da.Fill(ds, "usuario")
 
            dgvProductos.DataSource = ds.Tables("usuario")
            dgvProductos.Refresh()
            con.Close()
        Catch ex As MySqlException
            MessageBox.Show(ex.Message)
        End Try