Reportes ACCESS desde ASP
Hola,
Estoy generando SNAPSHOTS de los reportes de una BD Accsess para q sean mostrados por web (ASP) con el siguiente codigo:
Set objAccess = Server.CreateObject("Access.Application")
objAccess.Visible = False
objAccess.OpenCurrentDatabase strDbName
Set objDB = objAccess.CurrentDb()
With objAccess.DoCmd
.OpenReport strRptName, acViewPreview, strFilter, strWhere
.OutputTo acOutputReport, , "Snapshot Format", Server.MapPath(".") & "snapfiles" & strSnapFile
.Close
End With
' Clean Up
objAccess.CloseCurrentDatabase
Set objDB = nothing
objAccess.Quit acQuitSaveNone
Set objAccess = nothing
Todo funciona muy bien, el problema es que el proceso MSACCSESS.EXE no se cierra nunca y no lo puedo cerrar ni de forma manual (no tengo permisos, dice). Entonces los procesos se van acumulando, la unica forma de cerrarlos es reiniciar la maquina (Windows 2000 Professional).
Alguien sabe que puede estar pasando y como puedo solucionarlo?
Gracias
Estoy generando SNAPSHOTS de los reportes de una BD Accsess para q sean mostrados por web (ASP) con el siguiente codigo:
Set objAccess = Server.CreateObject("Access.Application")
objAccess.Visible = False
objAccess.OpenCurrentDatabase strDbName
Set objDB = objAccess.CurrentDb()
With objAccess.DoCmd
.OpenReport strRptName, acViewPreview, strFilter, strWhere
.OutputTo acOutputReport, , "Snapshot Format", Server.MapPath(".") & "snapfiles" & strSnapFile
.Close
End With
' Clean Up
objAccess.CloseCurrentDatabase
Set objDB = nothing
objAccess.Quit acQuitSaveNone
Set objAccess = nothing
Todo funciona muy bien, el problema es que el proceso MSACCSESS.EXE no se cierra nunca y no lo puedo cerrar ni de forma manual (no tengo permisos, dice). Entonces los procesos se van acumulando, la unica forma de cerrarlos es reiniciar la maquina (Windows 2000 Professional).
Alguien sabe que puede estar pasando y como puedo solucionarlo?
Gracias
Intenta con esto :
Dim acc, db
Set acc = Server.CreateObject("Access.Application")
acc.Visible = False
acc.OpenCurrentDatabase(strDbName)
Set db = acc.CurrentDb()
acc.DoCmd.OutputTo 3 ,"Nombre del Reporte", "Snapshot Format (*.snp)", "c:\mis documentos\reporte.snp"
db.Close
acc.Quit
Suerte
Dim acc, db
Set acc = Server.CreateObject("Access.Application")
acc.Visible = False
acc.OpenCurrentDatabase(strDbName)
Set db = acc.CurrentDb()
acc.DoCmd.OutputTo 3 ,"Nombre del Reporte", "Snapshot Format (*.snp)", "c:\mis documentos\reporte.snp"
db.Close
acc.Quit
Suerte