Acc2003 - Reicht '= Nothing" um recordset zu schließen?

[Toni]

Hallo,

reicht es, wenn ich am Ende einer Prozedur ein recordset mit

SET rs = nothing

schließe oder muss ich vorher den .close-Befehl anwenden?

Vielen Dank!

[Storch]

soweit ich weiss nicht.

mit nothing leerst du nur die recordsetvariable

um das recordset zu schließen bedarf es der Close-methode also:

rs.Close

[Toni]

Hallo Uwe,

vielen Dank!

In der Hilfe habe ich bei close das gefunden:
'Eine Alternative zur Close-Methode ist es, den Wert einer Objektvariable auf Nothing (Set dbsTemp = Nothing) zu setzen.'

Dann müssten doch die Systemresourcen wieder frei sein, oder?

Kann ich irgendwie feststellen, ob sich Access durch fehlende close- bzw. nothing-Befehle aufschaukelt und die Resourcen knapp werden?

[Claypool]

Hallo!

Schau mal hier nach. Das dürfte helfen.

Grüße
Ingo

[Toni]

Hallo Ingo,

das ist auf jeden Fall die sicherste Methode. Ich hatte alles auf "= nothing" und seit einiger Zeit stürzt die Applikation - sogar manchmal wenn Sie nur im Hintergrund aktiv ist - 10-20 mal täglich ab. Ich hoffe, dass das der Fehler ist. Warum es vorher ging: ???

Ich werde noch mal berichten.

Vielen Dank!

[Sascha Trowitzsch]

Im Prinzip muss man gar nichts machen - weder ein .Close absetzen, noch auf Nothing setzen.
Denn nach Ablauf einer Prozedur, in der das Recordset deklariert wurde (...also nicht global), werden laut Theorie in VB(A) alle Variablen entfernt bzw. geschlossen.
Nur: Verlassen tut sich niemand darauf.

Also sollte man Objektvariablen sicherheitshalber per Code behandeln und abbauen, was grundsätzlich per Nothing geschieht.

Das Setzen auf Nothing zählt die Referenz auf das Objekt um eins herunter.
Wenn der interne Zähler eines Objekts bei Null angekommen ist, wird es aus dem Speicher entfernt, konkret: Die Destruktor-Methjode des Objekts wird angesteuert.
Wenn das Recordset innerhalb einer Prozedur deklariert wurde, dann gibt es normal auch nur innerhalb dieser Prozedur eine Referenz auf das Objekt - das Setzen auf Nothing setzt also den Referenzzähler auf Null, wodurch der Recordset-Destruktor anspringt, der implizit das .Close veranlassen sollte.

Nur: Auch darauf verlässt man sich besser nicht, sondern führt das Close ausdrücklich so bald wie möglich, sprich: sobald man das Recordset nicht mehr braucht, per Code aus.
Und das zusätzliche Setzen auf Nothing kann zumindest nicht schaden.
Das erhöht zudem die Übersichtlichkeit und Verständlichkeit des Codes.

Ciao, Sascha

[Toni]

Hallo Sascha,

können die Abstürze dadurch verursachtsein? Ich weiß mir sonst keinen Rat.

[Atrus2711]

Hi,
der Garbage Collector von VBA ist halt nicht verlässlich. "Irgendwann" nach dem Runterzählen auf 0 wird das Objekt vernichtet. Bis dahin belegt es Speicher. Und wenn dann da hingegriffen wird, krachts.

Alte Handwerkerregel: Halte deinen Arbeitsplatz sauber. Lass nichts rumliegen. Räum deine Werkzeuge weg, sobald du sie nicht mehr brauchst. Verlass dich nichtr drauf, dass die Putzkolonne das rechtzeitig/richtig/sinnvoll aufräumt.

[Toni]

Bin schon beim aufräumen. Werde mich melden, wenn alles sauber ist.

[Toni]

Bis jetzt läuft alles. Allerdings kamen schon Fehlermeldungen, dass die Objektvable nicht existiert, obwoh ich 'if not...' verwende:
If Not rs Is Nothing Then rs.Close: Set rs = Nothing

Kann das Recorset einen Inhalt haben, obwohl es nicht offen ist???

[JPA]

Hi,

mir ist auch schon aufgefallen, das Objektvariable nicht mehr gültig sind, jedoch nicht Nothing sind. Un mit anderen prüffunktionen kann man dies auch nicht sauber abfangen.
Daher mache ich es immer so:

Code:

On Error Resume next
rs.Close
Set rs = Nothing

[Atrus2711]

Das Set rs = Nothing kann keinen Fehler auslösen, wenn rs deklariert ist (und das sollte es ja eh immer sein). Und schließen sollte man immer sobald wie mögloch. Dann braucht es keinen "Schließversuch".

[Steffen0815]

Hallo,

Zitat: von Atrus2711

Hi,
der Garbage Collector von VBA ist halt nicht verlässlich

Bist du dir sicher, dass es sowas in VBA gibt .
Ich bin der Meinung, ein lokaler Objektverweis wird am Ende der Prozedur zuverlässig zerstört. Deshalb ist es in VBA nicht notwendig, lokale Verweise explizit frei zu geben.

Code:

Option Compare Database
Option Explicit

Sub Irgendwas()
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("acTabelle1")
' viel Code

' meiner Meinung nach überflüssig
'rs.Close
'Set rs = Nothing
End Sub

Sub testen()
Dim i As Integer
For i = 1 To 10000
    Call Irgendwas
Next
End Sub

[Bernd_G]

Zitat: von Steffen0815

Code:

' meiner Meinung nach überflüssig
'rs.Close

aber auch nur, wenn der Destructor explizit Close aufruft - aber wer weiss das schon.

Bei lokalen Variablen kann vielleicht auf das ' = Nothing ' verzichtet werden, aber das ' .Close ' würde ich zur Sicherheit lieber grundsätzlich aufrufen.

[Steffen0815]

Hallo,

Zitat:

aber auch nur, wenn der Destructor explizit Close aufruft - aber wer weiss das schon

Was für Zeugs .
Der obere Code beweist meiner Meinung nach, dass es nicht notwendig ist.