Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
504to508
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
504to508
504to508
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Funktion zu langsam

Funktion zu langsam
27.10.2004 10:26:21
Christin
Hallöchen Leute,
...hab gestern schonmal gepostet! ...hatte 7 Funktionen um Termine aus einer DB zu lesen...das auslesen funktionierte voll langsam!!! Habe gesten den tipp bekommen alle 7 Funktionen zu einer zusammen zu fassen!! ...(HAB ICH GEMACHT!)
...is aber immernoch zu langsam...
(Jemand muss doch Ahnung von schleifen haben!!!) ....ich bekomme es nämlich nich hin!!!
ODER ZUMINDEST EINEN VORSCHLAG WIE DAS AUSLESEN SCHNELLER GEHT!!!
################################################################################
CODE;

Function Wochentage()
On Error Resume Next
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
Dim sSql1 As String
Dim sSql2 As String
Dim sSql3 As String
Dim sSql4 As String
Dim sSql5 As String
Dim sSql6 As String
Dim sSql7 As String
Dim SuchDatum1 As String
Dim SuchDatum2 As String
Dim SuchDatum3 As String
Dim SuchDatum4 As String
Dim SuchDatum5 As String
Dim SuchDatum6 As String
Dim SuchDatum7 As String
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = "M:\Themen\PROJEKT\Organizer\Organizer\Daten.mdb"
cn.Open
rs.ActiveConnection = cn
rs.Source = "Termine"
SuchDatum1 = Worksheets("Wochenansicht").Cells(2, 5).Text
SuchDatum2 = Worksheets("Wochenansicht").Cells(16, 5).Text
SuchDatum3 = Worksheets("Wochenansicht").Cells(30, 5).Text
SuchDatum4 = Worksheets("Wochenansicht").Cells(2, 11).Text
SuchDatum5 = Worksheets("Wochenansicht").Cells(16, 11).Text
SuchDatum6 = Worksheets("Wochenansicht").Cells(30, 11).Text
SuchDatum7 = Worksheets("Wochenansicht").Cells(37, 11).Text
SuchDatum1 = Format(CDate(SuchDatum1), "\#mm\/dd\/yyyy\#")
SuchDatum2 = Format(CDate(SuchDatum2), "\#mm\/dd\/yyyy\#")
SuchDatum3 = Format(CDate(SuchDatum3), "\#mm\/dd\/yyyy\#")
SuchDatum4 = Format(CDate(SuchDatum4), "\#mm\/dd\/yyyy\#")
SuchDatum5 = Format(CDate(SuchDatum5), "\#mm\/dd\/yyyy\#")
SuchDatum6 = Format(CDate(SuchDatum6), "\#mm\/dd\/yyyy\#")
SuchDatum7 = Format(CDate(SuchDatum7), "\#mm\/dd\/yyyy\#")
sSql1 = "SELECT * FROM Termine WHERE Datum=" + SuchDatum1 + "ORDER BY Zeit"
sSql2 = "SELECT * FROM Termine WHERE Datum=" + SuchDatum2 + "ORDER BY Zeit"
sSql3 = "SELECT * FROM Termine WHERE Datum=" + SuchDatum3 + "ORDER BY Zeit"
sSql4 = "SELECT * FROM Termine WHERE Datum=" + SuchDatum4 + "ORDER BY Zeit"
sSql5 = "SELECT * FROM Termine WHERE Datum=" + SuchDatum5 + "ORDER BY Zeit"
sSql6 = "SELECT * FROM Termine WHERE Datum=" + SuchDatum6 + "ORDER BY Zeit"
sSql7 = "SELECT * FROM Termine WHERE Datum=" + SuchDatum7 + "ORDER BY Zeit"
'Montag
rs.Open (sSql1)
Worksheets("Wochenansicht").Cells(3, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(3, 3) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(4, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(4, 3) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(5, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(5, 3) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(6, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(6, 3) = rs![Thema]
rs.Close
'Dienstag
rs.Open (sSql2)
Worksheets("Wochenansicht").Cells(17, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(17, 3) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(18, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(18, 3) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(19, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(19, 3) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(20, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(20, 3) = rs![Thema]
rs.Close
'Mittwoch
rs.Open (sSql3)
Worksheets("Wochenansicht").Cells(31, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(31, 3) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(32, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(32, 3) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(33, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(33, 3) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(34, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(34, 3) = rs![Thema]
rs.Close
'Donnerstag
rs.Open (sSql4)
Worksheets("Wochenansicht").Cells(3, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(3, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(4, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(4, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(5, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(5, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(6, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(6, 9) = rs![Thema]
rs.Close
'Freitag
rs.Open (sSql5)
Worksheets("Wochenansicht").Cells(17, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(17, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(18, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(18, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(19, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(19, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(20, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(20, 9) = rs![Thema]
rs.Close
'Samstag
rs.Open (sSql6)
Worksheets("Wochenansicht").Cells(31, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(31, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(32, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(32, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(33, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(33, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(34, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(34, 9) = rs![Thema]
rs.Close
'Sonntag
rs.Open (sSql7)
Worksheets("Wochenansicht").Cells(38, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(38, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(39, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(39, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(40, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(40, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(41, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(41, 9) = rs![Thema]
rs.Close
End Function

cu
Christin

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Funktion zu langsam
Ramses
Hallo
Variablen können nicht in Schleifen gepackt werden, so ala
For i = 1 to 7
Str = "sSql17"
rs.Open (Str)
Next i
Die andere Frage lautet daher eher:
Was bedeutet langsam ?
Einen alten Rechner oder ein langsames Netz kannst du mit VBA nicht beschleunigen.
Gruss Rainer
AW: Funktion zu langsam
Christin
Hi,
...Rchener is Gut! ...Netzwerk is Top!! ...aber ich verstehe trozdem nich ganz!!!
also so...?!....oder wie?
For i = 1 to 7
Str = "sSql(i)"
rs.Open (Str(i))
Next i
Gruss
Christin
AW: Funktion zu langsam
Ramses
Hallo
habe ich doch gerade geschrieben, dass das nicht geht.
Netzwerk ist top höre ich auch jeden Tag von meinem Admin,.... un der Transfer einer Datei von 10 MB dauert dann 20 Sekunden :-(
Was verstehst du denn unter langsam ?
Gruss Rainer
Anzeige
AW: Funktion zu langsam
Christin
:-)
....100Mbit\s.....volle pulle!!!!!!!! (ausserdem is das Programm noch Testversion....Datenbank befindet sich noch im gleichen Pfad wie die ExcelDatei!!)
Christin
Ohne vernünftige Antwort steige ich aus....
Ramses
Hallo
wenn du Hilfe erwartest, musst du vernünftige Antworten geben.
Mit deinen Antworten kann ich nix anfangen.
Ciao
Gruss Rainer
AW: Ohne vernünftige Antwort steige ich aus....
Christin
...was erwartest Du!!!
Die Sache hat weder was mit dem Netzwerk noch mit meinem Rechner zu tun!!!
Wollte wissen wie das mit der Schleife Fuktioniert....mehr nicht!!!
....du bist ja Krass....
AW: Ohne vernünftige Antwort steige ich aus....
Ramses
Hallo
"... du bist ja Krass..."
Was erwartest du denn ?
Eine Schleife funktioniert nicht, wie ich dir bereits geschrieben habe, weil Variablen nun mal definiert sind und deren Bezeichnungen nicht beliebig geändert werden können.
Das wäre die Voraussetzung für eine Code-Optimierung mit einer Schleife.
Für eine einfache Frage:
"Was ist für dich langsam"
kann es doch nur eine Anwort geben:
z.B. "Der Code dauert 10 Sekunden"
Und für ungeduldige wie dich ist wohl 1 Sekunde schon zu lang.
Anyway,... auch das bringt mich nicht weiter.
Ciao
Gruss Rainer
Anzeige
debuggen
27.10.2004 14:59:59
Rolf
Hallo Christin,
um die Diskussion mal wieder zu entschärfen:
deine Anwendung ist zu komplex,
als dass man sich mal eben hinein denken könnte.
Ich empfehle dir, dich Schritt für Schritt
durch zu debuggen, um zu sehen, welche
Programmteile wie oft und möglicherweise unnötig
durchlaufen werden.
FG
Rolf
AW: debuggen
Christin
Hallo Rolf,
...danke für den Tipp....:-)
habs schon hinbekommen!!! funzt jezt wie ne biene!!!!
Christin

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige