If txt_mdp.Text = "admin" Then
j'ai une forme login qui donne le choix de passer a la forme d'ajout des livre ou bien la forme d'emprunt
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click If UsernameTextBox.Text "" Or PasswordTextBox.Text "" Then MessageBox.Show(" champs vide....", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error) Else : Try 'ta Chaîne de connexion 'Dim connectString As String ........................... 'Objet connection Dim connection As SqlClient.SqlConnection = New SqlClient.SqlConnection(connectString) 'Ouverture connection.Open() '-------------------------------------------------------------------------------------- Dim command As SqlClient.SqlCommand New SqlClient.SqlCommand("Select x, y From Table cnx where x '" & UsernameTextBox.Text & "'", connection) Dim reader As SqlClient.SqlDataReader = command.ExecuteReader While reader.Read Dim id As String Dim pss As String id = reader.GetString(0) pss = reader.GetString(1) If UsernameTextBox.Text Id And PasswordTextBox.Text Pss Then Me.Hide() 'yourform.Show() Else MsgBox("erreur lors de la connexion") UsernameTextBox.Text = "" PasswordTextBox.Text = "" End If End While reader.Close() Catch ex As Exception 'System.Diagnostics.Debug.WriteLine("sorry") End Try End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question