Visual Basic Solo lee el número 1 de mysql

[Girao]

Bueno, gracias de antemano, estoy empezando en este mundo, y mi idea era, extraer los datos de una base en mysql, para rellenar unos botones, y así hacerlos dinamicos, todos ellos se llaman Botón, y cada uno lleva un numero en su caption, 1, 2, 3... etc mi idea era, leer los id de los productos en la base de datos, si el id ( 1 ) = caption ( 1 ) todo funciona correctamente, el boton cambia su numero por el nombre, pero el resto de botones quedan con su numero, si por el contrario pongo un unico boton, llamado 2, este no cambia jamás, donde cometo el error?
Aqui mi codigo

Código:

Private Sub Form_Load()
Dim Datos As ADODB.Connection
Dim Tabla As ADODB.Recordset
Dim Index As Integer
Set Datos = New ADODB.Connection
Datos.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=localhost;" _
& "DATABASE=bar;" _
& "UID=root;PWD=****; OPTION=3"
Datos.Open
Datos.DefaultDatabase = "bar"
Datos.CursorLocation = adUseClient

Set Tabla = New ADODB.Recordset
Source = "Select * From consumiciones"
ActiveConnection = Datos
CursorType = adOpenStatic
CursorLocation = udUseClient
LockType = adLockOptimestic

Tabla.Open Source, Datos, adOpenStatic, adLockOptimistic, adCmdUnknown

If Tabla.Fields("id") = Botón(Index).Caption Then
Botón(Index).Caption = Tabla.Fields("nombre")
End If
End Sub

[pkj]

No tengo idea de como funciona eso que estás usando, pero puedo decirte que la variable index no cambia de valor.
Siempre vale 0, por lo que solo cargas el boton(0).
Espero que te sirva mi observación.

Saludos y suerte.

[culd]

Iniciado por Girao

Aqui mi codigo

Código:

If Tabla.Fields("id") = Botón(Index).Caption Then
Botón(Index).Caption = Tabla.Fields("nombre")
End If
End Sub

Estas cargando bien la informacion a tu recorset...

El problema es que le asignar solamente al primer boton el nombre.

Tenes que usar un While y recorrer el recorset hasta el final y ahi vas asignando boton por boton

[Girao]

Muchisimas gracias, ya lo logre, con el while, y con 2 botones, con un array aun no lo conseguí, cuando lo logre, publicare el codigo final funcionando por si hay alguien como yo ;)