Hallo und guten Morgen!
Seltsamerweise funktioniert mein SQL Abfrage nicht, wenn ich sie mit dem selben Syntax (!) um nur eine Zeile erweitere... ich schreibe sie in Excel um auf eine Access DB zuzugreifen.
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')" _
)