Soyez le premier à donner votre avis sur cette source.
Vue 10 843 fois - Téléchargée 2 598 fois
Private Sub bou_ajouter_nouveau_compte_Click() motpas.Recordset.AddNew End Sub Private Sub bou_annuler_ajout_Click() 'Affichage de certains bouton et etiquette eti_utilisateur.Visible = True eti_mot_de_passe.Visible = True eti_nouveau_compte.Visible = True eti_connexion.Visible = True txt_utilisateur.Visible = True txt_mot_de_passe.Visible = True bou_annuler.Visible = True Command2.Visible = True 'affichage des boutons pour l'ajout eti_ajout_mot_de_passe.Visible = False eti_ajout_utilisateur.Visible = False eti_creer_utilisateur.Visible = False txt_ajout_utilisateur.Visible = False txt_ajout_mot_de_passe.Visible = False bou_annuler_ajout.Visible = False bou_enregistrer_ajout.Visible = False bou_ajouter_nouveau_compte.Visible = False End Sub Private Sub bou_annuler_Click() End End Sub Private Sub bou_enregistrer_ajout_Click() motpas.Recordset.Update 'Affichage de certains bouton et etiquette eti_utilisateur.Visible = True eti_mot_de_passe.Visible = True eti_nouveau_compte.Visible = True eti_connexion.Visible = True txt_utilisateur.Visible = True txt_mot_de_passe.Visible = True bou_annuler.Visible = True Command2.Visible = True 'affichage des boutons pour l'ajout eti_ajout_mot_de_passe.Visible = False eti_ajout_utilisateur.Visible = False eti_creer_utilisateur.Visible = False txt_ajout_utilisateur.Visible = False txt_ajout_mot_de_passe.Visible = False bou_annuler_ajout.Visible = False bou_enregistrer_ajout.Visible = False bou_ajouter_nouveau_compte.Visible = False End Sub Private Sub Command2_Click() On Error GoTo erreur 'Gestion des erreurs 'Déclaration des variables Dim str_nom_utilisateur As String Dim str_mot_de_passe As String 'Affectation des variables aux boites de textes str_nom_utilisateur = txt_utilisateur.Text str_mot_de_passe = txt_mot_de_passe.Text 'Recherche dans la BDD avec le FindFirst sur les champs de la base motpas.Recordset.FindFirst "nom_utilisateur like '" & str_nom_utilisateur & "' " motpas.Recordset.FindFirst "mot_de_passe like '" & str_mot_de_passe & "' " 'Test pour vérifier l'existance du nom d'utilisateur et du mot de passe If str_nom_utilisateur = motpas.Recordset.Fields("nom_utilisateur") And str_mot_de_passe = motpas.Recordset.Fields("mot_de_passe") Then MsgBox "Codes d'accès acceptés" frm_prog.Show Unload frm_connexion Else MsgBox "Vérifiez votre nom d'utilisateur ou mot de passe !" txt_utilisateur.Text = "" txt_mot_de_passe.Text = "" txt_utilisateur.SetFocus End If Exit Sub ' erreur: 'Gestion des erreurs MsgBox "L'erreur suivante s'est produite : " & Err.Description, vbInformation + vbOKOnly, "Erreur" ' End Sub Private Sub eti_nouveau_compte_Click() 'effacement écran de certains bouton et etiquette eti_utilisateur.Visible = False eti_mot_de_passe.Visible = False eti_nouveau_compte.Visible = False eti_connexion.Visible = False txt_utilisateur.Visible = False txt_mot_de_passe.Visible = False bou_annuler.Visible = False Command2.Visible = False 'affichage des boutons pour l'ajout eti_creer_utilisateur.Visible = True bou_ajouter_nouveau_compte.Visible = True eti_ajout_utilisateur.Visible = True eti_creer_utilisateur.Visible = True eti_ajout_mot_de_passe.Visible = True txt_ajout_utilisateur.Visible = True txt_ajout_mot_de_passe.Visible = True bou_annuler_ajout.Visible = True bou_enregistrer_ajout.Visible = True End Sub
voici un exemple que j'ai pris dans une de mes appli;
On Error GoTo gèreerreur
If erreur = 3021 Then
gèreerreur:
MsgBox "Aucun fichier a été créer, Aucun ordinateur n'est retiré du l'inventaire", vbInformation, "Information"
Exit Sub
Else
Num = FreeFile
chemin = "C:\Documents and Settings" & user & "\Bureau\Recylcage.doc"
Open chemin For Output As #Num
rs_selection.MoveLast
val = rs_selection.Fields(0)
rs_selection.MoveFirst
For i = 1 To val
Write #Num, rs_selection.Fields(0) & " " & rs_selection(2) & " " & rs_selection(3) & " " & rs_selection.Fields(4) & " " & rs_selection.Fields(5)
rs_selection.MoveNext
Next
Close Num
End If
Ensuite tu devrais essayer d'utiliser un module où tu déclares tes fonction en public plus simple et pour acces de donnée ADO ?
Parfait ton programme, je viens de l'intégrer pour faire des tests sur VB6.
Merci Francis
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.