Office: Openrecordset: 1 Parameter wurde erwartet ...

Josef P. · 7. März 2011

Hallo!

Dann würde ich besser die Unterabfragen erst gar nicht zu einer einzelnen Abfrage zusammensetzen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie meinst du das?

(eigentlich sind es da 4 Abfragen, die ineinander gesetzt wurden)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aber eine Ebene tiefer => man könnte in der Prozedur, die den SQL-String für SqlXyz aufbereitet, natürlich wieder das gleiche Schema anwenden und dort wieder die Unterabfragen in Hilfsvariablen abspeichern.

mfg
Josef

Josef P. · 7. März 2011

Ich probierte die in #14 beschriebene Variante mit dem Code aus #13 aus, um zu sehen, ob der Code damit übersichtlich ist.

Ausgangs-Code:
Code:

Public Function AusgangsCode() As String

Dim sSQL As String

sSQL = sSQL & "SELECT T.user_id "
sSQL = sSQL & "FROM tblAnstieg AS T "
sSQL = sSQL & " INNER JOIN "
sSQL = sSQL & " (SELECT G.user_id , "
sSQL = sSQL & " MIN(G.datum) AS MinDatum, "
sSQL = sSQL & " SUM(G.Diff) AS SummeDiff "
sSQL = sSQL & " FROM (SELECT Q1.user_id, "
sSQL = sSQL & " Q1.datum, "
sSQL = sSQL & " ( "
sSQL = sSQL & " (SELECT Q2.wert "
sSQL = sSQL & " FROM (SELECT A.* "
sSQL = sSQL & " FROM tblAnstieg AS A "
sSQL = sSQL & " WHERE A.id IN "
sSQL = sSQL & " (SELECT TOP 4 B.id "
sSQL = sSQL & " FROM tblAnstieg B "
sSQL = sSQL & " WHERE B.user_id = A.user_id "
sSQL = sSQL & " ORDER BY B.user_id, "
sSQL = sSQL & " B.datum "
sSQL = sSQL & " ) "
sSQL = sSQL & " ) "
sSQL = sSQL & " AS Q2 "
sSQL = sSQL & " WHERE Q2.user_id = Q1.user_id "
sSQL = sSQL & " AND Q2.datum = "
sSQL = sSQL & " (SELECT MIN(X.datum) "
sSQL = sSQL & " FROM (SELECT A.* "
sSQL = sSQL & " FROM tblAnstieg AS A "
sSQL = sSQL & " WHERE A.id IN "
sSQL = sSQL & " (SELECT TOP 4 B.id "
sSQL = sSQL & " FROM tblAnstieg B "
sSQL = sSQL & " WHERE B.user_id = A.user_id "
sSQL = sSQL & " ORDER BY B.user_id, "
sSQL = sSQL & " B.datum "
sSQL = sSQL & " ) "
sSQL = sSQL & " ) "
sSQL = sSQL & " AS X "
sSQL = sSQL & " WHERE X.datum > Q1.datum "
sSQL = sSQL & " AND X.user_id = Q1.user_id "
sSQL = sSQL & " ) "
sSQL = sSQL & " ) "
sSQL = sSQL & " - Q1.wert) > 0 AS Diff "
sSQL = sSQL & " FROM (SELECT A.* "
sSQL = sSQL & " FROM tblAnstieg AS A "
sSQL = sSQL & " WHERE A.id IN "
sSQL = sSQL & " (SELECT TOP 4 B.id "
sSQL = sSQL & " FROM tblAnstieg B "
sSQL = sSQL & " WHERE B.user_id = A.user_id "
sSQL = sSQL & " ORDER BY B.user_id, "
sSQL = sSQL & " B.datum "
sSQL = sSQL & " ) "
sSQL = sSQL & " ) "
sSQL = sSQL & " AS Q1 "
sSQL = sSQL & " ) "
sSQL = sSQL & " AS G "
sSQL = sSQL & " GROUP BY G.user_id "
sSQL = sSQL & " HAVING SUM(G.Diff)=-3 "
sSQL = sSQL & " ) "
sSQL = sSQL & " AS S "
sSQL = sSQL & " ON ( "
sSQL = sSQL & " T.user_id=S.user_id "
sSQL = sSQL & " ) "
sSQL = sSQL & " AND "
sSQL = sSQL & " ( "
sSQL = sSQL & " T.datum=S.MinDatum "
sSQL = sSQL & " ) "
sSQL = sSQL & "WHERE T.wert " & DatumFilter
sSQL = sSQL & " AND X.user_id = " & UserIdFilter
sSQL = sSQL & " ) "

GetWertAnstiegTop4Sql = sSQL

End Function

Private Function GetAnstiegTop4Sql() As String

Dim sSQL As String

sSQL = " SELECT A.* "
sSQL = sSQL & " FROM tblAnstieg AS A "
sSQL = sSQL & " WHERE A.id IN ("
sSQL = sSQL & " SELECT TOP 4 B.id "
sSQL = sSQL & " FROM tblAnstieg B "
sSQL = sSQL & " WHERE B.user_id = A.user_id "
sSQL = sSQL & " ORDER BY B.user_id, "
sSQL = sSQL & " B.datum "
sSQL = sSQL & " )"

GetAnstiegTop4Sql = sSQL

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

... bitte von den Prozedurnamen nicht zu sehr ablenken lassen. Da ich nicht weiß, um was es in diesen SQL-Anweisungen geht, nahm ich den Tabellennamen und erweiterte ihn mit den verwendeten (prägenden) SQL-Anweisungen.

Anm.: sSQL = sSQL & "... übernahm ich auch im aufgeteilten Code, damit das zu keinem optischen Unterschied führt, da diese Schreibweise nichts mit der Aufteilung zu tun hat.

mfg
Josef

Office: Openrecordset: 1 Parameter wurde erwartet ...

Openrecordset: 1 Parameter wurde erwartet ...

Openrecordset: 1 Parameter wurde erwartet ...

Openrecordset: 1 Parameter wurde erwartet ... - Similar Threads - Openrecordset Parameter erwartet

OpenRecordset mit SQL

1 Parameter wurde erwartet aber es wurden zu wenig Parameter übergeben

Standard-Wert ändern bei optionalen Parametern in LAMBDA

Parameter aus Tabelle wiedergeben

VBA Tabelle als Parameter eingeben

Abfrage Nummer Vergleich mit unterschiedlichen Parametern

Verwenden von Parametern zur Eingabeaufforderung beim Ausführen einer Abfrage