Mange tak for forslaget, men det hjælper desværre ikke. Langt de fleste
resurcer bliver frigivet. Men der mangler lige en lille del hver gang
Nu er jeg ret ny i det, så jeg kender ikke rigtig forskellen mellem ADO og
DAO. Men kan det have noget med problemet at gøre?
Hvis ja, hvordan skal ændre jeg det så til at bruge ADO istedet.
Mvh.
Thomas
Barney Gumble <duff.drinker.nofudd@cornerpub.com> wrote in message
news:9jhada$ese$1@news.cybercity.dk...
>
>
> "Thomas Larsen" <test@test.dk> skrev i en meddelelse
> news:3b5c1e22$0$9444$4d4eb98e@read.news.dk.uu.net...
> > Hejsa!
> >
> > Jeg har et problem, med et program der bruger mere og mere hukommelse,
jo
> > længere det kører. Programmet henter oplysninger i en database, i et
> bestemt
> > tidsinterval. Problemer er bare, at for hver gang, sub funktionen køres,
> så
> > reservere programmet lidt mere hukommelse i maskinen, med det resultat
at
> > maskinen på et tidspunkt går ned.
> >
> > Er der nogen der har forslag til hvordan dette kan løses? Findes er en
> > metode der kan tømme alle variabler evt?
> >
> > Se kode eksempel nedenunder!
> >
> > Mvh.
> > Thomas
> >
> > Private Sub TimerSer_Timer()
> > Call GetServiceInfo()
> > End Sub
> >
> > Private Sub GetServiceInfo()
> >
> > Dim WS As Workspace
> > Dim CN As Connection
> > Dim RS As Recordset
> >
> > Set WS = CreateWorkspace(Bla, bla....)
> > Set CN = WS.OpenConnection(bla, bla....)
> > Set RS = CN.OpenRecordset(SQL sætning, dbReadOnly)
> > ...
> > ...
> > RS.Close
> > CN.Close
> > RS.Close
> >
> > End Sub
>
> Prøv at lige tilføje efter XX.Close
> Set RS = Nothing
> Set CN = Nothing
>
> Har du tænkt at prøve at bruge ADO istedet for DAO?
>
> BG
>
>