Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
592to596
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
592to596
592to596
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Recordset freigeben...

Recordset freigeben...
05.04.2005 16:04:23
Dennis
Hi!
Hatte das Thema eben schonmal gepostet, anscheinend ein wenig zu lang und kompliziert. Daher hier einfacher:
Warum haut Excel mir bei der Ausführung dieser DB-Abfrage den Speicher so voll?! Bei 20 Funktionsaufrufen in diversen Zellen verlieren ich schon 15MB Arbeitsspeicher! Bei weiteren Abfragen wird Memory nicht mehr freigeräumt sondern nur noch weiter belastet.
Warum gibt Excel nicht automatisch das Recordset-objekt wieder frei? Excel schmiert mir immer ab "Nicht genügend Arbeitsspeicher"
Dennis

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Recordset freigeben...
05.04.2005 16:08:53
Hajo_Zi
Hallo Dennis,
hast Du die Variablen mit Set definiert und nicht wieder freigegeben?
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


AW: Recordset freigeben...
05.04.2005 16:19:49
Dennis
Nein, das ist es ja! Habe schon alles mögliche probiert, hier mein derzeitiger Code:

Private Function readData(sql As String) As Variant
Dim Conn As New Connection
Conn.Open "Provider=microsoft.jet.oledb.4.0;" & _
"Data Source=" + ThisWorkbook.FullName + ";" & _
"Extended Properties=""Excel 8.0"";"
Dim rs As New Recordset
rs.Open sql, Conn
If IsNull(rs(0)) Then
readData = "0"
Else
readData = rs(0)
End If
rs.Close: Conn.Close
End Function

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige