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!
MCFriend2040 22 junio, 2011
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
VideoTutoriales 23 junio, 2011
Gracias por el apunte!
Jose Benjamin 2 diciembre, 2011
Me urge encontrar esta clase de codigo pero en c#
VideoTutoriales 2 diciembre, 2011
No utilizo C# desde el instituto… si alguien puede echarle una mano que lo ayude 🙂
Gracias 🙂