Datumsabfrage bei Datenbankabfrage
10.01.2008 12:16:00
Stefan
Mal die Frage:
Ich lese Daten aus einer Datenbank ein ( ORACLE ). Das Klappt auch soweit so gut über Datenquellenverbindung und per Makro.
Nun meine Frage:
Wie kann ich es in dieser Abfrage einbauen, wenn ich nur ein bestimmtes Datum einlesen will ?
Sei es dass ich das einzulesende Datum in eine Zelle eintrage oder das ein Fenster erscheint in
das das Datum eingetragen wird ?
Hier einmal das Makro:
Sub Einlesen_DATA()
Range("A1:O3000").Select
Selection.ClearContents
With ActiveSheet.QueryTables.Add(Connection:= _
"OLEDB;Provider=MSDAORA.1;Password=abc1234567;User ID=DBUSER;Data Source=DB" _
, Destination:=Range("A1"))
.CommandType = xlCmdTable
.CommandText = Array("""DBUSER "".""DATA """)
.Name = " DATA "
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceConnectionFile = _
"C:\Anwender\Eigene Dateien\Eigene Datenquellen\ DATA.odc"
.Refresh BackgroundQuery:=False
End With
End Sub
Danke schon einmal für jede Hilfe & Grüße
Stefan
Anzeige