La pagina de microsoft ya la tenia, con ella en teoria conegui hacer la conexio pero no sabia como recojer datos del excel.
Los dos primeros comentarios k me dices:
" Para Access Quita Corchetes y el Signo de Pesos"
Seguro k es asi?
Si lo uso en access dnd pone [configuracion$] y [datos$], si la hoja del excel se llama hoja1, tendria k poner [Hoja1$], en los dos casos, no?
graciass
no claro que no de hecho los corchetes stanto como el signo como lo puse en el source son SOLO PARA EXCEL
Te recomiendo que juegues con el codigo y con el "Que pasaria Si cambio esto por esto otro...?", y "si esto otro es pque pasaria si le pongo esto...?", etc
Ahora para llenar los listbox usa catalogos (Varias Hojas o Tablas o en su defecto Bases de Datos, en excel Libros)
para el llenado no es dificil
solo usa un bucle
rs.MoveFirst'hubicate en el primer registro con
rs!NombreDeColumnaX 'obten los datos
rs.MoveNext'Muevete al Siguiente registro con
Revisa el Ejemplo que te di...
Pero ojo
para contar el numero de registros hay dos formas una de ellas seria con un campo donde lleves un control de los registro pero ojo con esto si este es incorretco el bucle realizara mas operaciones de las nesesarias o menos de los registros reales en mejor usar este:
rs.RecordCount 'Sirve para contar los registros exactos de cualquier Base de Datos
posterior mente
solo realisa el bucle
dim c as integer,i as integer
c=rs.RecordCount
rs.MoveFirst
for i = 1 to c
lista.additem rs!NombreColumna
rs.movenext
next i
'cn.close 'Cierra CN si es nesesario si es que usaras otra BASE DE DATOS lo contrario solo realisa una consulta con RS.open
has en una hoja en blanco un diagrama con las tablas, posteriormente realcionalas
despues usa el "IF then" o el "Select Case" y por un X campo digamos el ID, Nombre o el que tu elijas tome los datos requeridos
seria el proceso asi segun veo
conexión Ado
Consulta
Desconeccion
Procesos
conexión ADo
Consulta
Desconección
...
...
...
segun se decida
P.D.: Si abres otro archivo de Excel o Acces o cambia a otro tipo de Base de datos cierra Cn e iguala a rs=noting (las lineas que te di anteriormente)
PERO si seguiras usando la misma BAse de Datos solo realisa otra consulta con rs.open y despues mueve al primer registro con rs.moveFirts
si cambias de Tabla usa (esto lo digo de forma general especialmente para SQLServer y MySQL)
USE NombreDeTabla
PAra excel sigue usando
SELECT Columna FROM [NombreDeTabla$] WHERE bla bla bla...¡"
En todo caso lee un tuto o manual SQL (Codigo no la BDD ojo con eso.)¡!
Ya me ire a dormir ya me desvele bastamente.¡!
Saludos; Dulces Lunas.
Autor
En línea
