Asignar resultados de consultas SQL a variables

[pemr_2002]

Bueno estoy con un problema, resulta que estoy tratando de hacer consultas a una base de datos y guardar los resultados en variables, el problema es que no estoy bien familiarizado con el tema de LOS TIPOS DE DATOS INVOLUCRADOS.
o se quiero hacer algo asi

Dim comando As SqlCommand = New SqlCommand
comando.CommandText = "select count(id) from tabla where id=1"
comando.Connection = conconexion
conconexion.Open()
Dim i As Integer
i = comando.ExecuteNonQuery()
conconexion.Close()
PERO NO FUNCIONA

Al igual que quiero hacer algo asi
Comando.commandtext="select * from tabla"
Pero no se como pasar el resultado a una variable y que tipo de varaible debe ser

[eperedo]

Prueba usando ExecuteScalar:

Código vb.net:

Dim i As Integer
i =comando. ExecuteScalar()
 

[pemr_2002]

Iniciado por eperedo

Prueba usando ExecuteScalar:

Código vb.net:

Dim i As Integer
i =comando. ExecuteScalar()
 

Eso funciono bien,
pero ahora cuando tengo un comando, por ejemplo "select * form tabla" en donde la consulta me devolvera una tabla, como puedo almacenar el resultado de la consulta en una variable? y de que tipo seria?

[eperedo]

Una consulta de ese tipo tendrás que guardarlo en una variable de tipo DataTable puedes usar un SqlDataReader o SqlDataAdapter para eso:
Te dejo un ejm con SqlDataAdapter:

Código vb.net:

Dim cmd As New SqlCommand("Select * From tabla",conexion)
Dim da As New SqlDataAdapter(cmd)
Dim dt As New DataTable() 'Acá tendrás los datos de la consulta SQL
da.Fill(dt)
'Esto puedes pasarlo a un DataGridView
Me.DataGridView1.DataSource = dt
 

Ahora si quieres un valor de la tabla puedes acceder a ellos mediante las propiedades del DataTable

Código vb.net:

Dim valor As String 'El tipo de dato depende de la columna de la tabla de la BD
valor = Convert.ToString(dt.Rows(0)("Nombre"))
 

Esto te devolverá el valor de la primera fila (por eso puse el índice cero) y de la columna Nombre. Como es un nombre declare una variable de tipo String e hice el cast correspondiente Convert.ToString.

Espero te ayude, cualquier duda me avisas

[pemr_2002]

Iniciado por eperedo

Una consulta de ese tipo tendrás que guardarlo en una variable de tipo DataTable puedes usar un SqlDataReader o SqlDataAdapter para eso:
Te dejo un ejm con SqlDataAdapter:

Código vb.net:

Dim cmd As New SqlCommand("Select * From tabla",conexion)
Dim da As New SqlDataAdapter(cmd)
Dim dt As New DataTable() 'Acá tendrás los datos de la consulta SQL
da.Fill(dt)
'Esto puedes pasarlo a un DataGridView
Me.DataGridView1.DataSource = dt
 

Ahora si quieres un valor de la tabla puedes acceder a ellos mediante las propiedades del DataTable

Código vb.net:

Dim valor As String 'El tipo de dato depende de la columna de la tabla de la BD
valor = Convert.ToString(dt.Rows(0)("Nombre"))
 

Esto te devolverá el valor de la primera fila (por eso puse el índice cero) y de la columna Nombre. Como es un nombre declare una variable de tipo String e hice el cast correspondiente Convert.ToString.

Espero te ayude, cualquier duda me avisas

Cuando haces
#
Dim cmd As New SqlCommand("Select * From tabla",conexion)
#
Dim da As New SqlDataAdapter(cmd)
#

aca entiendo que mandas el comando (cmd) como parametro al constructor de la clase,
pero si quisiera cambiar el comando, ¿como tendria que hacer?

[pyroCL]

Aquí tienes otra opción, el código está convertido desde un código C#.

Primero se crea un metodo que se conectara a la base de datos

Código VB.NET:

Private con As New SqlConnection() 
Private Comando As New SqlCommand() 
Private CadenaCon As String 
 
'metodo que conecta con la base de datos, retorna un objeto conexion 
Public Function conectarSAS() As SqlConnection 
    Try 
        con.Close() 
        'se cierra cualquier conexion abierta 
        CadenaCon = "Server=NOMBRESERVER;Database=NOMBREDB;User ID=USUARIOID;Password=USUARIOPASS;Trusted_Connection=False" 
        'se crea el string de conexion 
        con.ConnectionString = CadenaCon 
        'se enctrega el string de conexion a la variable de tipo SqlConnection 
            'se abre la conexion 
        con.Open() 
    Catch generatedExceptionName As Exception 
            'si hay error se asegura que se cierre la conexion 
        con.Close() 
    End Try 
        'se reotrna la conexion 
    Return con 
End Function
 

Luego de guarda el resultado de la consulta que quieras en un dataset

Código vb.net:

Private adapter As SqlDataAdapter 
Public Function medicamentosTrabajador(ByVal rut As String) As DataSet 
    Dim ds As New DataSet() 
    SQL = "SELECT * FROM TABLA WHERE ... "
    adapter = New SqlDataAdapter(SQL, conectarSAS()) 
    adapter.Fill(ds, "NOMBRETABLA") 'aqui cargas el dataset
    conectarSAS().Close()   
    Return ds 
End Function
 

Para rescatar un dataset en un datable se hace lo siguiente y este dt lo podrás cargar en una grilla o donde quieras

Código vb.net:

Dim ds As New DataSet() 
Dim dt As DataTable = ds.Tables(0) ' o Dim dt As DataTable = ds.Tables("NOMBRETABLA")
 

saludos, espero que te sirva.

[eperedo]

Cuando haces
#
Dim cmd As New SqlCommand("Select * From tabla",conexion)
#
Dim da As New SqlDataAdapter(cmd)
#

aca entiendo que mandas el comando (cmd) como parametro al constructor de la clase,
pero si quisiera cambiar el comando, ¿como tendria que hacer?

A qué te refieres con cambiar el comando? O estás hablando de cambiar la consulta SQL?
De ser así puedes usar la propiedad CommandText para indicar la instrucción SQL.

Código vb.net:

Dim cmd As New SqlCommand()
cmd.connection = variable_conexion
cmd.CommandText = "Select * From Otra_Tabla"
 

Espero te sirva