Datenbankabfrage passwort hinterlegen
lisa
Ich weiß nicht recht ob ihr mir helfen könnt, dennoch möchte ich euch fragen, da ihr in der Vergangenheit immer sehr schnell und kompetent geholfen habt.
Ich habe ien Makro aufgezeichnet mit dem ich eine Datenbank abfrage.
Wenn ich das Makro starte, bekomme ich immer die Passwortabfrage für die Oracleverbindung!
Kann ich das Passwort im Makro hinterlegen, um nicht immer das Passwort eingeben zu müssen?
Kann mir jemand helfen.
Hier mein aufgezeichnetes Makro
Sub Makro1()
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DRIVER={Microsoft ODBC for Oracle};UID=i;;SERVER=abp;", Destination _
:=Range("A1"))
.CommandText = Array( _
"SELECT ALL_BESTAND.ART_NR, ALL_BESTAND.ART_BEZ1, ALL_BESTAND.CHARGE_NR, ALL_BESTAND. _
LGR_NR, ALL_BESTAND.ART_MENGE_FREI, ALL_BESTAND.ART_MENGE_GESP" & Chr(13) & "" & Chr(10) & "FROM HARK2999.ALL_BESTAND ALL_BESTAND" & Chr(13) & "" & Chr(10) & "ORDER BY ALL_" _
, "BESTAND.LGR_NR")
.Name = "Abfrage von ProFood Hark_4"
.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
End Sub