Seltsamerweise funktioniert mein SQL Abfrage nicht, wenn ich sie mit dem selben Syntax (!) um nur eine Zeile erweitere...
sqlQuery = "SELECT PMBUY.STRMID, PMBUY.ACTIVITY, PMBUY.COST, PMBUY.MARVALUE" & Chr(13) & "" & Chr(10) & "FROM PMBUY PMBUY" & Chr(13) & "" & Chr(10) & _
"WHERE " & _
"(PMBUY.STRMID='slb') AND (PMBUY.PERIOD='" & period & "') " & _
"OR (PMBUY.STRMID='cpc') AND (PMBUY.PERIOD='" & period & "') " & _
"OR (PMBUY.STRMID='hpl') AND (PMBUY.PERIOD='" & period & "') " & _
";"
aber das selbe um eine Zeile erweitert, funktioniert nicht
sqlQuery = "SELECT PMBUY.STRMID, PMBUY.ACTIVITY, PMBUY.COST, PMBUY.MARVALUE" & Chr(13) & "" & Chr(10) & "FROM PMBUY PMBUY" & Chr(13) & "" & Chr(10) & _
"WHERE " & _
"(PMBUY.STRMID='slb') AND (PMBUY.PERIOD='" & period & "') " & _
"OR (PMBUY.STRMID='cpc') AND (PMBUY.PERIOD='" & period & "') " & _
"OR (PMBUY.STRMID='hpl') AND (PMBUY.PERIOD='" & period & "') " & _
"OR (PMBUY.STRMID='hpl') AND (PMBUY.PERIOD='" & period & "') " & _
";"
fehler:
"Typen unverträglich"
wenn ich dann probweise eine sql anfrage aufzeichne, die länger ist, also zb 10 zeilen umfasst, sieht der code so aus - und man sieht, das die zeilen nicht durch ein
& _
sonder durch ein
_
, _
getrennt werden. wenn ich versuche, dass nachzubasteln, funktioniert das aber nicht...
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=ACCESS;DBQ=U:\M-O\MO-I\MOI-P\BAYERNOIL\Planung OMV\Monatsplanung\Archiv 2007\Planung 0706\Results.Mdb;DefaultDir=U:\M-O\MO-" _
), Array( _
"I\MOI-P\BAYERNOIL\Planung OMV\Monatsplanung\Archiv 2007\Planung 0706;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5" _
), Array(";")), Destination:=Range("D19"))
.CommandText = Array( _
"SELECT PMBUY.CASE, PMBUY.PERIOD, PMBUY.STRMID, PMBUY.ACTIVITY" & Chr(13) & "" & Chr(10) & "FROM PMBUY PMBUY" & Chr(13) & "" & Chr(10) & "WHERE (PMBUY.STRMID='ALK') AND (PMBUY.PERIOD='1') OR (PMBUY.STRMID='arh') AND (PMBUY.PERIOD='1') OR (PMBUY.STRMID='azl'" _
, _
") AND (PMBUY.PERIOD='1') " _
, _
"OR (PMBUY.STRMID='bas') AND (PMBUY.PERIOD='1') OR (PMBUY.STRMID='C77') AND (PMBUY.PERIOD='1') OR (PMBUY.STRMID='cpc') AND (PMBUY.PERIOD='1') OR (PMBUY.STRMID='esa') AND (PMBUY" _
, _
".PERIOD='1') OR (PMBUY.STRMID='ETB') AND (PMBUY.PERIOD='1') OR (PMBUY.STRMID='ETE') AND (PMBUY.PERIOD='1') OR (PMBUY.STRMID='ETO') AND (PMBUY.PERIOD='1') OR (PMBUY.STRMID='Fn0') AND (PMBUY.PERIOD='1')" _
, _
" OR (PMBUY.STRMID='mel') AND (PMBUY.PERIOD='1') OR (PMBUY.STRMID='FNM') AND (PMBUY.PERIOD='1') OR (PMBUY.STRMID='foi') AND (PMBUY.PERIOD='1') OR (PMBUY.STRMID='npt') AND (PMBUY.PERIOD='1') OR (PMBUY.S" _
, _
"TRMID='oko') AND (PMBUY.PERIOD='1') OR (PMBUY.STRMID='TOL') AND (PMBUY.PERIOD='1') OR (PMBUY.STRMID='TOL') AND (PMBUY.PERIOD='1')" _
)