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.RecordsetPublic Function Conectar_bd()
Set CON = New ADODB.Connection
Set comd = New ADODB.Command
Set Rs = New ADODB.RecordsetCON.CommandTimeout = 40
CON.CursorLocation = 1CON.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!TelfWend //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!
Comments
adOpenDynamic, adLockOptimistic
Si no vas a realizar cambios en la DB no lo utilces de esta manera por seguridad mejor utilizalo como solo lectura
adOpenkeyset, adLockReadOnly
Gracias por el apunte!
Me urge encontrar esta clase de codigo pero en c#
No utilizo C# desde el instituto… si alguien puede echarle una mano que lo ayude 🙂
Gracias 🙂