Olà
wie kann ich den Usernamen des angemeldeten NT 4/WIN95 Users mit VB6 auslesen und überprüfen ob dieser Eintrag in einer MDB vorhanden ist?
Besten Dank für Eure Hilfe und ein schönes Wochenende
Auch Olà
Man nehme das MSDN zur Hand (oder lässt es im Netz liegen) und bedient sich der alten Copy-Paste Funktion und schon ist das Problem gelöst.
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
Private Function GetLoggedInUser(sUserName As String) As Boolean
Dim sBuff As String * 25
Dim lRet As Long
GetLoggedInUser = True
'Get the user name, remove NULLs, and trim trailing spaces.
lRet = GetUserName(sBuff, 25)
sUserName = Trim$(Left(sBuff, InStr(sBuff, Chr(CHAR_ZERO)) - 1))
'Return false if no name is returned.
If sUserName = vbNullString Then
GetLoggedInUser = False
End If
End Function
Nicht besonders schön formatiert, aber es sollte trotzdem funktionieren.
PS: ich habe keine Ahnung von VB
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
... in einer MDB vorhanden ist?
Hängt von der MDB ab und wie Du die Datenbankanbindung gestaltet hast.
Ich würd's mal mit nem Select auf die MDB probieren :) Keine Ahnung wie sowas in VB funktioniert :(
oder man lese das Forum bis fast zum Ende und finde dieselbe Frage mit Antwort :-)