Asignar resultados de consultas SQL a variables

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