Código
Dim BDD As Database 'Objeto para manejar la base de datos Dim TBL As Recordset 'Objeto para manejar la Tabla Set BDD = OpenDatabase("Pladur.mdb") 'Abre la base de datos Dim SQL As String SQL = "SELECT * FROM muros" Set TBL = BDD.OpenRecordset(SQL) 'TBL almacena todos los valores de la tabla TBL.MoveFirst 'nos posicionamos en el primer registro de la tabla Do Until TBL.EOF ''La propiedad EOF se pone TRUE cuando se a llegado al final de la tabla List1.AddItem TBL("material") TBL.MoveNext 'pasamos al siguiente registro Loop
Me da un error de que no coinciden los tipos en la linea:
Código
Si no me equivoco la sonsulta la hace bien ya que si en la sentencia SQL intento buscar en una tabla que no existe me dice que esa tabla no se puede encontrar.
Set TBL = BDD.OpenRecordset(SQL) 'TBL almacena todos los valores de la tabla
Creo que el fallo esta al hacer la asignacion pero no se como solucionarlo.
Por ultimo decir que la base de datos es de access 2000.
Gracias por todo.