Hola
barralex
Se me ocurren 2 cosas rapidamente.
1. Podrias utilizar el comando
ExecuteScalar.
Ejemplo:
Código vb:
Ver original'-- 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:
Ver original'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!