¿Por qué no encuentra datasource?
Hola. Tengo un formulario que debe acceder a una tabla de clientes de una BD. Contiene unas cuantas labels, una matriz de controles de textboxes, botones para desplazamiento entre registros y un ADODC oculto con la conexión bien establecida.
El código del formulario es:
Private Sub Form_Load()
Dim txtInfo As TextBox, i As Integer
For Each txtInfo In txtClientes
With txtInfo
.DataSource = AdodcCli.Recordset
.DataField = AdodcCli.Recordset.Fields(i).Name
End With
i = i + 1
Next
End Sub
Parece que todo está bien, pero cuando va a cargarlo me dice:
"Error de compilación. No se encontró el método o el miembro de datos."
y se me queda señalada la palabra DATASOURCE. ¿Alguien ve el error o sabe qué puede pasar?
Gracias
El código del formulario es:
Private Sub Form_Load()
Dim txtInfo As TextBox, i As Integer
For Each txtInfo In txtClientes
With txtInfo
.DataSource = AdodcCli.Recordset
.DataField = AdodcCli.Recordset.Fields(i).Name
End With
i = i + 1
Next
End Sub
Parece que todo está bien, pero cuando va a cargarlo me dice:
"Error de compilación. No se encontró el método o el miembro de datos."
y se me queda señalada la palabra DATASOURCE. ¿Alguien ve el error o sabe qué puede pasar?
Gracias
1 respuesta
Respuesta de aja72
1
El problema está en que los Recordset son objetos y no puedes establecer la igualdad sin más. Prueba a escribir lo siguiente:
Set txtInfo.DataSource = AdodcCli.Recorset
No olvides valorar la respuesta.
Set txtInfo.DataSource = AdodcCli.Recorset
No olvides valorar la respuesta.
