adryansyn
19 de Abril del 2005

hola
lo que quiero hacer es importar datos de excel o acces a mi aplicacion.exe quisiera que me ayuden con el codigo fuente para poder lograr esto...se lo agradecere mucho..gracias

sgomez
19 de Abril del 2005

ACCESS

ors = Create("adodb.Recordset")
ors.open("select * from tabla","Provider=Microsoft.Jet.OLEDB.4.0;Data Source='c:archivo.mdb'",2,2)

do while !ors.eof
? ors.fields(0).value
ors.movenext
enddo

EXCEL
x=createobject("excel.application")
x.workbooks.open("c:archivo.xls")
x.cells(1,1).select
do while x.activecell.value<>""
? x.activecell.value
x.activecell.offset(1,0)
enddo