Clever-Excel-Forum

Hallo zusammen,

ich habe ein Problem mit einer Abfrage meiner Postgres.

' SQL-Abfrage für Filter 2 Tabelle times (Anwesenheitszeiten)
sqlQuery2 = "SELECT DISTINCT duration_minutes, employee_number, LEFT(start_time, 10) " & _
"FROM public.times " & _
"WHERE duration_minutes > 0"

Hier führt der LEFT-Befehl zu einem Fehler.

Ohne LEFT läuft alles durch, das Problem ich rufe hier über 20.000 Werte ab. Das will ich natürlich nicht. Ich will nur Daten aus dem aktuellen Jahr haben.

In start_time sind die Zeitwerte im Format dd.mm.yyyy hh:mm:ss gespeichert.

Normalerweise sollte LEFT mir das Datum herausgeben, dann könne ich weiter Filtern.

Ich verstehe nicht warum.

Hallo,

teste mal so:

Code:
sqlQuery2 = "SELECT DISTINCT duration_minutes, employee_number, " & LEFT(start_time, 10) & " & _

          "FROM public.times " & _

          "WHERE duration_minutes > 0"

Gruß Uwe

Hi Uwe,

danke für die Hilfe, aber VBA schluckt es leider auch nicht.

Vllt noch als Hinweis ich verwende Excel in der Officeversion 2022.

LG

Hallo h...,

ist start_time wirklich als Text abgespeichert oder als Datum mit dem entsprechenden Ausgabeformat?

Hallöchen,

Zitat:Ohne LEFT läuft alles durch, das Problem ich rufe hier über 20.000 Werte ab. Das will ich natürlich nicht. Ich will nur Daten aus dem aktuellen Jahr haben.

Deine WHERE-Klausel enthält aber nur duration_minutes oder geht es darunter mit AND .. weiter?

LEFT(start_time, 10) würde hier nur, wenn's funktioniert, die Ausgabe der "Spalte" auf 10 Stellen beschränken.
eventuell müsstest Du start_time auch erst mit to_char umwandeln, damit LEFT greifen kann.

Um die Rückgabe einzuschränken, müsste irgendwo in Deinem WHERE was in der Art wie
AND start_time >= '2023-01-01' --> oder > '01-JAN-2023' --> oder ....

Code:
Sub M_snb()

    With Sheet1.QueryTables.Add("ODBC;DSN=Excel files;DBQ=" & ThisWorkbook.FullName, Sheet1.Cells(1, 10))

        .CommandText = "SELECT `AA`, `BB`, `CC` FROM [Sheet1$] Where `BB`>0 And Year(`CC`)='2023'"

        .Refresh False

    End With

End Sub

Ersetze `AA`, `BB` usw.

Guten Morgen,

vielen Dank für die Antworten,

hier ist die Lösung:

sqlQuery2 = "SELECT DISTINCT duration_minutes, employee_number, " & _
"LEFT(TO_CHAR(start_time, 'dd.mm.yyyy'), 10) AS date_only " & _
"FROM public.times " & _
"WHERE duration_minutes > 0"

Das Problem war wie angemerkt, dass LEFT nicht greifen konnte wegen der Formatierung, so gehts.

Nochmals vielen vielen Dank :)

LG

h76469

Egon12

h76469

Ego

schauan

snb

h76469