hr.hartwig hat geschrieben:Nun möchte ich ein Eingabefeld in ein Formular zum Anmelden einbauen.
Das ist nicht nötig.
Liegt die ODB lokal, dann wird der lokale Benutzer (und ggfs. sein Passwort) bei ihr eingetragen (
Bearbeiten>Datenbank>Eigenschaften...), um sich zur DB zu verbinden.
Liegt sie im Netz, so kannst Du -zumindest unter Windows, Linux und Mac- den folgenden Code zum ermitteln des Benutzernamens verwenden
Code: Alles auswählen
l_OS_Index = GetGUIType()
Select Case l_OS_Index
Case 1
s_OS = "Windows"
sComputerName = Environ("COMPUTERNAME")
sBenutzername = Environ("USERNAME")
Case 3
s_OS = "MacOS"
sComputerName = Environ( "SHORTHOST" )
sBenutzerName = Environ( "USER" )
Case 4
s_OS = "Linux"
sComputerName = Environ("HOSTNAME")
sBenutzerName = Environ("LOGNAME")
End Select
End Sub
Es gibt auch noch Code zum Einblenden des Anmeldungs-Dialogs zum Verbinden mit der Datenbank, wenn benötigt...
Reicht das als Info?
[quote="hr.hartwig"]Nun möchte ich ein Eingabefeld in ein Formular zum Anmelden einbauen.[/quote]
Das ist nicht nötig.
Liegt die ODB lokal, dann wird der lokale Benutzer (und ggfs. sein Passwort) bei ihr eingetragen ([color=#0040FF]Bearbeiten>Datenbank>Eigenschaften...[/color]), um sich zur DB zu verbinden.
Liegt sie im Netz, so kannst Du -zumindest unter Windows, Linux und Mac- den folgenden Code zum ermitteln des Benutzernamens verwenden
[code]l_OS_Index = GetGUIType()
Select Case l_OS_Index
Case 1
s_OS = "Windows"
sComputerName = Environ("COMPUTERNAME")
sBenutzername = Environ("USERNAME")
Case 3
s_OS = "MacOS"
sComputerName = Environ( "SHORTHOST" )
sBenutzerName = Environ( "USER" )
Case 4
s_OS = "Linux"
sComputerName = Environ("HOSTNAME")
sBenutzerName = Environ("LOGNAME")
End Select
End Sub[/code]
Es gibt auch noch Code zum Einblenden des Anmeldungs-Dialogs zum Verbinden mit der Datenbank, wenn benötigt...
Reicht das als Info?