AW: Passworteingabe im Dialog unsichtbar machen (****)
Dirk
Hallo und vielen Dank erstmal. Habe es jetz nach langem ausprobieren leider immer noch nicht geschafft. Meine Subroutine sieht folgendermaßen aus:
Sub ConnectDB()
Dim dbName
Dim dbUser
Dim dbPw As String
Dim ActiveRow
ActiveRow = ActiveWindow.ActiveCell.Row
If ActiveRow = 1 Or ActiveSheet.Cells(ActiveRow, 1) = "" Then
MsgBox ("Bitte Zeile mit der gewünschten Datenbank selektieren")
Exit Sub
End If
dbName = ActiveSheet.Cells(ActiveRow, 1)
dbUser = ActiveSheet.Cells(ActiveRow, 2)
--> dbPw = InputBox("Passwort für " & dbUser & "@" & dbName & ":", "DB-Connect")
If dbPw = "" Then
Exit Sub
End If
ActiveWindow.Caption = ""
ActiveSheet.Cells(1, 6) = ""
Set OraSession = Nothing
Set OraDatabase = Nothing
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
On Error Resume Next
Set OraDatabase = OraSession.OpenDatabase(dbName, dbUser & "/" & dbPw, 0&)
If Err > 0 Then
MsgBox (Error)
Exit Sub
End If
ActiveWindow.Caption = "Connected to " & dbName & " as " & dbUser
ActiveSheet.Cells(1, 6) = dbUser & "@" & dbName
Sheets("DB Views").Activate
End Sub
Wie mach ich denn jetzt aus der InputBox eine TextBox? Die muss doch noch irgendwo definiert werden, oder?
Gruß, Dirk