Hallo zusammen,
ich habe mal wieder eine Frage. Im Archiv hatte ich nicht so richtig was gefunden, daher hier der Eintrag.
Wieso kann ich nicht select *from XYZ angeben? in dem unten angeben Code.
Er läuft dann in einen Fehler rein: Laufzeitfehler 1004, SQL-Syntaxfehler?!
bei Zeile: .Refresh BackgroundQuery:=False
Aber hier erstmal der gesamte Text:
myUID = InputBox("Benutzername angeben", "Datenbank Abfrage: Benutzername")
myPWD = InputBox("Kennwort ", "Datenbank Abfrage: Kennwort")
myserver = InputBox("Server ", "Datenbank Abfrage: Server")
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DRIVER={Microsoft ODBC für Oracle};UID=" & myUID & ";PWD=" & myPWD & ";SERVER=" & myserver & ";", _
Destination:=Range("B3"))
.CommandText = Array( _
"SELECT *from Tabelle" & Chr(13) & "" & Chr(10) & "FROM TEST.Tabelle Tabelle" _
)
.Name = "Abfrage von TEST"
.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
Wäre echt super, wenn mir mal wieder jemand helfen würde ;-)
Danke schonmal.
Gruß Tomy