Devolver valor de consulta en mysql...

[Pax-Man]

Iniciado por Pax-Man

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

Código vb:

Sub 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...