Datum aus Zelle nehmen Abfrage ODBC
08.06.2009 15:38:17
lisa
In der Recherche gibt es vielerlei Diskusionen über diese Thema, leider aber weiß ich nicht es für mich umzusetzen, deswegen die Frage an die Experten nämlich Euch.
Ich habe mir eine Datenbankabfrage ODBC erstellt!
Ich habe in der Abfrage auch mein Abfragedatum integriert.
Nun zu meinem Problem:
Das Abfragedatum möchte ich gern aus einer Zelle übernommen haben. Nur wie?
Das ist meine SQL- Anweisung
SELECT MAT_BUCHUNG.BU_DAT, MAT_BUCHUNG.ART_NR, MAT_BUCHUNG.MST_NR, MAT_BUCHUNG.BU_ART, MAT_BUCHUNG.CHARGE_NR_V, MAT_BUCHUNG.BU_MENGE
FROM H2.MAT_BUCHUNG MAT_BUCHUNG
WHERE (MAT_BUCHUNG.BU_DAT Like '20090423%') AND (MAT_BUCHUNG.WAB_ART Like '3%')
und hier mein Macro:
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DRIVER={Microsoft ODBC for Oracle};UID=il;SERVER=p;", Destination:= _
Range("A1"))
.CommandText = Array( _
"SELECT MAT_BUCHUNG.BU_DAT, MAT_BUCHUNG.ART_NR, MAT_BUCHUNG.MST_NR, MAT_BUCHUNG.BU_ART, MAT_BUCHUNG.CHARGE_NR_V, MAT_BUCHUNG.BU_MENGE FROM HARK2.MAT_BUCHUNG MAT_BUCHUNG WHERE (MAT_BUCHUNG.BU_DAT Like '20090423%') AND (MAT_BUCH" _
, "UNG.WAB_ART Like '3%')")
.Name = "Matbuchung"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceConnectionFile = _
"C:\Dokumente und Einstellungen\m\Anwendungsdaten\Microsoft\Abfragen\Matbuchung.dqy"
.Refresh BackgroundQuery:=False
End With
End Sub
Hat hier jemand eine Idee!?
Danke für die Hilfe
Lisa