Yo tambien tengo problemas con ADOCE y tablas
Publicado por Javier (2 intervenciones) el 20/07/2001 00:29:27
Buenas...
No consigo arrancar con este tema. Despues de mirar la ayuda 1000 veces, no logro abrir una tabla de prueba de mi DB.
El codigo es el siguiente:
Dim conndatabase
Set conndatabase = CreateObject("ADOCE.Connection.3.0")
conndatabase.ConnectionString = "My Documents\PocketReg10.cdb"
conndatabase.Open
Dim rs
Set rs = CreateObject("ADOCE.RecordSet.3.0")
rs.Open "datos"
If rs.RecordCount > 0 Then
Do While Not rs.EOF
List1.AddItem rs.Fields("firstfield").Value
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Me dice que la tabla no existe, es decir que al llegar a
rs.open "datos" , se acabo. Y no entiendo ya porque pasa. La base esta bien convertiva, y con el programa de ejemplo que me descarge de la pagina que recomendasteis para cargar los *.mdb y convertirlos en *.cdb para el emulador, (viene con un ejemplo), en este ejemplo si aparece mi tabla "datos", pero en mi codigo no la consigo abrir.
Espero vuestra ayuda, gracias.
(Los novatos, siempre intentando aprender...)
Javier.
No consigo arrancar con este tema. Despues de mirar la ayuda 1000 veces, no logro abrir una tabla de prueba de mi DB.
El codigo es el siguiente:
Dim conndatabase
Set conndatabase = CreateObject("ADOCE.Connection.3.0")
conndatabase.ConnectionString = "My Documents\PocketReg10.cdb"
conndatabase.Open
Dim rs
Set rs = CreateObject("ADOCE.RecordSet.3.0")
rs.Open "datos"
If rs.RecordCount > 0 Then
Do While Not rs.EOF
List1.AddItem rs.Fields("firstfield").Value
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Me dice que la tabla no existe, es decir que al llegar a
rs.open "datos" , se acabo. Y no entiendo ya porque pasa. La base esta bien convertiva, y con el programa de ejemplo que me descarge de la pagina que recomendasteis para cargar los *.mdb y convertirlos en *.cdb para el emulador, (viene con un ejemplo), en este ejemplo si aparece mi tabla "datos", pero en mi codigo no la consigo abrir.
Espero vuestra ayuda, gracias.
(Los novatos, siempre intentando aprender...)
Javier.
Valora esta pregunta
0