Kann ChatGPT eine Access-Datenbank erstellen? No‑Code vs. Low‑Code vs. Vibe Coding im Praxis-Check

-- Mini-Demo: ChatGPT als SQL-Assistent für Access
-- Szenario: Kunden und Bestellungen (typischer CRM/Shop-Use-Case)
-- Tabellen (Beispielnamen): Customers, Orders, OrderItems
-- Wichtige Access-Eigenheiten:
--  - Parameter werden in Abfragen oft in [eckige Klammern] geschrieben
--  - Datumswerte werden mit #...# notiert (z. B. #2026-01-01#)
--  - IIf() und Nz() sind Access-spezifische Funktionen

' 1) Aggregation: Umsatz pro Kunde im Zeitraum (mit Parameterabfrage)
'    Ziel: Pro Kunde Gesamtumsatz und Anzahl Bestellungen ausgeben.
PARAMETERS [Startdatum] DateTime, [Enddatum] DateTime;
SELECT
    c.CustomerID,
    c.CompanyName,
    Count(o.OrderID) AS AnzahlBestellungen,
    Sum(oi.Quantity * oi.UnitPrice) AS Umsatz
FROM
    (Customers AS c
     INNER JOIN Orders AS o ON c.CustomerID = o.CustomerID)
     INNER JOIN OrderItems AS oi ON o.OrderID = oi.OrderID
WHERE
    o.OrderDate >= [Startdatum]
    AND o.OrderDate < DateAdd('d', 1, [Enddatum])
GROUP BY
    c.CustomerID,
    c.CompanyName
ORDER BY
    Sum(oi.Quantity * oi.UnitPrice) DESC;

' Tipp: In Access als gespeicherte Abfrage anlegen.
' Beim Ausführen fragt Access nach Startdatum/Enddatum.


' 2) „Top-N pro Gruppe“ (klassischer Access-Workaround):
'    Ziel: Für jeden Kunden die letzte Bestellung anzeigen.
'    Access hat kein window function-Feature wie ROW_NUMBER() in vielen SQL-Dialekten.
SELECT
    o1.CustomerID,
    o1.OrderID,
    o1.OrderDate
FROM
    Orders AS o1
WHERE
    o1.OrderDate = (
        SELECT Max(o2.OrderDate)
        FROM Orders AS o2
        WHERE o2.CustomerID = o1.CustomerID
    );

' Tipp: Wenn mehrere Bestellungen am gleichen Tag existieren, bekommst du mehrere Zeilen.
' Dann zusätzlich auf Max(OrderID) einschränken oder Zeitstempel verwenden.


' 3) Robuste Kennzahl: Offene Bestellungen (Null-Handling mit Nz)
'    Ziel: Summiere offenen Betrag, auch wenn PaidAmount NULL ist.
PARAMETERS [Kunde] Long;
SELECT
    o.OrderID,
    o.OrderDate,
    o.TotalAmount,
    Nz(o.PaidAmount, 0) AS PaidAmountSafe,
    (o.TotalAmount - Nz(o.PaidAmount, 0)) AS Offen
FROM
    Orders AS o
WHERE
    o.CustomerID = [Kunde]
    AND (o.TotalAmount - Nz(o.PaidAmount, 0)) > 0
ORDER BY
    o.OrderDate DESC;

' Praxis-Checkliste beim Testen in Access:
'  - Stimmen Feldnamen/Datentypen (Long, Text, DateTime, Currency)?
'  - Sind JOINs korrekt (INNER vs. LEFT JOIN)?
'  - Parameter-Typen im PARAMETERS-Block passend setzen (verhindert „Datentypkonflikt“).