importar registros de excel a BD de access con vb

danny
30 de Diciembre del 2004
hola amigos....... ¿ tengo una aplicacion con bases de datos de access 97 y vb6.0 y me gustaria importar desde excel los datos de un libro1.xls a mi base de datos ? le agradecero todo su ayuda y conocimiento, gracias =)

mvallejos
30 de Diciembre del 2004
Lo que necesitas hacer, es generar 2 conexiones, una a Excel y otra a Access

Cadena de conexion para Excel

Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DSN=Excel Files;DBQ=<Archivo Xls>

Para Access

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=<Nombre mdb>;Persist Security Info=False

Entonces, en un recordset levantas tu planilla Excel
con un select común. A este Recordset lo llamaremos
RsOrigen. Además, llamaremos RsDestino a un recordset que apunte a la tabla Access que deseas llenar.

RsOrigen.Open "Select * from <nombre hoja exel>",conexionXls, AdOpenStatic


RsDestino.Open "Select * From <Tabla>",ConexionAccess,AdOpenDynamic

Do while Not RsOrigen.EOF
RsDestino.AddNew
RsDestino!Campo1 = RsOrigen!Campo1
-----------------------
RsDestino.Update
RsOrigen.MoveNtext
Loop

espero que sirva

Saludos