Mostrar datos

[barralex]

Buenas gente, realizando una aplicacion en VB y Mysql. Este es mi problema :

-Tengo un formulario que posee un datagridview que carga datos del la Base de datos al ejecutarse el evento load, perfecto pero tengo un boton que se llama ver datos el cual toma el valor la la celda seleccionada (current cell) en este caso es un codigo y me ejecuta otro metodo en la base de datos, lo que yo quiero es saber como hago para tomar los resultados de este Query y asignarlo a unos cuadros de texto pero sin que el usuario pueda verlos por lo cual no asignare esta Data al datagridview del formulario, solo quiero que se vean los datos en los textbox.

Gracias

[Ka0stj]

Hola barralex

Se me ocurren 2 cosas rapidamente.

1. Podrias utilizar el comando ExecuteScalar.

Ejemplo:

Código vb:

'-- Función que me ejecuta el excecuteScalar y me regresa un Double
    Public Function EjecutarEscalar(ByVal sql As String, ByVal objConn As SqlConnection)
 
        '-- Declaro una variable para usarla como valor de retorno
        Dim total As Double
        '-- Declaro una variable tipo SqlCommand
        Dim cmd As System.Data.SqlClient.SqlCommand
 
        Try
            '-- Creo una nueva instancia de SqlCommand
            cmd = New System.Data.SqlClient.SqlCommand()
 
            '-- Asigno mi Conexión
            cmd.Connection = objConn
 
            '-- Asigo el Comando SQL a ejecutar
            cmd.CommandText = sql
 
            '-- Ejecuto mi Comando
            total = cmd.ExecuteScalar
 
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
        End Try
 
        '-- Regreso el Total
        Return total
 
    End Function
 
'Esto en tu evento del botón
Me.CajaTextoX.Text = EjecutarEscalar("Tu_Query", "Tu_Conexion")
 

2. Puedes ejecutar tu consulta y guardarla en un dataset para posteriormente recorrerlo y obtener los datos que necesitas asignar a las cajas de texto.

Código vb:

'Creo un Adapter
                Dim objAdapter As New SqlDataAdapter("Tu_Query", "Tu_Conexion")
                'Creo un DataSet
                Dim objDataSet As New DataSet
                'Lleno el DataSet con la Tabla
                objAdapter.Fill(objDataSet, "TuTabla")
               
                'Recorro la tabla para ver que no exista un registro con el mismo nombre
                
                'La asignacion es algo asi
                 Me.CajaTextoX.Text =  objDataSet.Tables(0).Rows(r).Item(c)
 

Donde r: Es el Row y c: Es la columna que se quiere obtener

Saludos!

[barralex]

Amigo sos un groso gracias tengo otra dudilla pero de otra indole asi que la publicare en otro tema. gracias.