projet adp : récupérer le login de l'user connecté
3 réponses
Paul
Bonjour,
Je voudrais récupérer en vba le login de l'utilisateur du projet pour le
stocker dans une variable.
(je sais que je peux l'afficher avec une procédure stockée Select
current_user).
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
DJ
Paul wrote:
Bonjour,
Je voudrais récupérer en vba le login de l'utilisateur du projet pour le stocker dans une variable. (je sais que je peux l'afficher avec une procédure stockée Select current_user).
Merci.
Bonjour, si tu parles du nom de login windows tu faires comme ca: Function UserName() Dim oNetwork Set oNetwork = CreateObject("wscript.network") UserName = oNetwork.UserName Set oNetwork = Nothing End Function
et si j'ai rien compris tu fais comme si j'avais rien dit ! DJ
Paul wrote:
Bonjour,
Je voudrais récupérer en vba le login de l'utilisateur du projet pour
le stocker dans une variable.
(je sais que je peux l'afficher avec une procédure stockée Select
current_user).
Merci.
Bonjour,
si tu parles du nom de login windows tu faires comme ca:
Function UserName()
Dim oNetwork
Set oNetwork = CreateObject("wscript.network")
UserName = oNetwork.UserName
Set oNetwork = Nothing
End Function
et si j'ai rien compris tu fais comme si j'avais rien dit !
DJ
Je voudrais récupérer en vba le login de l'utilisateur du projet pour le stocker dans une variable. (je sais que je peux l'afficher avec une procédure stockée Select current_user).
Merci.
Bonjour, si tu parles du nom de login windows tu faires comme ca: Function UserName() Dim oNetwork Set oNetwork = CreateObject("wscript.network") UserName = oNetwork.UserName Set oNetwork = Nothing End Function
et si j'ai rien compris tu fais comme si j'avais rien dit ! DJ
Paul
Bonjour, si tu parles du nom de login windows tu faires comme ca: Function UserName() Dim oNetwork Set oNetwork = CreateObject("wscript.network") UserName = oNetwork.UserName Set oNetwork = Nothing End Function
Merci. En fait, je voudrais le login de connexion à la base de données sql server et non celui de Windows.
-- Paul
Merci.
Bonjour,
si tu parles du nom de login windows tu faires comme ca:
Function UserName()
Dim oNetwork
Set oNetwork = CreateObject("wscript.network")
UserName = oNetwork.UserName
Set oNetwork = Nothing
End Function
Merci.
En fait, je voudrais le login de connexion à la base de données sql server
et non celui de Windows.
Bonjour, si tu parles du nom de login windows tu faires comme ca: Function UserName() Dim oNetwork Set oNetwork = CreateObject("wscript.network") UserName = oNetwork.UserName Set oNetwork = Nothing End Function
Merci. En fait, je voudrais le login de connexion à la base de données sql server et non celui de Windows.
-- Paul
Merci.
DJ
Paul wrote:
Bonjour, si tu parles du nom de login windows tu faires comme ca: Function UserName() Dim oNetwork Set oNetwork = CreateObject("wscript.network") UserName = oNetwork.UserName Set oNetwork = Nothing End Function
Merci. En fait, je voudrais le login de connexion à la base de données sql server et non celui de Windows.
Celui la j'en sais rien ! faut dire que la cnx avec un user SQL ayant tendance a perdre le user... je me suis fixé sur une cnx auhen...et j'ai ajouté les users NT avec les droits qui vont bien sur la base SQL et ca marche super ! Good luck ! DJ
Paul wrote:
Bonjour,
si tu parles du nom de login windows tu faires comme ca:
Function UserName()
Dim oNetwork
Set oNetwork = CreateObject("wscript.network")
UserName = oNetwork.UserName
Set oNetwork = Nothing
End Function
Merci.
En fait, je voudrais le login de connexion à la base de données sql
server et non celui de Windows.
Celui la j'en sais rien ! faut dire que la cnx avec un user SQL ayant
tendance a perdre le user...
je me suis fixé sur une cnx auhen...et j'ai ajouté les users NT avec les
droits qui vont bien sur la base SQL
et ca marche super !
Good luck !
DJ
Bonjour, si tu parles du nom de login windows tu faires comme ca: Function UserName() Dim oNetwork Set oNetwork = CreateObject("wscript.network") UserName = oNetwork.UserName Set oNetwork = Nothing End Function
Merci. En fait, je voudrais le login de connexion à la base de données sql server et non celui de Windows.
Celui la j'en sais rien ! faut dire que la cnx avec un user SQL ayant tendance a perdre le user... je me suis fixé sur une cnx auhen...et j'ai ajouté les users NT avec les droits qui vont bien sur la base SQL et ca marche super ! Good luck ! DJ