Obtener valores de consulta sql por vbnet ?

[antvo]

¿Como puedo obtener los valores del resultado de una consulta (1 registro)? ya que me trae el usuario y correo y los quiero agregar en dos variables de vb.

la manera en que lo estoy obteniendo es que la Query hago que me traiga un campo y eso se lo asigno a la variable pero no se como hacerle para cuando son varios campos.

¿Como podría hacer eso?

[pakirringem]

hay varias maneras, te pongo una sencilla, es la que tengo a la mano, mira

Suponiendo que tienes la tabla "personas"

id Nombre Paterno Materno

1 Juan Vargas Lopez
2 Jose Juarez Hernandez
3 Pancho Lopez Medina


'CODIGO

'Variables que van a contener el valor del campo
dim Var,Var1,Var2 as string


Dim Conn As New Npgsql.NpgsqlConnection("Server=tuservidor;Databas e=tubase;Integrated Security=SSPI;Connect Timeout=60;User ID=tuusuario;Password=tupassword")
Conn.Open()

Cmd = New Npgsql.NpgsqlCommand("select * from personas where id=1, Conn)
DtRd = Cmd.ExecuteReader()
If DtRd.HasRows Then
DtRd.Read()

'el número 0,1,2 se refiere al numero de columna asi seria: 1 "nombre", 2 "paterno", 3 "materno"

var = DtRd.GetValue(1)
var1 = DtRd.GetValue(2)
var2 = DtRd.GetValue(3)

end if
conn.close()


'FIN CODIGO


Es algo sencillo espero que te sirva

[antvo]

Excelente gracias por la respuesta

Ya quedo lo que necesitaba.

Realice una clase para la conexión a la bd de sql server y esto me ayudo a reutilizar mi código que creaba manualmente la conexión y llego un punto donde ya estaba acumulando mucho código.

les dejo un ejemplo si se encuentran con una duda parecida:

Que les parece si optimizamos esta clase agregándole seguridad ¿que mas le faltaría?

Código vbnet:

Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.SqlClient
 
Public Class conexion
 
    Dim Conexion As String = "server=TUsERVIDOR;uid=USER;pwd=CONTRASEÑA;database=BASEDEDATOS"
    Dim Cnn As New SqlConnection()
    Dim Cmd As SqlCommand
    Dim Sql As String
    Dim Dt As New DataTable() 'Datos de la cosulta sql
    Dim Da As New SqlDataAdapter
 
 
'Constructor 
    Sub New()
      'DEFINE SI NECESITAS
    End Sub
 
'Abrir conexion
    Sub conectar()
        Cnn = New SqlConnection(Conexion)  
        Cnn.Open()
    End Sub
 
 
 
    'Update 
    Sub Update(ByVal  st as String, ByVal id As String)
 
        Sql = " UPDATE  tabla set   valor='" & st & "'  WHERE id= " & id
        Cmd = New SqlCommand(Sql, Cnn)
        Cmd.ExecuteNonQuery()
 
    End Sub
 
 
 
End Class
 

[alan_69niupi]

más seguridad?
pues bueno, la conexión la podrías poner en una clase a parte o un archivo de configuración
usar parámetros en los querys en vez de poner el valor directo, validar los parámetros antes de usarlos. y porque no usar capas para tus consultas y declarar las clases de los querys como internal para que nadie a excepción de las clases de ese paquete las conozcan y llegar a ellas mediante servicios de clases.


saludos!!!!

[systemtak]

Hola,
otra forma seria recibir en VB a traves de un metodo, un DataTable, DataRow directamente ( si es solo un registro ).


Saludos

[antvo]

Excelente , gracias empezare a implementar sus sugerencias.

Saludos