Cargar datos (lista) en Visual Basic utilizando MySQL

Bienvenidos a VerTutoriales, en respuesta a un comentario que nos ha hecho un usuario vamos a dar un pequeño código para que lo podais utilizar una vez que tengais la conexión entre MySQL y VB funcionando.

El código es muy sencillo veamos:

Dim CON As ADODB.Connection
Dim Comd As ADODB.Command
Dim Rs As ADODB.Recordset

Public Function Conectar_bd()

Set CON = New ADODB.Connection
Set comd = New ADODB.Command
Set Rs = New ADODB.Recordset

CON.CommandTimeout = 40
CON.CursorLocation = 1

CON.Open “DRIVER={MySQL ODBC 3.51 Driver};DATABASE=” & NomBd & “;SERVER=” & Servidor &     “;UID=” & Usuario & “;password=” & Pwd & “;PORT=3306;”

Set Comd.ActiveConnection = CON

End Function

Este código es el de conexión a la base de datos que se pudo ver en el anterior tutorial, pero si os fijais ya tenemos declarado un objeto Recordset, este objeto será el contenedor de nuestra consulta, veamos:

//Realizamos la consulta

Rs.Open “SELECT * FROM Clientes”, BD, adOpenDynamic, adLockOptimistic

While Rs.EOF = False //mientras queden registros
‘Añado linea tras linea
lstDoc.ListItems.Add , , “” & Rs!Num
lstDoc.ListItems(lstDoc.ListItems.Count).SubItems(1) = “” & Rs!Nombre
lstDoc.ListItems(lstDoc.ListItems.Count).SubItems(2) = “” & Rs!Telf

Wend //cierro el bucle

Rs.Close //cierro el Rs, para liberar memoria

De esta manera conseguimos tener en nuestro listview los datos cargados en una simple conexión a la base de datos, pudiendola cerrar y de esta manera tambien asegurarnos que no se puedan perder datos.

Comentar que el lstDoc, es un componente ListView y la vista que estamos usando es en forma de lwbReport.

Espero que os ayude.

Un saludo!