HELP PLEAASE en vb 6.0
Bonjour,
pouvez vous m'expliquer le code suivant (juste les phrase en gras ^^ )
Private Sub cmd_effacer_Click()
' effacer les champs
txt_titre.Text = ""
txt_auteur.Text = ""
txt_edition.Text = ""
txt_etage.Text = ""
txt_placard.Text = ""
End Sub
Private Sub cmd_enregistrer_Click()
' Ajout d un livre, recuperer infos
titre = txt_titre.Text
auteur = txt_auteur.Text
an = combo_an
edition = txt_edition
placard = txt_placard
etage = txt_etage
disponible = txt_disponible
' requete
requete = "INSERT INTO biblio(titre,auteur,annee,edition,placard,etage,disponible) VALUES('" + titre + "','" + auteur + "','" + an + "','" + edition + "','" + placard + "','" + etage + "','" + disponible + "')"
' Connexion init
Set cnx = New ADODB.Connection
'Définition du pilote de connexion
cnx.Provider = "Microsoft.Jet.Oledb.4.0"
'Définition de la chaîne de connexion
cnx.ConnectionString = "db.mdb"
'Ouverture de la base de données
cnx.Open
If titre = "" Or auteur = "" Then
MsgBox "Titre et auteur sont obligatoires", vbOKOnly + vbInformation, "Champs obligatoires"
Else
cnx.Execute (requete)
MsgBox "Le livre a été ajouté avec succès", vbInformation + vbOKOnly, "Livre ajouté avec succès"
End If
cnx.Close
' vider champs
txt_titre.Text = ""
txt_auteur.Text = ""
combo_an = ""
txt_edition = ""
txt_placard = ""
txt_etage = ""
Call form_principale.actualiser
End Sub
Private Sub cmd_fermer_Click()
Unload Me
End Sub
Private Sub Form_Load()
' remplir champ année
For i = 1900 To 2010
combo_an.AddItem i
Next i
End Sub
pouvez vous m'expliquer le code suivant (juste les phrase en gras ^^ )
Private Sub cmd_effacer_Click()
' effacer les champs
txt_titre.Text = ""
txt_auteur.Text = ""
txt_edition.Text = ""
txt_etage.Text = ""
txt_placard.Text = ""
End Sub
Private Sub cmd_enregistrer_Click()
' Ajout d un livre, recuperer infos
titre = txt_titre.Text
auteur = txt_auteur.Text
an = combo_an
edition = txt_edition
placard = txt_placard
etage = txt_etage
disponible = txt_disponible
' requete
requete = "INSERT INTO biblio(titre,auteur,annee,edition,placard,etage,disponible) VALUES('" + titre + "','" + auteur + "','" + an + "','" + edition + "','" + placard + "','" + etage + "','" + disponible + "')"
' Connexion init
Set cnx = New ADODB.Connection
'Définition du pilote de connexion
cnx.Provider = "Microsoft.Jet.Oledb.4.0"
'Définition de la chaîne de connexion
cnx.ConnectionString = "db.mdb"
'Ouverture de la base de données
cnx.Open
If titre = "" Or auteur = "" Then
MsgBox "Titre et auteur sont obligatoires", vbOKOnly + vbInformation, "Champs obligatoires"
Else
cnx.Execute (requete)
MsgBox "Le livre a été ajouté avec succès", vbInformation + vbOKOnly, "Livre ajouté avec succès"
End If
cnx.Close
' vider champs
txt_titre.Text = ""
txt_auteur.Text = ""
combo_an = ""
txt_edition = ""
txt_placard = ""
txt_etage = ""
Call form_principale.actualiser
End Sub
Private Sub cmd_fermer_Click()
Unload Me
End Sub
Private Sub Form_Load()
' remplir champ année
For i = 1900 To 2010
combo_an.AddItem i
Next i
End Sub
2 réponses
-
Merci bcpp c trés gentil de ta part :)
-
hello
'Définition du pilote de connexion
cnx.Provider = "Microsoft.Jet.Oledb.4.0"
'Définition de la chaîne de connexion
cnx.ConnectionString = "db.mdb"
comme le commentaire l'indique, cnx.Provider = "Microsoft.Jet.Oledb.4.0 définit le pilote de connexion. plusieurs autres pilotes seraient possibles
tutoriel ici : http://www.section13.net/tutoriaux/ADO_Ch2.php
cnx.ConnectionString = "db.mdb"
db.mdb est le nom du fichier de base de données
exemple ici : https://codes-sources.commentcamarche.net/
Call form_principale.actualiser
ceci appelle la partie "actualiser" du formulaire form_principale
exemple ici : https://codes-sources.commentcamarche.net/
Unload Me
ceci permet de fermet le formulaire qui contient ce code
Private Sub Form_Load()
' remplir champ année
For i = 1900 To 2010
combo_an.AddItem i
Next i
End Sub
au chargement du formulaire (grace a la méthode Form_Load), on remplit le champ année :
on ajoute a la combobox les valeurs : 1900 jusqu'à 2010
voila! :)
