Excel zu langsam?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

rec.Open sql, conn, adOpenKeyset ' Recordset-Objekt öffnen For k = 1 To rec.Fields.Count - 1 ÜC_Array(1, k) = rec.Fields(k).Name ' Überschriften einlesen Next k Sheets("Tabelle2").Range("A3:IV3").Value = ÜC_Array() ' Feldüberschriften übergeben v_Anzahl1 = rec.RecordCount ' Anzahl Datensätze merken Sheets("Tabelle2").Cells(4, 1).CopyFromRecordset rec ' alle Datensätze übernehmen rec.Close ' Recordset-Objekt schließen

rec.Open Sql, conn ' Recordset-Objekt öffnen For k = 1 To rec.Fields.Count - 1 ÜC_Array(1, k) = rec.Fields(k).Name ' Überschriften einlesen Next k With Sheets("Tabelle2") .Range("A3:IV3").Value = ÜC_Array() ' Feldüberschriften übergeben .Cells(4, 1).CopyFromRecordset rec ' alle Datensätze übernehmen End With v_Anzahl1 = rec.RecordCount ' Anzahl Datensätze merken rec.Close ' Recordset-Objekt schließen conn.Close ' Connection schließen

Hallo Martin,
Danke erneut.
Ich habe auch das Objekt conn bisher nicht deklariert.
Ich öffne die Verbindung zur Datenquelle mit
Code


conn.Open "Provider=microsoft.jet.oledb.4.0;Data Source=" _
+ ThisWorkbook.Path + "\Datenquelle.MDB"
' Verbindung zur Datenbank
rec.Open sql, conn, adOpenKeyset                         ' Recordset-Objekt öffnen
For k = 1 To rec.Fields.Count - 1
ÜC_Array(1, k) = rec.Fields(k).Name                  ' Überschriften einlesen
Next k
Sheets("Tabelle2").Range("A3:IV3").Value = ÜC_Array()    ' Feldüberschriften übergeben
v_Anzahl1 = rec.RecordCount                              ' Anzahl Datensätze merken
Sheets("Tabelle2").Cells(4, 1).CopyFromRecordset rec     ' alle Datensätze übernehmen
rec.Close
conn.Close                                               ' Verbindung kappen

Ich ahne nun, dass diese fehlende Deklaration das Ganze langsam macht. Leider komme ich mit der Early Binding nicht klar.
Ich habs mal wie vorgeschlagen versucht. z.B so:


Dim conn As New ADODB.Connection
Set conn = ThisWorkbook.Path + "\Datenquelle.MDB"

Leider bekomme ich bei allen Versuchen, über Open oder Set eine Verbindung herzustellen verschiedene Fehlermeldungen.
Wie öffne ich im Rahmen der Early Binding die Connection zur Datenquelle.mdb bzw. dann das Recordset-Objekt? Wie bindet man dort die SQL-Query ein? Und was meinst Du mit "muss im VBA-Editor ein Verweis auf die Microsoft ActiveX DataObjects (MSADO) gesetzt sein"?
Bisher brauche ich das adOpenKeyset, da rec.RecordCount andernfalls immer mit -1 belegt ist. Möglicherweise löst sich dieser Punkt in Wohlgefallen auf, wenn ich die Early Binding hinbekomme.
Ich bitte Dich, Martin, also erneut um Deine Hilfe.
Viele Grüße
Joe

Hallo Joe,
eine fehlende Variablen-Deklaration ist zwar nicht schön, aber sollte auf die Performance keinen Einfluß haben. Du arbeitest bereits mit Early Binding und musst bereits einen Verweis auf Microsoft ActiveX DataObjects gesetzt haben, sonst hätte dein Code bislang nicht funktioniert.
Der Nachteil beim CursorType "adOpenForwardOnly" besteht darin, dass nur eine geringe Anzahl von Funktionen unterstützt wird (...wozu scheinbar leider auch "Fields.Count" gehört). Ich hoffe, dass die Überschriften mit "adOpenDynamic" bereits ausgelesen werden können (...und bei diesem CursorType ist der Verwaltungsaufwand auch noch relativ gering). Die Variablendeklaration muss so aussehen:


Dim conn As New Connection
Dim rec As New Recordset

Offen gesagt habe ich nicht das Gefühl, dass ich dir helfen konnte, denn du hast die Datenbakverbindung bereits mit Early Binding aufgebaut und der CursorType sollte keine so extrem hohe Zugriffszeit verursachen. Die Idee von Luschi ist gut. Liegt bei deinen Kunden die Access-Datenbank eventuell auf einem Netzwerkserver?
Viele Grüße
Martin

Dim rs As DAO.Recordset Set rs = DBEngine(0)(0).OpenRecordset("SELECT [Name] FROM MSysObjects" & _ " WHERE Type = 5") Do While Not rs.EOF DoCmd.DeleteObject acQuery, rs!Name rs.MoveNext Loop rs.Close: Set rs = Nothing

Beliebteste Forumthreads (12 Monate)

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread