emmanuel75
XLDnaute Junior
Re à tous,
Je dispose de deux morceaux de code permettant de saisir un identifiant et un mot de passe mais je ne sais pas comment les intégrer à ma macro principale qui m'ouvre une page internet:
Set objPassword = CreateObject("ScriptPW.Password")
WScript.StdOut.Write "entre ton mot de passe:"
strPassword = objPassword.GetPassword()
Wscript.Echo
Wscript.Echo "ton mot de passe est: " & strPassword
et la deuxième, je ne sais pas si elle est complémentaire ou nécessaire...
Private Sub CommandButton1_Click()
Dim strSQL As String
Dim rstConn As ADODB.Recordset
Dim objmyconn As ADODB.Connection
Set objmyconn = OpenSQLServerDB(dominiquegourdy@aol.com, "sandrine")
Set rstConn = CreateObject("ADODB.RecordSet")
strSQL = "SELECT password FROM Users" & _
"WHERE user_login=" & Me.txtLogin.Value & " ;"
rstConn.Open strSQL, objmyconn
If rstConn.EOF = True Then
MsgBox "Login incorrect"
Else
If rstConn.Fields(0) = Me.txtPwd.Value Then
MsgBox "Connexion réussi"
rstConn.Open "UserForm2"
Else
MsgBox "Mot de passe éroné"
End If
End If
rstConn.Close
Set rstConn = Nothing
End Sub
Merci pour toute aide éventuelle
Je dispose de deux morceaux de code permettant de saisir un identifiant et un mot de passe mais je ne sais pas comment les intégrer à ma macro principale qui m'ouvre une page internet:
Set objPassword = CreateObject("ScriptPW.Password")
WScript.StdOut.Write "entre ton mot de passe:"
strPassword = objPassword.GetPassword()
Wscript.Echo
Wscript.Echo "ton mot de passe est: " & strPassword
et la deuxième, je ne sais pas si elle est complémentaire ou nécessaire...
Private Sub CommandButton1_Click()
Dim strSQL As String
Dim rstConn As ADODB.Recordset
Dim objmyconn As ADODB.Connection
Set objmyconn = OpenSQLServerDB(dominiquegourdy@aol.com, "sandrine")
Set rstConn = CreateObject("ADODB.RecordSet")
strSQL = "SELECT password FROM Users" & _
"WHERE user_login=" & Me.txtLogin.Value & " ;"
rstConn.Open strSQL, objmyconn
If rstConn.EOF = True Then
MsgBox "Login incorrect"
Else
If rstConn.Fields(0) = Me.txtPwd.Value Then
MsgBox "Connexion réussi"
rstConn.Open "UserForm2"
Else
MsgBox "Mot de passe éroné"
End If
End If
rstConn.Close
Set rstConn = Nothing
End Sub
Merci pour toute aide éventuelle