Devolver valor de consulta en mysql...

Pax-Man · #1 (**permalink**) 09/12/2010, 12:19

Tengo la necesidad de solicitar un valor de retorno de una consulta hecha a una base de datos en mysql...

la consulta es la siguiente:

Código MySQL:

Ver originalSELECT count(*) FROM sesion

Esta consulta esta correcta por que en el administrador de mysql retorna el valor que se desea, que debe ser 126

tengo una funcion que creo deberia funcionar para obtener ese valor en un string y usarlo en mi codigo... la funcion es la siguiente...

Previamente se han importado las MySql.Data.MySqlClient

Código vb:

Ver original'declaramos la cadena de conexión 
    Dim ConStr As String = "server=localhost;User Id=root;password=0231;database=sislacoh;Persist Security Info=True"
    'instanciamos un objeto conexion
    'y le pasamos de parametro la variable con la cadena 
    Dim Con As New MySqlConnection(ConStr)
    'creamos la funcion para insertar, Update o delete que devuelve
    ' un valor tipo string (cadena de texto)
    'con un parametro que contendrá la cadena de conexión 
    Public Function MiFuncion(ByVal query As String) As String
        'creamos el objeto comando y le pasamos el parámetro que contiene la query y la conexion 
        Dim Comando As New MySqlCommand(query, Con)
        'Try para capturar los errores
        Try
            'antes de abrir conexión nos aseguramos que no exista conexión establecida previa 
            If Not Con Is Nothing Then Con.Close()
            'abrimos conexión 
 
            Con.Open()
            'declaramos la variable de tipo entero que contendrá las filas afectadas y ejecutamos 
            'el comando
            Dim res As Integer = Comando.ExecuteNonQuery()
 
            'mandamos como retorno en múmero de filas afectadas
            'pero utilizamos Tostring para pasar el valor de número entero a cadena de texto
            'porque hay que recordar que la función devuelve un valor de tipo string 
            Return res.ToString
 
            'capturamos a partir de aquí si hay errores 
        Catch ex As Exception
 
            'y si hay errores retornamos el mensaje de error 
            Return MsgBox(ex.Message, MsgBoxStyle.Critical)
 
            'y con Finally que es parte de TRY CATCH y END TRY
            'ponemos el código que se ejecutará se produzca o no un error 
        Finally
 
            'cerramos la conexión 
            Con.Close()
 
            'y esto es muy importante, el objeto comando que habiamos creado 
            'lo eliminamos de la memoria 
            Comando = Nothing
            'finalizamos la captura de errores 
        End Try
 
    End Function

Esta funcion la he usado para ejecutar unos insert o updates y me ha funciona correctamente, lo que indica que si se comunica con la base de datos...

y en este caso la impmente asi

Código vb:

Ver originalDim valor As String = MiFuncion("SELECT count(*) FROM sesion")

En este caso el resultado que siempre me devuelve es "-1", y no "126" no logro entender... alguna orientacion. o alguna otra forma de hacer esto...

PD.
Uso Vb.net 2008, mysql server 5.1 y Mysql Connector net 6.3.5

gedarufi · #2 (**permalink**) 09/12/2010, 20:58

Lo que debes de hacer es utilizar un DataReader y en lugar de utilizar ExecuteNonQuery debes de utilizar ExecuteReader, quedaria algo asi

Código C#:

Ver originalPublic Function MiFuncion(ByVal query As String) As String
        'creamos el objeto comando y le pasamos el parámetro que contiene la query y la conexion 
        Dim Comando As New MySqlCommand(query, Con)
        Dim DataReader As MySqlDataReader
 
        'Try para capturar los errores
        Try
            'antes de abrir conexión nos aseguramos que no exista conexión establecida previa 
            If Not Con Is Nothing Then Con.Close()
            'abrimos conexión 
 
            Con.Open()
            'declaramos la variable de tipo entero que contendrá las filas afectadas y ejecutamos 
            'el comando
            DataReader  = Comando.ExecuteReader()
            
            If DataReader.HasRows Then
                   DataReader.Read()
                   Return DataReager.GetInt32(0).ToString()
            End If
 
            'capturamos a partir de aquí si hay errores 
        Catch ex As Exception
 
            'y si hay errores retornamos el mensaje de error 
            Return MsgBox(ex.Message, MsgBoxStyle.Critical)
 
            'y con Finally que es parte de TRY CATCH y END TRY
            'ponemos el código que se ejecutará se produzca o no un error 
        Finally
 
            'cerramos la conexión 
            Con.Close()
 
            'y esto es muy importante, el objeto comando que habiamos creado 
            'lo eliminamos de la memoria 
            Comando = Nothing
            'finalizamos la captura de errores 
        End Try
 
    End Function

Puedes poner el Read dentro de un while para sacar varios valores de la DB.

Saludos

taibo · #3 (**permalink**) 10/12/2010, 08:50

Tal y como lo tienes, tu función puede realizar operaciones de insercción, modificación o borrado pero no de consulta.

Cada vez que haces una de estas operaciones haces un "command.ExecuteNonQuery();" pero cuando haces una consulta esto no es así y necesitas un datareader.

Un ejemplo de la recogida de valores de un select:

Cita:

Código c#:

Ver originalString CadenaDeConexion = "Server=xxxx;Database=aluminio;User Id=xxxx;Password=xxxx";
                    MySqlConnection myCnn = new MySqlConnection();
                    myCnn.ConnectionString = CadenaDeConexion;
                    MySqlDataReader Reader;
                    myCnn.Open();
                    MySqlCommand command = myCnn.CreateCommand();
                    string consulta = "";
 
                    consulta = "SELECT count(id) ";
                    consulta += "FROM tbalmacen INNER JOIN tbperfil ";
                    consulta += "ON tbalmacen.idBarra = tbperfil.idBarra ";
                    consulta += "WHERE (perfil like '";
                    consulta += comboBox1.Text.ToString();
                    consulta += "')";
                    command.CommandText = consulta;
                    Reader = command.ExecuteReader();
                    string sResultado = "";
                    while (Reader.Read())
                    {
                        for (int i = 0; i < Reader.FieldCount; i++)
                            sResultado += Reader.GetValue(i).ToString();
 
                    }
                    Reader.Close();
                    myCnn.Close();

Ahora bien a la hora de realizar tu funcion además de tener en cuenta si estás realizando una consulta... deberás tener en cuenta otros factores como el numero de registros que vas a obtener así como cuantas tuplas (las columnas) vas a sacar en la consulta.

Pax-Man · #4 (**permalink**) 14/12/2010, 13:51

Ok, muchisimas gracias... y otra pregunta similar a esta, y si mi consulta fuera a arrojar varias columnas, pero SOLO una fila... como podria recuperar el valor de cada columna..

gedarufi · #5 (**permalink**) 14/12/2010, 15:42

cambiando el indice al momento de llamar el metodo get del DataReader de esta manera.

Data.GetValue(<indice de la columna>);

Saludos

Pax-Man · #6 (**permalink**) 14/12/2010, 15:53

Podrias darme ser un poco mas claro, digamos que la consulta sea

Código SQL:

Ver originalSELECT nombre, apellido, cedula FROM alumnos WHERE WHERE idalumno = '1'

gedarufi · #7 (**permalink**) 14/12/2010, 16:02

Seria algo asi

Código C#:

Ver originalString nombre = Data.GetString(0);
String apellido = Data.GetString(1);
int cedula = Data.GetInt32(2);

Puedes modificarlo de acuerdo al tipo de dato que vas a traer de la DB y a las columnas que traigas.

Saludos

In3xp3rt0 · #8 (**permalink**) 14/12/2010, 22:31

Cita:

Iniciado por Pax-Man

Tengo la necesidad de solicitar un valor de retorno de una consulta hecha a una base de datos en mysql...

la consulta es la siguiente:

Código MySQL:

Ver originalSELECT count(*) FROM sesion

Esta consulta esta correcta por que en el administrador de mysql retorna el valor que se desea, que debe ser 126

tengo una funcion que creo deberia funcionar para obtener ese valor en un string y usarlo en mi codigo... la funcion es la siguiente...

Previamente se han importado las MySql.Data.MySqlClient

Código vb:

Ver original'declaramos la cadena de conexión 
    Dim ConStr As String = "server=localhost;User Id=root;password=0231;database=sislacoh;Persist Security Info=True"
    'instanciamos un objeto conexion
    'y le pasamos de parametro la variable con la cadena 
    Dim Con As New MySqlConnection(ConStr)
    'creamos la funcion para insertar, Update o delete que devuelve
    ' un valor tipo string (cadena de texto)
    'con un parametro que contendrá la cadena de conexión 
    Public Function MiFuncion(ByVal query As String) As String
        'creamos el objeto comando y le pasamos el parámetro que contiene la query y la conexion 
        Dim Comando As New MySqlCommand(query, Con)
        'Try para capturar los errores
        Try
            'antes de abrir conexión nos aseguramos que no exista conexión establecida previa 
            If Not Con Is Nothing Then Con.Close()
            'abrimos conexión 
 
            Con.Open()
            'declaramos la variable de tipo entero que contendrá las filas afectadas y ejecutamos 
            'el comando
            Dim res As Integer = Comando.ExecuteNonQuery()
 
            'mandamos como retorno en múmero de filas afectadas
            'pero utilizamos Tostring para pasar el valor de número entero a cadena de texto
            'porque hay que recordar que la función devuelve un valor de tipo string 
            Return res.ToString
 
            'capturamos a partir de aquí si hay errores 
        Catch ex As Exception
 
            'y si hay errores retornamos el mensaje de error 
            Return MsgBox(ex.Message, MsgBoxStyle.Critical)
 
            'y con Finally que es parte de TRY CATCH y END TRY
            'ponemos el código que se ejecutará se produzca o no un error 
        Finally
 
            'cerramos la conexión 
            Con.Close()
 
            'y esto es muy importante, el objeto comando que habiamos creado 
            'lo eliminamos de la memoria 
            Comando = Nothing
            'finalizamos la captura de errores 
        End Try
 
    End Function

Esta funcion la he usado para ejecutar unos insert o updates y me ha funciona correctamente, lo que indica que si se comunica con la base de datos...

y en este caso la impmente asi

Código vb:

Ver originalDim valor As String = MiFuncion("SELECT count(*) FROM sesion")

En este caso el resultado que siempre me devuelve es "-1", y no "126" no logro entender... alguna orientacion. o alguna otra forma de hacer esto...

PD.
Uso Vb.net 2008, mysql server 5.1 y Mysql Connector net 6.3.5

Buenas noches, acabo de registraría en el foro y no pude evitar ver este tema ya que hace poco me tope con la misma interrogante. Acabo de empezar a programar en .net.

El que cada vez que ejecutes una consulta con el método .ExecuteNonQuery() va a retornar efectivamente un numero, no necesariamente relacionado con tu consulta sino como un tipo flag o bandera que te indica el resultado de la ejecución de esa consulta.

Para ejecutar consultas del estilo que tu requieres, que solamente te devuelvan un solo valor, utiliza el método .ExecuteScalar() que esta diseñado para esas situaciones. Para mas información o referencia puedes consultar Google o directamente el manual de referencia en la pagina de mysql. Saludos...

Pax-Man · #9 (**permalink**) 15/12/2010, 14:38

Al final para devolver todos los registros de una fila, usamos esto...

Código vb:

Ver originalSub consultaroficial(ByRef idoficial As String)
 
        Dim Comando As New MySqlCommand("SELECT cedula,Nombre,Apellido,idComponente,idRango,instructor FROM oficiales where idoficial = '" & idoficial & "'", Con)
 
        'Try para capturar los errores
        Try
            'antes de abrir conexión nos aseguramos que no exista conexión establecida previa 
            If Not Con Is Nothing Then Con.Close()
            'abrimos conexión 
 
            Con.Open()
            'declaramos la variable de tipo entero que contendrá las filas afectadas y ejecutamos 
            'el comando
            Dim reader As MySqlDataReader = Comando.ExecuteReader
 
            If reader.Read Then
                editar_alumno.TextBox3.Text = Trim(reader("cedula"))
                editar_alumno.TextBox1.Text = Trim(reader("Nombre"))
                editar_alumno.TextBox2.Text = Trim(reader("Apellido"))
                editar_alumno.ComboBox2.SelectedValue = CInt(reader("idComponente"))
                editar_alumno.ComboBox3.SelectedValue = CInt(reader("idRango"))
                If reader("Instructor") = "1" Then
                    editar_alumno.CheckBox1.CheckState = CheckState.Checked
                Else
                    editar_alumno.CheckBox1.CheckState = CheckState.Unchecked
                End If
            End If
            'mandamos como retorno en múmero de filas afectadas
            'pero utilizamos Tostring para pasar el valor de número entero a cadena de texto
            'porque hay que recordar que la función devuelve un valor de tipo string 
 
 
            'capturamos a partir de aquí si hay errores 
        Catch ex As Exception
 
            'y si hay errores retornamos el mensaje de error 
            MsgBox(ex.Message, MsgBoxStyle.Critical)
 
            'y con Finally que es parte de TRY CATCH y END TRY
            'ponemos el código que se ejecutará se produzca o no un error 
        Finally
 
            'cerramos la conexión 
            Con.Close()
 
            'y esto es muy importante, el objeto comando que habiamos creado 
            'lo eliminamos de la memoria 
            Comando = Nothing
            'finalizamos la captura de errores 
        End Try
 
 
    End Sub

Muchas gracias por la ayuda...

Pax-Man · #10 (**permalink**) 15/12/2010, 14:39

Cita:

Iniciado por Pax-Man

Al final para devolver todos los registros de una fila, usamos esto...

Código vb:

Ver originalSub consultaroficial(ByRef idoficial As String)
 
        Dim Comando As New MySqlCommand("SELECT cedula,Nombre,Apellido,instructor FROM oficiales where idoficial = '" & idoficial & "'", Con)
 
        'Try para capturar los errores
        Try
            'antes de abrir conexión nos aseguramos que no exista conexión establecida previa 
            If Not Con Is Nothing Then Con.Close()
            'abrimos conexión 
 
            Con.Open()
            'declaramos la variable de tipo entero que contendrá las filas afectadas y ejecutamos 
            'el comando
            Dim reader As MySqlDataReader = Comando.ExecuteReader
 
            If reader.Read Then
                editar_alumno.TextBox3.Text = Trim(reader("cedula"))
                editar_alumno.TextBox1.Text = Trim(reader("Nombre"))
                editar_alumno.TextBox2.Text = Trim(reader("Apellido"))
                If reader("Instructor") = "1" Then
                    editar_alumno.CheckBox1.CheckState = CheckState.Checked
                Else
                    editar_alumno.CheckBox1.CheckState = CheckState.Unchecked
                End If
            End If
            'mandamos como retorno en múmero de filas afectadas
            'pero utilizamos Tostring para pasar el valor de número entero a cadena de texto
            'porque hay que recordar que la función devuelve un valor de tipo string 
 
 
            'capturamos a partir de aquí si hay errores 
        Catch ex As Exception
 
            'y si hay errores retornamos el mensaje de error 
            MsgBox(ex.Message, MsgBoxStyle.Critical)
 
            'y con Finally que es parte de TRY CATCH y END TRY
            'ponemos el código que se ejecutará se produzca o no un error 
        Finally
 
            'cerramos la conexión 
            Con.Close()
 
            'y esto es muy importante, el objeto comando que habiamos creado 
            'lo eliminamos de la memoria 
            Comando = Nothing
            'finalizamos la captura de errores 
        End Try
 
 
    End Sub

Muchas gracias por la ayuda...