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