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!

Comments (4)

  • 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

    Reply
    • VideoTutoriales 23 junio, 2011

      Gracias por el apunte!

      Reply
  • Jose Benjamin 2 diciembre, 2011

    Me urge encontrar esta clase de codigo pero en c#

    Reply
    • VideoTutoriales 2 diciembre, 2011

      No utilizo C# desde el instituto… si alguien puede echarle una mano que lo ayude 🙂

      Gracias 🙂

      Reply

Leave a comment

Sign in to post your comment or sine up if you dont have any account.

This site uses Akismet to reduce spam. Learn how your comment data is processed.

Tu software de gestión


Últimas preguntas:

Logo Dkreativo
Vertutoriales