Je suis trop nul, j'arrive même pas à enregistrer dans une base de données Acces

Question

Bonjour &#224; tous



Voil&#224; je suis nouveau en prog VB. Et je developpe un tout petit prog
(rien &#224; voir avec les votres lol), en fait c'est juste, entrer un nom,
pr&#233;nom et age d'une personne dans une base de donn&#233;es Access. Et quand
je remplis les textbox, et je clique ok! Il me dit "erreur 91 variable
objet ou variable with non d&#233;finie"...Quelqu'un pourrait-il me
d&#233;bloquer....Merci!!



If Txtnom "" Or Txtpre "" Or Txtage = "" Then

    MsgBox " veuillez remplir tous les champs"

Else

rs_eleve.AddNew            
----------------------------> l'erreur se trouve &#224; se niveau
apparemment

rs_eleve("nom") = Txtnom.Text

rs_eleve("pr&#233;nom") = Txtpre.Text

rs_eleve("age") = Txtage.Text

rs_eleve.Update



Txtnom.Text = ""

Txtpre.Text = ""

Txtage.Text = ""

End If



MsgBox "Ajout d'un nouvel &#233;l&#232;ve r&#233;ussie!"



End Sub

pseudoOM · Answer

As-tu initialis&#233; ton recordset --> ex : set rs_eleve = db_base_Objet.OpenRecordset("Select * from Eleve", dbOpenDynaset)

db_base_Objet doit &#234;tre d&#233;clar&#233; de type Database
et il faut aussi l'initialiser
Set db_base_Objet = OpenDatabase("Chemin de la base", False, False, "password")

et dans ton if  il faut mettre  If Txtnom.Text "" Or Txtpre.Text "" Or Txtage.Text = "" Then

 pseudoOM

cs_DARKSIDIOUS · Answer

Salut,

Est-ce que ta variable rs_eleve est d&#233;clar&#233; dans l'&#233;v&#233;nement Click de ton bouton ? Est-ce qu'elle est initialis&#233;e ?

_____________________________________________________________________

swordjet19 · Answer

Merci pour vos r&#233;ponses rapides! Et sinon oui j'ai initialis&#233; mon recordset dans un module dont voici le code :



'Pour le chemin de la base

Global db As Database



'Pour les tables &#224; lire dans la base

Global rs_eleve As Recordset



'Pour les chaines sql

Global sql As String



Sub connection()

Set db = OpenDatabase(App.Path & "\bddeleve.mdb")

sql = "Select * From eleves"

Set rs_eleve = db.OpenRecordset(sql, dbOpenDynaset)

End Sub



Est-ce bien &#231;a?

pseudoOM · Answer

oui c'est &#231;a !
 mais mets toi sur cette ligne  -->rs_eleve("nom") = Txtnom.Text
Ensuite fait F9 (la ligne va changer de couleur en fait c'est un point d'arr&#234;t) et lance ton programme. Si il s'arr&#234;te sur la ligne rouge c'est que le probl&#232;me vient d'autre part. Essai et on verra.
 pseudoOM

le_virus · Answer

Salut!

A mon avis, tu devrais les initialiser en créant les objets nécessaires.
J'entends par là:

Global db As New Database
Global rs_eleve as New Recordset

En principe ca devrait rouler plus vite que des roulettes.

Cordialement.

swordjet19 · Answer

Je crois que le probleme vient  du module, o&#249; j'initialise le recordset :



Set db = OpenDatabase(App.Path & "\bddeleve.mdb")



On peut se contacter par msn?, voici mon adresse : swordjet19@hotmail.com



Ca sera plus simple, encore merci !!

pseudoOM · Answer

Bon essaie peut &#234;tre de mettre le chemin complet &#224; la base de donn&#233;es au lieu de App.path. Je ne crois pas que &#231;a changera quelque chose mais qui ne tente rien n'a rien !
Et mets rs_eleve.close: set rs_eleve = nothing avant la fin de ton if pour voir .

 pseudoOM

Je suis trop nul, j'arrive même pas à enregistrer dans une base de données Acces

7 réponses

Discussions similaires