Abrir un informe de Access desde ASP
Publicado por RCD (2 intervenciones) el 26/05/2005 09:22:25
Buenos días estoy intentando abrir un informe de Access desde ASP con el siguiente código:
<%
sDataFile = Server.MapPath("/") & "\SPC\Datos\SPC.mdb"
Set objAccess = Server.CreateObject("Access.Application")
objAccess.Visible = false
objAccess.OpenCurrentDatabase(sDataFile)
Set objDB = objAccess.CurrentDb()
With objAccess.DoCmd
.OpenReport strRptName, acViewPreview, strFilter, strWhere
.OutputTo acOutputReport, "CABLEADO", "HTML (*.html)", "pepe.htm", True
.Close
End With
' Clean Up
objAccess.CloseCurrentDatabase
Set objDB = nothing
objAccess.Quit acQuitSaveNone
Set objAccess = nothing
%>
Me da el error Tipo de error:
(0x800A1EBA)
el casque está en la línea objAccess.OpenCurrentDatabase(sDataFile)
la ruta (sDataFile) esta más que comprobada.
Gracias y saludos
<%
sDataFile = Server.MapPath("/") & "\SPC\Datos\SPC.mdb"
Set objAccess = Server.CreateObject("Access.Application")
objAccess.Visible = false
objAccess.OpenCurrentDatabase(sDataFile)
Set objDB = objAccess.CurrentDb()
With objAccess.DoCmd
.OpenReport strRptName, acViewPreview, strFilter, strWhere
.OutputTo acOutputReport, "CABLEADO", "HTML (*.html)", "pepe.htm", True
.Close
End With
' Clean Up
objAccess.CloseCurrentDatabase
Set objDB = nothing
objAccess.Quit acQuitSaveNone
Set objAccess = nothing
%>
Me da el error Tipo de error:
(0x800A1EBA)
el casque está en la línea objAccess.OpenCurrentDatabase(sDataFile)
la ruta (sDataFile) esta más que comprobada.
Gracias y saludos
Valora esta pregunta


0