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!

Carlos Dk

Apasionado por la enseñanza y el SEO

4 comentarios en “Cargar datos (lista) en Visual Basic utilizando MySQL

  • el 22 junio, 2011 a las 5:07 pm
    Permalink

    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

    Respuesta
  • el 2 diciembre, 2011 a las 3:27 pm
    Permalink

    Me urge encontrar esta clase de codigo pero en c#

    Respuesta
    • el 2 diciembre, 2011 a las 5:04 pm
      Permalink

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

      Gracias 🙂

      Respuesta

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.