ké passa

Question

salut a tous
je vous ecris car j'ai un petit probleme que je n'arrive pas a m'expliquer
je developpe une petite base de donnes sur Vb en connexion avec acces

pour ajouter des evenements dans ma BDD j'ai cree une fenetre qui s'appelle neweve
j'y accede grace a un bouton "Ajouter une &#233;v&#233;nement".
Quand je cliques desus ca marcher grace a mon code
"Me.hide
neweve.show"

jusque la tout va bien
mon enregistrement sur la BDD se fait nikel

le probleme intervient lorsque je repete cette manipulation plusieurs fois

lorsque j'ai enregistre 2 nouveux evenements a la troisieme tentative la page neweve ne s'ouvre plus et le programme plante alors que 15 secondes avant ca marchait?

d'ou vient le probleme
et que dois je faire

MERCI BEAUCOUP!!!!!!!!

cs_DARKSIDIOUS · Answer

Cela doit s&#251;rement venir d'un probl&#232;me de saturation m&#233;moire : regarde
l'espace qu'occupe ton programme avant qu'il plante. Tu ne dois pas
d&#233;sallouer la m&#233;moire que tu alloue &#224; chaque manip s&#251;rement !

_______________________________________

DarK Sidious

zecups · Answer

je pense pas que ce soit ca sinon il m'aurait dit "espace insuffisante"
en fait la page ne souvre plus et je suis oblige d'arreter le programme manuellement

je penses que ca vient de la BDD en elle mm mais je ne voies pas ou?

cs_ITALIA · Answer

Apr&#233;s avoir effectu&#233; ton enregistrement dans ta BD ferme tu bien tes set avec des 

Set .......=Nothing

It@li@

cs_DARKSIDIOUS · Answer

Si ton programme plante r&#233;guli&#232;rement apr&#232;s avoir r&#233;p&#233;t&#233; l'op&#233;ration
plusieur fois, c'est que tu ne d&#233;salloue pas correctement les
structures de donn&#233;es utilis&#233;es.



Il s'agit donc soit d'un probl&#232;me de saturation m&#233;moire (VB n'affiche
pas tout le temps le message d'espace infuffisant, surtout lorsque ce
n'est pas lui qui fait d&#233;faut, mais une librairie externe, comme
ADO...), soit d'instances de classes qui ne doivent pas &#234;tre &#233;x&#233;cut&#233;e
en m&#234;me temps, et donc, si tu ne les d&#233;truit pas &#224; chaque fois, elles
rentrent en conflit lorsque tu en cr&#233;e plusieurs, etc.



Le mieux, c'est de nous passer le code qui te permet d'enregistrer dans
la base, et celui qui te permet de fermer ta base apr&#232;s
l'enregistrement pour voir ce qui cloche, car l&#224; c'est vague !

zecups · Answer

voila le code de mon enregistrement

Private Sub cmdenr_Click()
If txtnumint = "" Then
rep = MsgBox("L'intervenant n'a pas &#233;t&#233; choisi, veuillez en choisir un.", vbExclamation)
Else
Dim bd As Database
Dim rst As Recordset
Set bd = OpenDatabase(App.Path + "\akadem.mdb")
Set rst = bd.OpenRecordset("contribution")
rst.AddNew
    rst("num") = txtnum
    rst("titre") = txttitre
    rst("sujet") = txtsujet
    rst("date") = DTPicker1
    rst("domaine1") = cmbdom1
    rst("domaine2") = cmbdom2
    rst("lieu") = cmblieu
    rst("evenement") = txtev
    rst("type") = cmbtype
    rst("heure") = txthor
    rst("duree") = txtdur
    rst("condacc") = cmbacc
    rst("intervenant") = cmbint
    rst("numinter") = txtnumint
    rst.Update
    rst.MoveLast
    rst.Close
    
    txtnum = ""
    txttitre = ""
    txtsujet = ""
    cmblieu = ""
    cmbdom1 = ""
    cmbdom2 = ""
    txtev = ""
    cmbtype = ""
    txthor = ""
    txtdur = ""
    cmbacc = ""
    cmbint = ""
    
  evenement.dataev.Refresh
  Unload Me
  evenement.Show


End If
End Sub

cs_ITALIA · Answer

Essayes :

Private Sub cmdenr_Click()
If txtnumint = "" Then
   rep = MsgBox("L'intervenant n'a pas &#233;t&#233; choisi, veuillez en choisir un.",vbExclamation)
   Exit Sub
Else
   Dim bd As Database
   Dim rst As Recordset
   Set bd = OpenDatabase(App.Path + "\akadem.mdb")
   Set rst = bd.OpenRecordset("contribution")
   rst.AddNew
       rst("num") = txtnum
       rst("titre") = txttitre
       rst("sujet") = txtsujet
       rst("date") = DTPicker1
       rst("domaine1") = cmbdom1
       rst("domaine2") = cmbdom2
       rst("lieu") = cmblieu
       rst("evenement") = txtev
       rst("type") = cmbtype
       rst("heure") = txthor
       rst("duree") = txtdur
       rst("condacc") = cmbacc
       rst("intervenant") = cmbint
       rst("numinter") = txtnumint
       rst.Update
       Set rst= Nothing
       Set db=Nothing
       txtnum = ""
       txttitre = ""
       txtsujet = ""
       cmblieu = ""
       cmbdom1 = ""
       cmbdom2 = ""
       txtev = ""
       cmbtype = ""
       txthor = ""
       txtdur = ""
       cmbacc = ""
       cmbint = ""
       Unload Me

   End If
End Sub

It@li@

zecups · Answer

Ca ne marche pas 
je ne sais plus quoi faire

cs_ITALIA · Answer

c'est quoi cette requ&#233;te :

Set rst = bd.OpenRecordset("contribution")

??

It@li@

zecups · Answer

C'est une requete qui ouvre ma table contribution de ma BDD

et en faisant le addnew j'enregistre les champs a l'interieur

mais ca ca marche

le pb survient uniqument a l'ouverture de ma page

cs_ITALIA · Answer

ah ok parce que moi je fais :
Set rst = bd.OpenRecordset("SELECT * FROM contribution")

quelle est le code de l'ouverture de ta page
  ??

It@li@

zecups · Answer

c sur ma page d'avant sur un bouton g le code
me.hide
neweve.show

cs_ITALIA · Answer

non et bien la je s&#233;che !!

It@li@

zecups · Answer

merci pour ton aide en tout cas

Ké passa

13 réponses

Discussions similaires