Mostrar datos

[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!