---

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

---

Thomas Larsen <test@test.dk> skrev i
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
Set RS = Nothing
> CN.Close
Set CD = Nothing
> RS.Close
Set RS = Notiung
>
> End Sub

Håper det virker bedre ... =)

--

Vennlig hilsen Erlend
erlendkb@c2i.net
ICQ 42053660
http://www.kleggen.com/

---

"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

---

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
>
>

---

DAO er Access specifik. Der er ADO ikke. Den kører faktisk meget DÅRLIGERE
mod Access end DAO På den anden side hvorfor åbner du og lukker
forbindelse? Hvor tit sker det? Er det ikke bedre at åbne forbindelse
(connection) og recordset og HOLDE åbent så længe det er behov for? Prøv
følgende:

Option Explicit
Private WS As Workspace
Private CN As Connection
Private RS As Recordset

Private Sub Form1_OnLoad()
Set WS = CreateWorkspace(Bla, bla....)
Set CN = WS.OpenConnection(bla, bla....)
Set RS = CN.OpenRecordset(SQL sætning, dbReadOnly)
End Sub

Private Sub Form1_Terminate()

RS.Close
CN.Close

Set RS = Nothing
Set CN = Nothing
Set WS = nothing

End Sub

Private Sub TimerSer_Timer()
Call GetServiceInfo()
End Sub

Private Sub GetServiceInfo()
RS.Refresh
eller
RS.Requery
......
End Sub


BG

---

God ide! Det har jeg nu gjort og derved "æder" programmet heller ikke RAM
mere

Mange tak for hjælpen.

Mvh.
Thomas

Barney Gumble <duff.drinker.nofudd@cornerpub.com> wrote in message
news:9jhjov$11mr$1@news.cybercity.dk...
> DAO er Access specifik. Der er ADO ikke. Den kører faktisk meget DÅRLIGERE
> mod Access end DAO På den anden side hvorfor åbner du og lukker
> forbindelse? Hvor tit sker det? Er det ikke bedre at åbne forbindelse
> (connection) og recordset og HOLDE åbent så længe det er behov for? Prøv
> følgende:
>
> Option Explicit
> Private WS As Workspace
> Private CN As Connection
> Private RS As Recordset
>
> Private Sub Form1_OnLoad()
> Set WS = CreateWorkspace(Bla, bla....)
> Set CN = WS.OpenConnection(bla, bla....)
> Set RS = CN.OpenRecordset(SQL sætning, dbReadOnly)
> End Sub
>
> Private Sub Form1_Terminate()
>
> RS.Close
> CN.Close
>
> Set RS = Nothing
> Set CN = Nothing
> Set WS = nothing
>
> End Sub
>
> Private Sub TimerSer_Timer()
> Call GetServiceInfo()
> End Sub
>
> Private Sub GetServiceInfo()
> RS.Refresh
> eller
> RS.Requery
> .....
> End Sub
>
>
> BG
>
>

---

Du skriver i dit eksempel:

> RS.Close
> CN.Close
> RS.Close

Den ene RS.Close skulle gerne være WS.Close. Det står der vel i det rigtige
kode?

Desuden, prøv i denne rækkefølge:

RS.Close
CN.Close
WS.Close
set RS = nothing
set CN = nothing
set WS = nothing

(dvs. først RS, siden CN og WS sidst).

Hilsen
Michael



"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
>
>