Office: (Office 2013) Abfrage schnellste Rennrunden

Helfe beim Thema Abfrage schnellste Rennrunden in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Hi Eberhard, ich habe den Code angepasst. Er funktioniert soweit auch. Werde das ganze dann morgen auf Plausibilität prüfen und Rückmeldung geben.... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von 19Markus90, 19. Januar 2016.

Seite 4 von 5

19MARKUS90

19Markus90

Abfrage schnellste Rennrunden

Hi Eberhard,

ich habe den Code angepasst. Er funktioniert soweit auch. Werde das ganze dann morgen auf Plausibilität prüfen und Rückmeldung geben.
Noch eine Frage zum Verständnis: Der Code zu 2) hat bei mir sehr lange gerechnet. Wenn ich jetzt neue Daten hinzufüge, wird diese Tabelle dann automatisch aktualisiert? Und dauert die Berechnung dann immer so lange?

19Markus90, 24. Februar 2016

#46
EBS17

ebs17

Der Code zu 2) hat bei mir sehr lange gerechnet.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das ist aber das gleiche, was wir weiter oben schon mal hatten.

Daher die Frage: Was ist in dem Moment in der Tabelle drin? Die Daten einer Session, oder etwas mehr? Ich hatte eingangs auch darauf hingewiesen, dass da intern viel Aufwand drinsteckt. Daher sollte das nicht auf sehr viele Datensätze angewendet werden, die genannten 700 Datensätze sollten aber für einen einmaligen Durchgang kein Problem sein.

Zusätzliche Maßnahmen:
- (Immer wichtig!) Indizes setzen, siehe Grundlagen - SQL ist leicht (8) - Index inklusive Script im dortigen Link.
Betrifft beide Tabellen.
- Datenmengensenkung durch zusätzliche Filterung über Parameter. Das hatte ich hier rausgenommen, auch weil ich nicht bei jedem Test per Hand Parameter eingeben wollte. Wenn Du wieder gezielt auf einzelne Driver, CarNumbers, ... in Kombination gehst, sind es dann weniger daten und die verarbeitung geht schneller für diese Abfrage, dafür musst Du ...zig Kombinationen nacheinander ausführen.
Da musst Du Dir klar werden, welche Arbeitsweise Du bevorzugst. Die einmalige Aufarbeitung vorhandener Daten ist da ein Sonderfall.

ebs17, 24. Februar 2016

#47
19MARKUS90

19Markus90

Aktuell sind von der Saison 2015 1700 Datensätze in der Datenbank. In dieser Saison kommen etwa ~3000 hinzu.
Ich denke, dass die Parametrisierung noch ein guter Ansatz ist, da ich auf die laufenden Durchschnitte wirklich nur nach jeder Session zugreife möchte.
Zunächst wird in Excel nach dem Jahr und der Strecke gefiltert. Wir haben zwei Fahrzeuge mit jeweils drei Fahrern. Über einen weiteren Slicer möchte ich nach der Session dann die Startnummer auswählen. Anschließend sollen die Daten für Jahr->Strecke->Session->Startnummer ausgegeben werden.

19Markus90, 24. Februar 2016

#48
EBS17

ebs17

Abfrage schnellste Rennrunden

Die Idee war eigentlich, nur neue Daten zu verarbeiten, dabei einmalig die Ränge und gleitenden Durchschnitte zu berechnen und das Ganze dann in eine statische Tabelle zu übertragen (dort anzuhängen), so dass Du auch im Nachgang auf Ränge und Durchschnitte zugreifen kannst, ohne neu rechnen zu müssen.

ebs17, 24. Februar 2016

#49
19MARKUS90

19Markus90

Wenn ich neue Daten in Datenbank reinlade, wird dann automatisch die statische Tabelle aktualisiert? Oder muss ich die Aktualisierung manuell starten?

19Markus90, 24. Februar 2016

#50
EBS17

ebs17

neue Daten in Datenbank reinlade
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie genau passiert das?

Normalerweise Importtabelle vorher leeren oder löschen. Dann der Import wie auch immer. Dann Anfügeabfrage ausführen. Dabei werden zusätzlich die Ränge und Durchschnitte berechnet, und alles wird in die statische Tabelle eingetragen (angefügt).
Vorgang nur einmal ausführen, da sonst in der Zieltabelle Duplikate entstehen. Besser: Vorkehrungen treffen wie einen eindeutigen zusammengesetzten Index. Der verhindert zuverlässig Eintragungen von Duplikaten.

Oder muss ich die Aktualisierung manuell starten?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn der Datenimport durch eine VBA-Prozedur erledigt wird, kann man die Anfügeabfrage da gleichfalls anstoßen.

ebs17, 24. Februar 2016

#51
19MARKUS90

19Markus90

Der Import läuft über VBA. Die Daten werden dann alle in die Tabelle Import_Lap_Report importiert.
Ich könnte dann natürlich auch eine "temporäre" Tabelle erstellen, in der ich auch die neuen Daten importiere, die Anfügeabfrage ausführe, um die Daten in die Tabelle mit dem Ranking anzufügen und anschließend die Daten aus der temporären Tabelle wieder löschen.

19Markus90, 24. Februar 2016

#52
EBS17

ebs17

Abfrage schnellste Rennrunden

Für mich wäre die Tabelle Import_Lap_Report bereits diese temporäre Tabelle.

ebs17, 24. Februar 2016

#53
19MARKUS90

19Markus90

Hi Eberhard,

über Excel greife ich öfters auf diese Tabelle zu, deshalb habe ich eine neue temporäre Tabelle erstellt. Ich importiere die Daten einmal in Import_Lap_Report und einmal in T_LaptimeRankTemp.

Nach dem Import führe ich folgende Anfügeabfrage aus, um die gewünschten Daten in die Tabelle T_LaptimeRank anzuhängen.

Code:

INSERT INTO T_LaptimeRank ( Filename, [Year], Track, [Session], CarNumber, Driver, Laptime, LapTimeRank, AvgLaptime )
SELECT S.Filename, S.Year, S.Track, S.Session, S.CarNumber, S.Driver, S.Laptime, S.LapTimeRank, (
SELECT
AVG(Y.Laptime)
FROM
(
SELECT
T.Filename,
T.Year,
T.Track,
T.Session,
T.CarNumber,
T.Driver,
T.Laptime,
(
SELECT
COUNT(X.Laptime) AS X1
FROM
T_LaptimeRankTemp AS X
WHERE
X.Filename=T.Filename
AND
X.Year=T.Year
AND
X.Track = T.Track
AND
X.Session = T.Session
AND
X.CarNumber = T.CarNumber
AND
X.Driver = T.Driver
AND
X.Laptime > 0
AND
X.Laptime < T.Laptime
)
+ 1 AS LapTimeRank
FROM
T_LaptimeRankTemp AS T
WHERE
T.Laptime > 0
) AS Y
WHERE
Y.Filename = S.Filename
AND
Y.Year = S.Year
AND
Y.Track = S.Track
AND
Y.Session = S.Session
AND
Y.CarNumber = S.CarNumber
AND
Y.Driver = S.Driver
AND
Y.LapTimeRank 0
AND
X.Laptime < T.Laptime
)
+ 1 AS LapTimeRank
FROM
T_LaptimeRankTemp AS T
WHERE
T.Laptime > 0
) AS S;
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nach dieser Anfügeabfrage wird der Inhalt von T_LaptimeRankTemp gelöscht.

Anschließend habe ich Deinen Code mit Parametern erweitert:
Code:

PARAMETERS [$Year] Long, [$Track] Text ( 255 ), [$Session] Text ( 255 ), [$CarNumber] Long;
SELECT T.*
FROM T_LaptimeRank AS T
WHERE (((T.ID) In (SELECT TOP 10
X.ID
FROM
T_LaptimeRank AS X
WHERE
X.Year=T.Year
AND
X.Track = T.Track
AND
X.Session = T.Session
AND
X.Driver = T.Driver
AND
X.Year = [$Year]
AND
X.Track = [$Track]
AND
X.Session = [$Session]
AND
X.CarNumber = [$CarNumber]
ORDER BY
X.Laptime asc
)))
ORDER BY Year, Track, Session, CarNumber, Driver, Laptime;
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das klappt sehr gut.
Jetzt gibt es nur das Problem, dass bei gleichen Rundenzeiten LaptimeRank nicht hochgezählt wird, sondern zweimal der gleiche Rang vergeben wird. Ich weiß, dass ich das irgendwie umgehen kann, indem ich die ID anstatt der Rundenzeit verwende. Aber trotz einiger Versuche habe ich den Code nicht an's Laufen bekommen. Wie muss der erste Code geändert werden?

19Markus90, 26. Februar 2016

#54
EBS17

ebs17

Die Problematik, dass gleiche Rundenzeiten gleiche Ränge ergeben, hatte ich schon einmal ganz oben angesprochen.

Welches objektive Kriterium in der Tabelle würde denn bei gleichen Rundenzeiten die gewünschte eindeutige Reihenfolge ermöglichen?

ebs17, 27. Februar 2016

#55
19MARKUS90

19Markus90

Hi,

richtig, Du hattest das Problem bereits erwähnt. Ich weiß auch, dass ich dies umgehen kann, indem ich die ID einbeziehe. Nach einigen Versuchen bin ich leider auf keine Lösung gekommen. Wie muss ich die ID verwenden, damit der Rang durchnummeriert wird?
Vielen Dank und ein schönes Wochenende,

Markus

19Markus90, 27. Februar 2016

#56
EBS17

ebs17

Code:

...
(
SELECT
COUNT(X.Laptime) AS X1
FROM
T_LaptimeRankTemp AS X
WHERE
X.Filename=T.Filename
AND
X.Year=T.Year
AND
X.Track = T.Track
AND
X.Session = T.Session
AND
X.CarNumber = T.CarNumber
AND
X.Driver = T.Driver
AND
X.Laptime > 0
AND
X.Laptime < T.Laptime
)
+ 1 AS LapTimeRank
...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das ist die Rangberechnung (Achtung, kommt oben mehrfach vor). Die blau hervorgehobene Zeile ist die entscheidende für die Zählung und damit für den Rang. Bezieht man ein weiteres Kriterium mit ein, muss es genau da eingepflegt werden.
Damit es genau ein Vergleich bleibt, kann man einen technischen Ausdruck erzeugen. Wenn also bei gleicher Rundenzeit diejenige besser gewertet wird, die zuerst erfasst wurde (das entspricht dann der ID), dann könnte es etwa so aussehen:
Code:

X.Laptime * 1000 + X.ID / 10000 < T.Laptime * 1000 + T.ID / 10000
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Es werden also hier Zahlen erzeugt, die dann der Sortierung der Zeiten und in zweiter Ebene der Sortierung der ID's entsprechen, ohne dass sich die Ebenen gegenseitig zu überlagern (reale Werte überprüfen und ggf. Korrektur vornehmen).
Eine erzeugte Zahl ist bei der nachfolgenden Auswertung günstiger als ein Text (Textzusammensetzung wäre auch denkbar), weil Computer ausgehend vom eigentlich verwendeten Binärsystem mit Zahlen besser rechnen als mit Buchstaben.

ebs17, 27. Februar 2016

#57
19MARKUS90

19Markus90

Abfrage schnellste Rennrunden

Hallo,

ich habe den Code angepasst, aber leider funktioniert die Hochnummerierung bei gleichen Rundenzeiten nicht. Woran kann das liegen?
Meine Vermutung ist, dass ich den Abschnitt
Code:

SELECT
COUNT(X.Laptime) AS X1
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

anpassen muss. Liege ich da richtig?

Code:

INSERT INTO T_LaptimeRank ( Filename, [Year], Track, [Session], CarNumber, Driver, Laptime, LapTimeRank, AvgLaptime )
SELECT S.Filename, S.Year, S.Track, S.Session, S.CarNumber, S.Driver, S.Laptime, S.LapTimeRank, (
SELECT
AVG(Y.Laptime)
FROM
(
SELECT
T.Filename,
T.Year,
T.Track,
T.Session,
T.CarNumber,
T.Driver,
T.Laptime,
(
SELECT
COUNT(X.Laptime) AS X1
FROM
T_LaptimeRankTemp AS X
WHERE
X.Filename=T.Filename
AND
X.Year=T.Year
AND
X.Track = T.Track
AND
X.Session = T.Session
AND
X.CarNumber = T.CarNumber
AND
X.Driver = T.Driver
AND
X.Laptime > 0
AND
X.Laptime * 1000 +X.Id / 10000 < T.Laptime * 1000 +T.Id / 10000
)
+ 1 AS LapTimeRank
FROM
T_LaptimeRankTemp AS T
WHERE
T.Laptime > 0
) AS Y
WHERE
Y.Filename = S.Filename
AND
Y.Year = S.Year
AND
Y.Track = S.Track
AND
Y.Session = S.Session
AND
Y.CarNumber = S.CarNumber
AND
Y.Driver = S.Driver
AND
Y.LapTimeRank 0
AND
X.Laptime * 1000 +X.Id / 10000 < T.Laptime * 1000 +T.Id / 10000
)
+ 1 AS LapTimeRank
FROM
T_LaptimeRankTemp AS T
WHERE
T.Laptime > 0
) AS S;
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

19Markus90, 28. Februar 2016

#58
EBS17

ebs17

aber leider funktioniert die Hochnummerierung bei gleichen Rundenzeiten nicht
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie drückt sich Nichtfunktionieren konkret aus? Gelber Rauch, der alle Sicht nimmt?

ebs17, 28. Februar 2016

#59
19MARKUS90

19Markus90

Bei zwei gleichen Rundenzeiten ist der Rang trotzdem der selbe.

19Markus90, 28. Februar 2016

#60

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 4 von 5

Thema:

Abfrage schnellste Rennrunden

Die Seite wird geladen...

Abfrage schnellste Rennrunden - Similar Threads - Abfrage schnellste Rennrunden
Ausführen einer Abfrage Forcieren
in Microsoft Access Hilfe
Ausführen einer Abfrage Forcieren: Guten Morgen Ich hätte mal ne Frage zum Ausführen von Abfragen mittels VBA. Mittels VBA kann ich ja via "docmd.openquery ..." eine Abfrage ausführen. Ich nutze das immer wieder mal um z.b:...
Abfrage Kriterien ist falsch
in Microsoft Access Hilfe
Abfrage Kriterien ist falsch: Hallo, ich will bei einer Abfrage als Kriterium folgende Anweisung einfügen: Nicht In (SELECT tblBenutzergruppen.BenutzergruppeID FROM tblBenutzergruppen INNER JOIN tblGruppenzuordnungen ON...
Abfrage: Anzahl von Kriterium >0
in Microsoft Access Hilfe
Abfrage: Anzahl von Kriterium >0: Hallo, [ATTACH] Ich versuche gerade, die Anzahl der belegten Plätze auf einem LKW per Abfrage zu ermitteln. Dabei wäre dann FSPal > 0. Leider zeigt er mir die Anzahl der Plätze an. [ATTACH]...
Teil des Zellinhaltes abfragen in VBA
in Microsoft Excel Hilfe
Teil des Zellinhaltes abfragen in VBA: Guten Tag, ich möchte in Zelle E1 den linken 4-stelligen Teil in Zelle A3 abfragen. Habs versucht mit IF (LEFT(R[2]C[-3],4) = "8396") then ... Else ... End If Wer kann...
Verliert irgendwann die Selektive Abfrage von UFO
in Microsoft Access Hilfe
Verliert irgendwann die Selektive Abfrage von UFO: Guten Tag Ich habe ein HF mit darin befindlichem UF. Die Abfrage der Teilnehmer im Uf bezieht sich immer auf den Kurs-Typ im HF Solang ich das Formular neu erstelle, funktioniert das...
automatische Abfrage URL via Artikelnummer
in Microsoft Access Hilfe
automatische Abfrage URL via Artikelnummer: Guten Tag Bei der Aktualisierung der Homepage und aufgrund eines Plugin-Wechsels des Üebersetzungstools hat wordpress alle Permalinks der Produkte verändert. Unserem Webmaster war nicht bekannt,...
Schnell SQL-Ansicht für Abfrage öffnen
in Microsoft Access Hilfe
Schnell SQL-Ansicht für Abfrage öffnen: Hallo, ich verwende nur gelegentlich Access 2007 und würde gerne wissen wie ich schnell von einer Tabelle in die SQL-Ansicht einer Abfrage komme. Ich öffne beispielsweise eine mdb-Datei, weil...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden