Discussion :

[nil]

Bonjour,
j'ai une application ( DELPHI 7 + SQL SERVER ) je travaile avec ADO
et j'utilise l'objet ADOconnection pour me connecter a ma bdd avec un user et passe que j'ai prédéfinis sur mon SGBD
ma question est comment récuperer ce user que je viens de me loger avec a partir de mon application ( existe-t-il une fonction en sql pour recuperer cette donnée ? )
Merci.

[qi130]

Ce user, tu le saisis ou bien il est en dur dans l'objet Connection ?

[nil]

le user je le saisis quand mon application est en RUN qui veux dire que j'introduit le user dès que mon abjet adoconnection se met a : ( connected:=true )

[qi130]

En fait, tu peux jeter 1 oeil là http://www.developpez.net/forums/viewtopic.php?t=400428, si ça t'inspire

[nil]

Meci pour ton aide mon frere
mais malgré ca je tombe tjrs dans le meme pb
j'arrive pas a joindre les parametres user et pass que j'introduits de cette boite de dialogue sur ma adoconnection!!
voila mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
procedure Tform1.CONNECTER1Click(Sender: TObject);
Var FichierIni : TIniFile;
    Pass,User,x,y:string;
begin
try
FichierIni:=TIniFile.Create('c:\siana\config.ini');
x:=FichierIni.ReadString('bdd','chemin','193.168.168.3');
y:=FichierIni.ReadString('bdd','nom','siana');
FichierIni.Free;
 
if  LoginDialog('Mabase',User,Pass) Then
datamodule2.adoconnection.Close;
datamodule2.adoconnection.connectionstring:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID='+User+';Password='+Pass+'Initial Catalog='+y+';Data Source='+x+';Use Procedure for Prepare=1;'
                                   +'Auto Translate=True;Packet Size=4096;Workstation ID=AMINE;Use Encryption for Data=False;Tag with column collation when possible=False';
datamodule2.adoconnection.Open;
close;
if (datamodule2.ADOCONNECTION.connected=true) then intro.Menu:=mainmenu1;
 
except
end;
 
end;

[qi130]

Tu peux déjà t'assurer de bien récupérer le user et le pass par un MessageDlg.

Et puis, sans être familier du type de connexion utilisé, il semble manquer un ";" là

Pass+';Initial

[nil]

c'est justement ce que j'essaye de faire depuis 3heures et la j'ai pas trouver comment afficher ca sur une boite de dialogue

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
procedure Tintro.CONNECTER1Click(Sender: TObject);
Var FichierIni : TIniFile;
    x,y:string;
 
begin
try
 
FichierIni:=TIniFile.Create('c:\siana\config.ini');
x:=FichierIni.ReadString('bdd','chemin','193.168.168.3');
y:=FichierIni.ReadString('bdd','nom','siana');
FichierIni.Free;
datamodule2.adoc.Close;
datamodule2.adoc.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=;Initial Catalog='+y+';Data Source='+x+';Use Procedure for Prepare=1;'
                                   +'Auto Translate=True;Packet Size=4096;Workstation ID=AMINE;Use Encryption for Data=False;Tag with column collation when possible=False';
datamodule2.adoc.Open;
if (datamodule2.ADOC.connected=true) then
    begin
    intro.Menu:=mainmenu1;
    ShowMessage('User : '+datamodule2.adoc.Properties.Item[58].value);
    end;
 
except
end;
 
end;

[qi130]

1/ Code ça et vois ce que ça donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
if  LoginDialog('Mabase',Pass,User) Then 
    ShowMessage('User : '+User+'  ,  Password : '+Pass);

et si tu as les bons éléments:

2/ Revois ta chaine de connexion.... soit t'as un pb avec le copier/coller soit....?????

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

datamodule2.adoc.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=;Initial .........

Il est où le User ?

[nil]

desolé mais la chaine est bionne car elle fonctionne regarde

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=;..

tu sais maintenant j'en ai eu ma dose je veux inverser le pb
car la ma chaine de onnection fonctionne correctement et sa se connecte nomalement sur ma bdd mais la je veux juste faire un showmessage du login que j'ai rentré !

[qi130]

desolé mais la chaine est bionne car elle fonctionne regarde

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=;..

tu sais maintenant j'en ai eu ma dose je veux inverser le pb
car la ma chaine de onnection fonctionne correctement et sa se connecte nomalement sur ma bdd !

Dans un post précédent, ta chaine était :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

....User ID='+User+';Password....

=> tu insérais "User"

et dans ta dernière version, l'insertion n'est pas faite ?

mais la je veux juste faire un showmessage du login que j'ai rentré

=> cf le 1/ de mon post précédent

[nil]

Bon voila je résume toute cette ratatouille
j'ai un objet ADOconnection avec sa chaine de connection

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
ADOconnection.ConnectionString:='Provider=SQLOLEDB.1;Server=193.168.168.1;Database=EMPLOYE;User ID=';
ADOconnection.open;

quand j'execute le programme une boite de dialogue d'authentification du SGBD s'affiche, alors je fais rentrer le user et le pass pour y acceder, sa se loge le plus normalement du monde mais moi je veux recuperer le user que je viens de rentrer ( User ID ) alors quelle est la commande pour le soustraire !!!
exemple : je veux faire un showmessage
showmessage (???????);

[qi130]

Oui, reprenons donc.

Normalement, pour saisir le user et le pass, 3 possibilités :

1/ Login prompt à true dans les propriétés (sous l'EDI) de la DB

2/ utiliser une fenêtre d'identification que tu as développée

3/ utiliser la fonction LoginDialog


A priori, tu te situes dans le cas /1 ? et dans ce cas il faut vérifier que la propriété/paramètre "user" de ta TDBxx peut être lue ou récupérer facilement (mais j'ai des doutes)

Par contre, pour être certain d'avoir la main sur User et Pass, il faut utiliser une des deux autres possibilités, en mettant à false le login prompt.

[nil]

Par contre, pour être certain d'avoir la main sur User et Pass, il faut utiliser une des deux autres possibilités, en mettant à false le login prompt.

merci bcp sa marche