Sujet Précédent Sujet Suivant

Besoinn d'aide

AlaouiSalwa Messages postés 1 Date d'inscription mardi 19 janvier 2010 Statut Membre Dernière intervention 2 février 2010 - 2 févr. 2010 à 12:35
tpoinsot Messages postés 345 Date d'inscription mardi 1 juin 2004 Statut Membre Dernière intervention 17 octobre 2014 - 2 févr. 2010 à 18:20
Bonjour

je veux faire un formulaire simple d'authentificaation avec acces a une base de données
l'application ne s'execute pas mais ne me renvoie aucune erreur
Voila le code merce pour toute correction ou avis
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim con As New SqlConnection("data source =localhost ;initial catalog =SGBN;integrated security=sspi")
Dim cmd As New SqlCommand(" select * from Authentification where user= '" & TextBox1.Text & "' and pwd='" & TextBox2.Text & "' ", con)

Dim dr As SqlDataReader
con.Open()
dr = cmd.ExecuteReader
While dr.Read
Try
If TextBox2.Text = dr(1) Then
MsgBox("Connexion établie")
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End While
dr.Close()
con.Close()
End Sub

1 réponse

Réponse 1 / 1
tpoinsot Messages postés 345 Date d'inscription mardi 1 juin 2004 Statut Membre Dernière intervention 17 octobre 2014 4
2 févr. 2010 à 18:20
Bonjour,
tu es certain que dr(1) = champ pwd ? D'habitude on évite le "select *"
Quand tu dis que l'appli ne s'exécute pas, est-ce que c'est parce que le message ne s'affiche pas ? Alors fais afficher dr(1) et textbox2.text et compare visuellement.
Ou alors le dr.read n'as rien et saute immédiatement à "end while"

thip
0
Rejoignez-nous