Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

VBA Access - Exportando registros para PARADOX - VBA Code to Import Paradox Table into Access

4 views
Skip to first unread message

André Luiz Bernardes

unread,
Mar 24, 2012, 11:18:38 AM3/24/12
to
See much more in: http://inanyplace.blogspot.com.br


Exportando registros a partir de uma query do MS Office Access para o banco de dados Paradox. Como posso fazê-lo?

Geralmente utilizo um query com dados a partir do MS Office Excel (*.xls), mas hoje quero enviar dados de planilhas que conectei ao MS Office Access.

Let ReportName = "qrySample"
Let ReportFilter = "RecordID = 1"
Let ExcelPath = "/Bernardes/" & Session.SessionID & ".xls"

Set MSAccess = Server.CreateObject("Access.Application")

MSAccess.OpenCurrentDatabase Application("DB")

MSAccess.DoCmd.SetWarnings False
MSAccess.DoCmd.OpenReport ReportName, 2, , ReportFilter
MSAccess.DoCmd.OutputTo 3, ReportName, "MicrosoftExcel(*.xls)", Server.MapPath(ExcelPath), False
MSAccess.DoCmd.Close 3, ReportName, 2
MSAccess.DoCmd.SetWarnings True

MSAccess.CloseCurrentDatabase

MSAccess.Quit 2

Set MSAccess = Nothing
0 new messages