Store Procedure VB.NET y MYSQL

[mau_87lp]

Hola, como estan, hoy tengo el siguiente problema.
Quiero desde vb.net llamar o ejecutar un store que me devuelva un registro. Mi problema es que no lo consigo. El codigo que estoy usando es el siguiente:

Codigo Visual Basic .NET

Código:

Try
                Dim con As New MySqlConnection("server=localhost;User Id=alberto;Password=123456;database=comercio") 'Persist Security Info=True;
                Dim comm As New MySqlCommand("Consultar_Articulo", con)
                comm.CommandType = CommandType.StoredProcedure
                con.Open()
                Dim par As New MySqlParameter("@Cod_Barras", MySqlDbType.Int32)
                par.Size = 15
                par.Value = txtCodBarras.Text
                comm.Parameters.Add(par)

                Dim da As New MySqlDataAdapter
                da.SelectCommand = comm
                da.SelectCommand.Connection = con

                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

Codigo MySql

Código:

CREATE PROCEDURE Consultar_Articulo(IN Cod_Barras INT)
SELECT Cod_Barra,Nom_Articulo,Precio
FROM Articulos 
WHERE Cod_Barra = Cod_Barras;

El store desde mysql si lo llamo o ejecuto funciona, pero desde visual no.
Estoy usando el conector de mysql para .net, mysql 5.1 y Visual Studio 2008. Espero que alguien me pueda dar una mano, desde ya muchas gracias.


Saludos

[DJINVACION]

Si no estoy mal debes usar INOUT para que te devuelva lo que deseas.. Igual aqui tienes buenas referencias
http://dev.mysql.com/doc/refman/5.0/es/stored-procedure-syntax.html

[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
 

[mau_87lp]

Gracias, mejor tarde que nunca.

[gnzsoloyo]

Uno de los detalles que debes tener en cuenta es que un Stored Procedure no se puede usar como SelectCommand, porque no se puede interactuar con la base a través de él, que es el objeto de usar esa propiedad.
En esencia, es un proceso unidireccional: Lo que se obtiene de un SP es una entrada/salida cerrada. Una vez terminado, todo enlace con los datos de origen desaparece, y sólo te pueden quedar los datos obtenidos. Esto es así porque la lectura de datos no ocurre en el VB, sino en un subproceso del MySQL que ya terminó.
¿Se entiende la idea?