Wie sind die Spalten definiert ?
Denn ja nach dem wie die Spalten defniert sind ist die Lösung anders.
Sind Hose Blau zwei Spalten oder nur eine ?
Ist Stückzahl der Spaltenname oder in der Spalt enthalten.
Beispiel:
Angenommen dass es folgende Spalten gibt : Artikel (Hose), Farbe (Blau), Stückzahl (9)
Die Abfrage könnte dann so aussehen.
Dim i As Int
Dim Artikel = "Hose" As String
Dim Query As String
Dim Curs As Cursor
' Abfrage der verschiedenen Farben
Query = "SELECT DISTINCT Farbe FROM " & SQLTabelName & " WHERE Artikel = '" & Artikel & "'"
Curs = SQL1.ExecQuery(Query)
Dim Farbe(Curs.RowCount) As String
Dim Anzahl(Curs.RowCount) As Int
For i = 0 To Curs.RowCount - 1
Curs.Position = i
Farbe(i) = Curs.GetString("Farbe")
' Abfrage der Summe der Stückzahl von Hosen mit der gegebenen Farbe
Anzahl(i) = SQL1.ExecQuerySingleResult2("SELECT sum(Stückzahl) FROM " & SQLTabelName & " WHERE Artikel = ? AND Farbe = ? ", Array As String(Artikel, Farbe(i)))
Next