Obtener datos Store procedure desde vb.net 2010

[jimylu]

Buenas tardes creo este tema para ver si me pueden ayudar con un problemita estoy desarrollando un sistema el cual debo obtener datos desde una base de datos mysql REMOTO el problema es que no soy un usuario muy avanzado en este tema realice lo siguiente.

Código:

    Public Sub Store(ByVal strNombre As String)
        Try
            Dim dr As MySqlDataReader
            Dim comm As New MySqlCommand(strNombre, conexion)
            comm.CommandType = CommandType.StoredProcedure
            Dim da As New MySqlDataAdapter(comm)
            Dim ds As New DataSet
            dr = comm.ExecuteReader
            Do While dr.Read
                MsgBox(dr("campo a mostrar"))
            Loop

        Catch ex As MySqlException
            MessageBox.Show(ex.Message)
        End Try

    End Sub

ya estan activados las librerias de mysql y ya esta realizada la conexion no los realizo con odbc satisfactoriamente el tema solo es los store procedure tanto los que me piden datos como los que no.


Ahora tambien queria consultarles como obtener el dato de una columna especifica y no toda la data que me arroja el store procedure lo digo esto para manejar los datos mas ordenadamente.

Nota: no tengo acceso a los store procedure ya que los obtengo remotamente con usuario y clave pero esta limitado ese acceso al uso exclusivo de los store procedure.
Ya eh probado los accesos y los store procedure desde un administrador de mysql y todo esta ok.

[cristiantorres]

Pues casi lo tienes hecho solo que te faltan algunas cosas por ejemplo no necesitas el while lo podes hacer con un if.

Código vb.net:

Public Sub Store(ByVal strNombre As String)
        Try
            Dim dr As MySqlDataReader
            Dim comm As New MySqlCommand(strNombre, conexion)
            comm.CommandType = CommandType.StoredProcedure
            Dim da As New MySqlDataAdapter(comm)
            cnn.Open()
            dr = comm.ExecuteReader
            If dr.Read() Then
                MsgBox(dr("campo a mostrar").ToString())
            End If
 
        Catch ex As MySqlException
            MessageBox.Show(ex.Message)
        End Try
 
    End Sub
 

Donde dice nombre a mostrar iría el nombre del campo que quieres mostrar.

Saludos.

[jimylu]

hola gracias por responder pero lo ejecuto y me arroja error: "Unable to retrieve stored procedure metadata for routine 'sp_PendingOrders'. Either grant SELECT privilege to mysql.proc for this user or use "check parameters=false" with your connection string." al parecer algun problema con la conexion que ponga un parametro en false pero nose cual ? este es el codigo de mi conexion lo utilizo como funcion lo eh logrado testear y establece la conexion satisfactoriamente:

Código:

    Public Sub Conexion_Mysql_Remote(ByVal strServidor As String, ByVal strPuerto As String, ByVal strBD As String, ByVal strUsuario As String, ByVal strPwd As String)
        Dim strCadena As String
        strCadena = "Server=" & strServidor & ";Port=" & strPuerto & ";database=" & strBD & ";Uid=" & strUsuario & ";Pwd=" & strPwd & ";"
        cn_Mysql_Rem = New MySqlConnection(strCadena)
        Try
            cn_Mysql_Rem.Open()
        Catch ex As MySqlException
            MessageBox.Show(ex.Message, "Error de Conexion", MessageBoxButtons.OK, MessageBoxIcon.Error)
            cn_Mysql_Rem = Nothing
        End Try
    End Sub

otra cosa en tu codigo me agregastes la linea cnn.open() supongo que es para abrir la conexion a la base de datos pero la conexion ya la tengo abierta si coloco esa linea que pusistes me arrojaria error, el while lo usaba ya que me bota una lista de registros y no uno solo es decir por ejm 5 registros.

Agradesco su ayuda de antemano

[cristiantorres]

Al parecer son problemas de privilegios con el usuario que estas usando para conectarte a la bd.
http://bugs.mysql.com/bug.php?id=48007
http://dotnetfish.blogspot.com/2011/...procedure.html

Y si en el codigo puse el cnn.open() para abrir la conexion y entonces también usa el si son varios datos while.

[jimylu]

pero es extraño ya que con los mismos accesos entro mediante el administrador de mysql ejecutando la llamada al mismo store procedure y se ejecuta con normalidad solo me arroja ese error desde el vb.net

[jimylu]

lo llegue a solucionar al codigo de conexion le agregue el parametro check parameters=false

Código:

Public Sub Conexion_Mysql_Remote(ByVal strServidor As String, ByVal strPuerto As String, ByVal strBD As String, ByVal strUsuario As String, ByVal strPwd As String)
        Dim strCadena As String
        strCadena = "Server=" & strServidor & ";Port=" & strPuerto & ";database=" & strBD & ";Uid=" & strUsuario & ";Pwd=" & strPwd & ";check parameters=false"
        cn_Mysql_Rem = New MySqlConnection(strCadena)
        Try
            cn_Mysql_Rem.Open()
        Catch ex As MySqlException
            MessageBox.Show(ex.Message, "Error de Conexion", MessageBoxButtons.OK, MessageBoxIcon.Error)
            cn_Mysql_Rem = Nothing
        End Try
    End Sub

lo dejo ahi por si es que a alguien le presenta el problema :D

[3ricks0ul]

Hola, mira asi mando llamar yo mis ST's

Código:

Dim cmd As New SqlCommand("doppingsort", cnn) <--Stored Procedure
            cmd.CommandType = CommandType.StoredProcedure

            cmd.Connection.Open()
            cmd.Parameters.AddWithValue("@L", 1)
            cmd.Parameters.AddWithValue("@U", 5)

            Using sdr As SqlDataReader = cmd.ExecuteReader()
                While sdr.Read()
                    table.AddCell(sdr(0).ToString())
                    table.AddCell(sdr(1).ToString())
                    table.AddCell(sdr(2).ToString())
                    table.AddCell(sdr(3).ToString())
                    table.AddCell(sdr(4).ToString())
                    Insertar()
                End While
                sdr.Close()
            End Using
            cmd.Connection.Close()