Gestion des droits SQL Server

Question

Hello, 



dans le cadre de mon BTS IG je developpe un carnet de note en VB 

l'autentification au log est &#233;galement une identification SQL serveur : 



Dim Base As ADODB.Connection

Dim Requete As ADODB.Command



Private Sub Form_Load()

    Set Base = New ADODB.Connection

    Set Requete = New ADODB.Command

    

    Base.ConnectionString =
"Provider=SQLOLEDB.1;Password=" & connexion.mdp.Text &
";Persist Security Info=False;User ID=" & connexion.login.Text
& ";Initial Catalog=*****;Data Source=*****"

    Base.Open

end sub



Donc imaginons que l'admin ajoute un professeur ou un &#233;l&#233;ve ...

ceux ci doivent avoir leur login SQL server :-/



le pbs c'est que je ne trouve pas le moyen de faire passer le sp_addlogin avec VB



Requete.CommandType = adCmdStoredProc 'test&#233; ac tous les types propos&#233;

Requete.CommandText = "EXEC sp_addlogin ***,***,***"

Requete.Execute



j'ai &#233;galement test&#233; en vain le trigger ... reponse du systeme : sp_addlogin ne peut &#234;tre lanc&#233; de cette fa&#231;on



donc quelqu'un aurais une solution ?



Merci d'avance !

mrmabo27 · Answer

la solution pr ceux que sa interresse :



Option Explicit





Dim Base As ADODB.Connection



Private Sub Form_Load()

    Set Base = New ADODB.Connection

    

    Base.ConnectionString =
"Provider=SQLOLEDB.1;Password=" & connexion.mdp.Text &
";Persist Security Info=False;User ID=" & connexion.login.Text
& ";Initial Catalog=carnetnote;Data Source=MATTH;Use Procedure for
Prepare=1;Auto Translate=True"

    Base.Open

    

    

    

    Base.Execute "EXEC sp_addlogin jack,jack,carnetnote"

    Base.Execute "EXEC sp_grantdbaccess jack, jack"

    Base.Execute "sp_addrolemember professeurs, jack"

    

End Sub





faire l'execution de la requete directement sur la base et non via un objet command

Gestion des droits SQL Server

1 réponse

Discussions similaires