Imports System.Data.OleDb Module db Private Connection As New OleDb.OleDbConnection 'declares connection Public Sub InitConnection() Dim base As String = "provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\dta.mdb" Connection.ConnectionString = base Try Connection.Open() Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub Private Function IsPassWordExist(ByVal Password As String) As Boolean Dim sql As String = String.Empty Dim command As New OleDbCommand(sql, Connection) Dim recordset As OleDbDataReader try recordset = Nothing command.CommandText "SELECT MotDePasse FROM tblUtilisateur WHERE MotDePasse [?] ;" command.Parameters.Add("?", OleDbType.BSTR).Value = Password recordset = command.ExecuteReader() If recordset.HasRows Then Return True Else Return False End If Catch ex As Exception MessageBox.Show(ex.Message) End Try End Function Public Function InsertPassWord(ByVal Password As String) As Boolean Dim strsql As String = String.Empty Dim command As New OleDbCommand(strsql, Connection) try If IsPassWordExist(Password) Then Return False End If command.CommandText = "INSERT INTO tblUtilisateur (MotDePasse) VALUES (?);" command.Parameters.Add("?", OleDbType.BSTR).Value = Password command.ExecuteNonQuery() Return True Catch ex As Exception MessageBox.Show(ex.Message) End Try End Function
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load db.InitConnection() End Sub 'le client va ajouter son password et valider 'validate est un button Private Sub validate_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles validate.MouseClick If db.InsertPassWord(txtMdp.text) then messagebox.show("le mot de passe a été ajouté") else messagebox.show("le mot de passe existe déja") end if End Sub
("INSERT INTO tblUtilisateur " & _ "(MotDePasse) VALUE '" & txtMdp.Text & "' " & _ "SELECT * FROM tblUtilisateur " & _ "WHERE UtilisateurAD = '" & UtilisateurActif & "' "
INSERT INTO <NomTable> (<Champ>, <Champ2>?..) VALUES (<Valeur1>, <Valeur2>?.)
"INSERT INTO tblUtilisateur (MotDePasse) VALUES '" & txtMdp.Text & "'WHERE UtilisateurAD = '" & UtilisateurActif & "' "
Bonne journée !
modConnexionBD.ConnexionBD()
le modConnexionBD Public ConnexionOLE As OleDbConnection = New OleDbConnection() Public da As OleDbDataAdapter Public ds As DataSet Public dv As DataView Public cb As OleDbCommandBuilder Public commande As OleDbCommand Public cn As OleDbConnection Public Sub ConnexionBD() 'Procédure permettant de se connecter à une base de donnée Try 'initialise la chaîne Connexion avec une valeur qui indique le type (Provider) et le nom (Data Source) de la base de données à laquelle accéder cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\dta.mdb") cn.Open() Catch ex As Exception MessageBox.Show("Impossible d'établir la connexion à la base." & ex.Message) End Try End Sub
da New OleDbDataAdapter("INSERT INTO tblUtilisateur (MotDePasse) VALUES '" & txtMdp.Text & "'WHERE UtilisateurAD '" & UtilisateurActif & "' ", cn)
DeConnexionBD()
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question