SQL-Abfrage via Excel...
20.06.2005 11:59:46
Claus
ich probiere derzeit eine SQL-Abfrage aus Excel heraus zu starten. Das hat auch soweit ganz gut geklappt, bis ich eine weitere Bedingung eingebaut habe. Seitdem bringt er mir einen "General ODBC Error". Wie kann ich also meine Abfrage dennoch reinbringen? Im SQL-Viewer laeuft sie...
Hier die Abfrage:
SELECT count(dd_performance.INSTRUMENTREF) from (select instrumentref, Max(dd_performance.DATESTART) AS MaxOfDATESTART FROM dd_performance WHERE dd_performance.CONTAINERREF=100085 and performancetype="D" group by instrumentref);
Was ich neu eingefuegt habe ist: and performancetype="D"
Ich war schon so schlau und habe die Anführungszeichen im Code durch chr$(34) ersetzt... Das bringt aber nix...
Hier noch die ganze Abfrage en Block:
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=MS Access Database;DBQ=Z:\DataEditor.mdb;DefaultDir=Z:;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;" _
, Destination:=Range("A1"))
.CommandText = Array("SELECT count(dd_performance.INSTRUMENTREF) from (select instrumentref, Max(dd_performance.DATESTART) AS MaxOfDATESTART FROM dd_performance WHERE dd_performance.CONTAINERREF=" & ContRef & " and dd_performance.performancetype=" & Chr$(34) & "D" & Chr$(34) & " group by instrumentref);")
.Name = "Query from MS Access Database"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
Waere klasse, wenn ich hier ne Lösung finden könnte mit Eurer Hilfe...
Gruss
Claus