If txt_motpass.Text <> txt_comfirm.Text Then MsgBox(" le mot de pass ne correspond pas a sa confirmation") Else Dim requete As String requete = "INSERT INTO Personel (nom_utilisateur,id_service,mot_pass,Nom,prenom,telephon,adress) VALUES (val_nom_utilisateur,val_id_service,val_mot_pass, Val_Nom,Val_Prenom,val_telephon,val_adress )" Try Dim myconnexion As New OleDbConnection(connexion) Dim commande As New OleDbCommand(requete, myconnexion) commande.Parameters.AddWithValue("Val_nom_utilisateur", txt_utilisateur.Text) commande.Parameters.AddWithValue("Val_id_service", txt_service.Text) commande.Parameters.AddWithValue("Val_mot_pass", txt_motpass.Text) commande.Parameters.AddWithValue("Val_nom", txt_nom.Text) commande.Parameters.AddWithValue("Val_Prenom", txt_prenom.Text) commande.Parameters.AddWithValue("Val_telefon", txt_telephone.Text) commande.Parameters.AddWithValue("Val_adress", txt_adress.Text) myconnexion.Open() commande.ExecuteNonQuery() myconnexion.Close() Catch ex As Exception MsgBox("l'erreur suivante a été rencontré" & ex.Message) End Try End If
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionje vous comprend pas???????????????????????????????????????
Forum > Visual Basic 6
je vais ecrire une lettre d'amour pour ma question
et point finale
J'ai pas rafraichi la page assez regulierement à ce que je vois...
J'ai loupé tous les messages de critiques. Désolé.
oh my God you are alwayse like this i mean you are just a sick person go visit a doctor i advise you ok
Mr ucfoutu do u you have have you got any personeal problem with me because iI don't know it's my seconde question and u do the same thing react the same way.
Mr ucfoutu do u you have have you got any personeal problem with me because iI don't know it's my seconde question and u you do the same thing react the same way.
14 août 2017 à 16:04