Microsoft Excel

Herbers Excel/VBA-Archiv

sql Ausdruck like

Betrifft: sql Ausdruck like von: Peter Welbers
Geschrieben am: 05.07.2008 19:09:50

Hallo,

ich habe ein Problem mit einer sql-Abfrage. Der nachfolgende Code funktioniert ohne, aber nicht mit der Where Zeile.
Ich möchte aus zwei Tabellen bestimmte Artikel heraussuchen. In der ersten Tabelle fehlt aber hinter dem Artikel (=Serie) ein A. Wie kann ich unter VBA das A an die Serie anhängen? Unter Access funktioniert das so wie eingetragen. Kann mir jemand helfen?
Peter

With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=" & treiber & ";UID=;SourceDB=" & DGPfad & ";SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;" _
, Destination:=Range("A" & L))
.Sql = "select Tabelle1.SERIE, Max(TABELLE2.Artikel) AS Artikel, Count(Tabelle1.SERIE) AS Anzahl" & Chr(10) & _
"FROM Tabelle1, Tabelle2" & Chr(10) & _
"WHERE (Tabelle1.serie & 'A') Like Tabelle2.Nummer" & Chr(10) & _
"GROUP BY Tabelle1.SERIE, Tabelle1.ENDEDATUM" & Chr(10) & _
"HAVING (((Tabelle1.ENDEDATUM)<{d'" & aus2 & "'}))" & Chr(10) & _
"ORDER BY Tabelle1.SERIE"
.Refresh BackgroundQuery:=False
End With

 

Beiträge aus den Excel-Beispielen zum Thema "sql Ausdruck like"