SQL Abfrage über VBA

Mr_Tom · 25.05.2009

Hallo,

folgenden Thread habe ich bereits im Office Thread gestellt, leider jedoch noch keine
Antwort bekommen. ich versuche es hier nochmal ...

Ich habe bereits einige einfache Abfragen mit SQL über VBA realisiert. Nun habe ich eine klein wenig umfangreichere Abfrage und bin halb am verzweifeln. So sieht der SQL Code aus:

Code:

.CommandText = Array( _
          SELECT KdNummer, First(KdName), ArtikelNr, First(ArtikelBez), Sum(Menge), Sum(Einheit), First(AE),  &amp; _
          Last(VkpPosi), Sum(VkpGesa), First(MwSt)  &amp; _
          FROM Artikelstamm RIGHT JOIN 2009 ON Artikelstamm.Artikel = 2009.ArtikelNr  &amp; _
          WHERE RgDatum >=  &amp; DatumVon &amp;  AND RgDatum &lt;=  &amp; DatumBis &amp;  AND KGR LIKE 820  &amp; _
          GROUP BY KdNummer, ArtikelNr  &amp; _
          ORDER BY KdNummer, ArtikelNr )

Leider bekomme an dieser Stelle immer den Fehler: Laufzeitfehler 13 - Typen unverträglich

Am Datum kann es nicht liegen, das wird Formatiert.

Code:

DatumVon = Format(InputBox(Anfangsdatum Auswertung?), \#yyyy\-mm\-dd\#)
DatumBis = Format(InputBox(Enddatum Auswertung?), \#yyyy\-mm\-dd\#)

Wer kann mir helfen? Vielen Dank im Voraus!

PCDpan_fee · 25.05.2009

Mr_Tom schrieb:
folgenden Thread habe ich bereits im Office Thread gestellt, leider jedoch noch keine
Antwort bekommen. ich versuche es hier nochmal ...

dein Thread im MS Office Board wurde geschlossen.

pan_fee

Fizbin · 29.05.2009

Hallo,
was für eine Datenbank, sprich welchen SQL-Dialekt benutzt Du?
Spontan kommt aber KGR LIKE 820 ungewöhnlich vor...

Mr_Tom · 29.05.2009

Ich habe bereits die Lösung gefunden, der Vollständigkeit halber möchte ich sie hier auch posten.

Vielen Dank ersteinmal an Fizbin, KGR LIKE 820 ist in der Tat ungewöhnlich, wie ich nun auch
gelernt habe, richtig ist KGR=820.

Abgesehen davon, dass ich diese Abfrage von Excel über DAO nach Access mit VBA begonnen habe, was wohl eine nicht
so gelungene Lösung ist, war lediglich das ARRAY mit dem SQL String überfordert.

So funktioniert es:

Code:

.CommandText = _
          SELECT KdNummer, First(KdName), ArtikelNr, First(ArtikelBez), Sum(Menge), Sum(Einheit), First(AE),  &amp; _
          Last(VkpPosi), Sum(VkpGesa), First(MwSt)  &amp; _
          FROM Artikelstamm RIGHT JOIN 2009 ON Artikelstamm.Artikel = 2009.ArtikelNr  &amp; _
          WHERE RgDatum >=  &amp; DatumVon &amp;  AND RgDatum &lt;=  &amp; DatumBis &amp;  AND KGR LIKE 820  &amp; _
          GROUP BY KdNummer, ArtikelNr  &amp; _
          ORDER BY KdNummer, ArtikelNr

Mittlerweile habe ich mich ein wenig mit ADO beschäftigt, die wesentlich elegantere Lösung.
Nochmal danke an alle Beteiligten.

SQL Abfrage über VBA

Mr_Tom

PCDpan_fee

Fizbin

Mr_Tom

SQL Abfrage über VBA

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums