Para buscar cosas en la base de datos y luego usar esos datos en nuestro entorno de trabajo usaremos estas líneas de código.
Recuperar datos de la base de datos
- En este caso vamos a consultar todos los clientes de la base de datos con el método buscarClientes()
- Cada vez que se encuentre uno iremos añadiendo una fila nueva a un DataGridView llamado Grid.
- Primero definimos que columnas de la tabla de la base de datos queremos coger
- Creamos una nueva consulta donde le pasamos la cadena y la conexión
- Creamos un IDataReader para poder ir leyendo los datos que vaya obteniendo
- Mientras haya datos vamos obteniendo esos datos de las columnas y vamos creando una fila nueva cada vez
- En mi caso, en la segunda celda de la fila muestro el nombre+apellido1+apellido2, de ahí la línea Dim combo As String = nom + " " + ap1 + " " + ap2
Public Sub buscarClientes()
Dim cadena As String
cadena = "SELECT id_cliente,nom_cli,ap1_cli,ap2_cli,direcc_cli,edad_cli,telf_cli,dni_cli,email_cli,obs_cli FROM clientes"
Dim consulta As New MySqlCommand(cadena, conexion)
conexion.Open()
Dim dr As System.Data.IDataReader
dr = consulta.ExecuteReader()
While dr.Read()
Dim id As Integer = dr.GetInt32(0)
Dim nom As String = dr.GetString(1)
Dim ap1 As String = dr.GetString(2)
Dim ap2 As String = dr.GetString(3)
Dim direcc As String = dr.GetString(4)
Dim edad As Integer = dr.GetInt32(5)
Dim telef As String = dr.GetString(6)
Dim dnii As String = dr.GetString(7)
Dim email As String = dr.GetString(8)
Dim obs As String = dr.GetString(9)
Dim combo As String = nom + " " + ap1 + " " + ap2
Grid.Rows.Add(id, combo, dnii, telef, direcc, email, edad, obs)
End While
conexion.Close()
End Sub
No hay comentarios:
Publicar un comentario