Discussion :

[riderfun]

Bonjour, je crée une application dans le cadre de mes cours et je souhaiterais savoir comment faire pour vérifier le Login et le Mot de passe dans ma base SQL j'ai un formulaire d'inscription ou tout est bien entré dans la base et la je voudrais l'authentification j'ai écrit ça pour le moment:

Dim strConnexion As String = "Data Source=.\sqlexpress; Integrated Security=SSPI;" + "Initial Catalog=MABASE"
Dim strRequete As String = "select (Login, Pass) from [User] where Login = ('" & TxtLog.Text & "')"
Dim oConnection As New SqlConnection(strConnexion)
Dim oCommand As New SqlCommand(strRequete, oConnection)
oConnection.Open()
dim SqlDataReader As New SqlDataReader =
oCommand.ExecuteNonQuery()
oConnection.Close()

Je pense qu'il faut récupérer d'abord le login et le mot de passe puis les comparer avec le texte saisie dans le TxtLog.Text et TxtPass.Text mais je ne sais pas comment faire...
Cordialement.

[JPelli]

Bonjour,
pour récupérer les enregistrements avec un datareader.

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
dim Log as string
dim Pwd as string
dim SqlDataReader As New SqlDataReader = oCommand.ExecuteReader
 
 While sqldatareader.Read()
  log = sqldatareader.GetString(0)
  pwd = sqldatareader.getstring(1)
 End While
sqldatareader.close
'vérifier les textbox avec les champs de la table
if log = textlog.text then
...
else
...
end if

Bon boulot Jean

[riderfun]

Bonjour, j'ai écris ce code :
Private Sub BtnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSubmit.Click
If TxtLog.Text = "" Or TxtPass.Text = "" Then
MessageBox.Show("Merci de Remplir les champs", "Erreur de saisies", MessageBoxButtons.OK, MessageBoxIcon.Error)

Else : Try
'Chaîne de connexion
Dim connectString As String = "Data Source=.\sqlexpress; Integrated Security=SSPI;" + "Initial Catalog=MABASE"
'Objet connection
Dim connection As SqlClient.SqlConnection = New SqlClient.SqlConnection(connectString)
'Ouverture
connection.Open()
'--------------------------------------------------------------------------------------

Dim command As SqlClient.SqlCommand = New SqlClient.SqlCommand("Select Login, Pass From [User] where Login = '" & TxtLog.Text & "'", connection)
Dim reader As SqlClient.SqlDataReader = command.ExecuteReader
While reader.Read
Dim Log As String
Dim Pwd As String
Log = reader.GetString(0)
pwd = reader.GetString(1)
If TxtLog.Text = Log And TxtPass.Text = Pwd Then
Me.Hide()
Liste.Show()
Else
MsgBox("Accès interdit ou Vérifiez votre mot de passe")
End If

End While
reader.Close()
'Fermeture
connection.Close()
Catch ex As Exception
System.Diagnostics.Debug.WriteLine("erreur")
End Try
End If
End Sub

Mais ça ne fonctionne pas il passe directement au "accès interdit" la connection à la base fonctionne mais j'ai l'impression qu'il ne récupère pas le login et le pass dans la base pour les comparer aux textbox...Merci de m'aider svp!

[ddaime]

j'ai l'impression qu'il ne récupère pas le login et le pass dans la base

As tu essayé en mode DEBUG pour être sur qu'il ne récupère pas les valeurs en base ?

[riderfun]

comment ça?
si tu parles du débogage de vb.net c'est avec ça que je l'exécute...

[ddaime]

Place un point d'arret sur la ligne ou tu récupère ta valeur en base puis passe la souris juste dessus la variable Log pour voir son contenu.

[riderfun]

Si c'est bon les valeurs sont bien récupérée...

[ddaime]

Si c'est Ok pense à la balise [Résolu] !

[riderfun]

non ça ne marche toujours pas..en fait c'est bizarre lorsque j'essaye un autre login et pass qui ne sont pas dans la base le prog ne continu pas...c'est lorsque je rentre un login existant qu'il me dit "accès interdit"...

[ddaime]

Revérifie ta procédure ou repost là car je viens de faire des essais (je ne programme jamais en VB.Net mais en C#, de toute façon .Net et ADO.Net c'est la même chose en VB.Net, en C# ou en C++/CLI) et ca fonctionne seulement lorsque ton login et ton Pass ne sont pas dans la base le résultat de ta requete SELECT ne contient pas d'enregistrements dont il ne passe pas par le

Code :

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

While reader.Read

[riderfun]

j'ai trouvé en fait c'était juste qu'il y avait des espaces blanc après la valeur recuperé dans la base donc avec un Rtrim ça marche nickel