[AccessD] 64-but ONLY front end ?

[Bill Benson]

Closing them does not affect the memory hoarding. If it did I would have
solved the problem that way, but it just doesnt work, Ac2013 has memory
management problems.

>From my non-flammable Note 3,
Bill Benson

On Jan 23, 2017 8:07 PM, "Ryan Wehler" <wrwehler at gmail.com> wrote:

> Yes many record sets are used in various ways. I always close and set them
> to nothing as needed. I'll check out your code in the AM.
>
> Sent from my iPad
>
> > On Jan 23, 2017, at 6:30 PM, Bill Benson <bensonforums at gmail.com> wrote:
> >
> > Are you building recordsets? I found a couple years ago I had to keep
> track
> > of memory as I was creating recordsets, looping through them, performing
> > certain routines, because Ac2013 was not releasing memory. Big time
> memory
> > leaks.
> >
> > I stole this code from somewhere to get how much memory was being used
> and
> > would test this midroutine, sending a msgbox to the user to quit the
> > application if they exceeded 800MB.
> >
> >
> > Option Compare Database
> > Option Explicit
> >
> > Type PROCESS_MEMORY_COUNTERS
> >   cb                         As Long
> >   PageFaultCount             As Long
> >   PeakWorkingSetSize         As Long
> >   WorkingSetSize             As Long
> >   QuotaPeakPagedPoolUsage    As Long
> >   QuotaPagedPoolUsage        As Long
> >   QuotaPeakNonPagedPoolUsage As Long
> >   QuotaNonPagedPoolUsage     As Long
> >   PagefileUsage              As Long
> >   PeakPagefileUsage          As Long
> > End Type
> >
> > Private Const PROCESS_QUERY_INFORMATION = 1024
> > Private Const PROCESS_VM_READ = 16
> >
> > Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
> > Private Declare Function EnumProcessModules Lib "PSAPI.DLL" (ByVal
> hProcess
> > As Long, lphModule As Long, ByVal cb As Long, lpcbNeeded As Long) As Long
> > Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal
> > dwDesiredAccessas As Long, ByVal bInheritHandle As Long, ByVal dwProcId
> As
> > Long) As Long
> > Private Declare Function GetProcessMemoryInfo Lib "PSAPI.DLL" (ByVal
> > hProcess As Long, ppsmemCounters As PROCESS_MEMORY_COUNTERS, ByVal cb As
> > Long) As Long
> > Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal Handle As
> > Long) As Long
> >
> >
> > Public Function Mem() As Long
> >
> >  Dim lngCBSize2           As Long
> >  Dim lngModules(1 To 200) As Long
> >  Dim lngReturn            As Long
> >  Dim lngHwndProcess       As Long
> >  Dim pmc                  As PROCESS_MEMORY_COUNTERS
> >  Dim lRet                 As Long
> >  Dim MemDelta             As Long
> >  Static MemUsed           As Long
> >
> >
> >  'Get a handle to the Process and Open
> >  lngHwndProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or
> > PROCESS_VM_READ, 0, GetCurrentProcessId)
> >
> >  If lngHwndProcess <> 0 Then
> >
> >      'Get an array of the module handles for the specified process
> >      lngReturn = EnumProcessModules(lngHwndProcess, lngModules(1), 200,
> > lngCBSize2)
> >
> >      'If the Module Array is retrieved, Get the ModuleFileName
> >        If lngReturn <> 0 Then
> >            'Get the Site of the Memory Structure
> >            pmc.cb = LenB(pmc)
> >            lRet = GetProcessMemoryInfo(lngHwndProcess, pmc, pmc.cb)
> >
> >            Mem = pmc.WorkingSetSize
> >        End If
> >
> >  End If
> >
> >  'Close the handle to this process
> >  lngReturn = CloseHandle(lngHwndProcess)
> >
> > End Function
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>