mutli threaded application shuts down all copies of access when issueing quit command

[Steven Thomas]

I have a windows service that uses office xp automation. Here is the
code
---------------------------------------
Public Sub CAccessSnapShot ()
Try
Dim objAccess As New Access.Applicat ion()
Dim vSQLText, vThreadName As String
Try
vThreadName = Thread.CurrentT hread.Name
cFunctions.Writ eEventLog("star ting report on thread: "
& pDBType)
Dim dtSQLText As DataTable
' GET THE SQL ASSOCIATED WITH THIS REPORT
dtSQLText = cFunctions.GetS QL(pReportRefNu m,
pQConnectionStr ing)
vSQLText = CStr(dtSQLText. Rows(0).Item("S QLText"))
Dim strMDBName, strSNPName, strAccessFuncNm As String
' GET THE NAME OF THE TEMPORARY MDB AND MAKE A COPY
TO WORK WITH
strMDBName = cFunctions.GetN ewFileName(".md b")
strMDBPath = pInputFileDir + strMDBName
System.IO.File. Copy(pInputFile Dir + pInputFileName,
pInputFileDir + strMDBName)
' OPEN THE NEW COPY OF THE MDB
objAccess.OpenC urrentDatabase( pInputFileDir +
strMDBName)
' GET THE NEW NAME OF THE SNAP FILE
strSNPName = cFunctions.GetN ewFileName(".sn p")
strAccessFuncNm = "rpt" + pReportName
' RUN THE FUNCTION FROM ACCESS TO CREATE THE REPORT
SNAPSHOT
objAccess.Run(" RunReports", pReportName, vSQLText,
pOutputFileDir, strSNPName, pConnectString)
' SHUT DOWN ACCESS AND RELEASE THE COPY FROM MEMORY
objAccess.DoCmd ().Quit(Access. AcQuitOption.ac QuitSaveNone)
' ------
System.Runtime. InteropServices .Marshal.Releas eComObject(objA ccess)
' UPDATE THE QUEUE WITH THE SNAP SHOT NAME AND DELETE
THE COPY OF THE MDB
cFunctions.Writ eEventLog("comp lete report on thread: "
& vThreadName)
cFunctions.Upda teRptComplete(p ReportRefNum,
strSNPName, pQConnectionStr ing)
System.IO.File. Delete(strMDBPa th)
'RaiseEvent ThreadDone(pDBT ype)
Catch errorVariable As Exception
'Error trapping
cFunctions.Upda teReportError(p ReportRefNum,
errorVariable.M essage.ToString , pQConnectionStr ing)
cFunctions.Writ eEventLog("GPRe portServer.NET-Error: "
& errorVariable.M essage.ToString )
objAccess.DoCmd ().Quit(Access. AcQuitOption.ac QuitSaveNone)
' -----
System.Runtime. InteropServices .Marshal.Releas eComObject(objA ccess)
Finally
RaiseEvent ThreadDone(pDBT ype, vThreadName)
End Try
'CType(state, AutoResetEvent) .Set()
Catch
Catch errorVariable As Exception
'Error trapping
cFunctions.Upda teReportError(p ReportRefNum,
errorVariable.M essage.ToString , pQConnectionStr ing)
cFunctions.Writ eEventLog("GPRe portServer.NET-Error: " &
errorVariable.M essage.ToString )
End Try
End Sub

-----------------------------------------------------
I have a driver sub routine that creates a set of threads. Then on
each tread it calls this sub if there is a request for an access
report. He problem is if 2 or more threads are running at the same
time, when the first thread ends and issues the quit, it seems to
affect all instances of access in memory. The all stop running. How
can I issue the quit to just the thread this sub is running on???

[Herfried K. Wagner [MVP]]

* st******@gapac. com (Steven Thomas) scripsit:
[...]

Double post.

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>