Modifications dans base de données ne s'enregistrent pasRésolu

Question

Bonjour,

J'ai fait le code ci-dessous, tout se passe bien sauf qu'il n'enregistre rien dans la base de donn&#233;es Access. C'est d&#233;routant et je n'arrive pas &#224; savoir pourquoi, et encore moins &#224; trouver de solution... La lecture des donn&#233;es, elle, se fait sans probl&#232;me.

Voici mon code :
----

    ConnectionBase.Provider = "Microsoft.jet.OLEDB.4.0"
    ConnectionBase.ConnectionString = App.Path & "\Stats.mdb"
    ConnectionBase.Open
    'Ouverture de la requ&#234;te SQL dans le recordset
    Table.Open "Select * from Stats", ConnectionBase, adOpenStatic, adLockOptimistic

   'Attribution du champ &#224; l'objet
   Set Label_NbCheck1.DataSource = Table
    Label_NbCheck1.DataField = "Check1"   'Check1 est un champ dans ma table Access

   Label_NbCheck1.Caption = Val(Label_NbCheck1.Caption) + 1

    Table.Update
    Table.Close
    ConnectionBase.Close

----

jpleroisse · Accepted Answer

OK mais comme cela m'int&#233;resse, j'ai modifi&#233; le code de fa&#231;on &#224; pouvoir l'utiliser sur une de mes bases Access.
Cela &#224; l'air de fonctionner, le champ de ma base s'incr&#233;mente de 1 &#224; chaque click du bouton de commande.

Private Sub Command1_Click()
Dim ConnectionBase As ADODB.Connection
Dim Table As ADODB.Recordset
Set ConnectionBase = New ADODB.Connection
Set Table = New ADODB.Recordset
   ConnectionBase.Provider = "Microsoft.jet.OLEDB.4.0"
    ConnectionBase.ConnectionString = App.Path & "\Contacts.mdb"
    ConnectionBase.Open
    'Ouverture de la requ&#234;te SQL dans le recordset
    Table.Open "Select * from Contacts", ConnectionBase, adOpenStatic, adLockOptimistic


   'Attribution du champ &#224; l'objet
   Set Label_NbCheck1.DataSource = Table
    Label_NbCheck1.DataField = "Nom"   'Check1 est un champ dans ma table Access
    Table.Fields!Nom = Val(Label_NbCheck1.Caption) + 1
  
    Table.Update
    Table.Close
    ConnectionBase.Close


End Sub

jpleroisse · Answer

Table.AddNew
ton code,ensuite
Table.Update

jpleroisse

pjouy · Answer

J'ai oubli&#233; de pr&#233;ciser : il n'y a que 2 lignes dans ma table, qui contiennent des valeurs que j'incr&#233;mente. Je ne cr&#233;e aucune ligne suppl&#233;mentaire. Donc, pas besoin d'un AddNew, merci quand m&#234;me pour ta r&#233;ponse.
Si quelqu'un a une autre id&#233;e...

jpleroisse · Answer

Essaie Table.Edit

pjouy · Answer

Je n'ai pas l'option Table.Edit, je n'ai que Table.EditMode, mais &#231;a attend qq chose ensuite...

C'est vraiment curieux, s'il faut c'est une ligne idiote que j'ai oubli&#233;e mais je ne vois vraiment pas laquelle... HELP !!!

jpleroisse · Answer

Essaie 
Static vMyBookMark as Variant  (au d&#233;but de ta proc&#233;dure)

With Table.RecordSet
   If (.EditMode = dbEditNone) Then
   vMyBookMark = .BookMark
   .Edit
End If
End With

pjouy · Answer

Il y a une erreur &#224; Table.Recordset
Une pr&#233;cision suppl&#233;mentaire si &#231;a peut vous aider : je travaille sous VB6.
Votre code me para&#238;t un peu compliqu&#233; pour pouvoir enregistrer un changement dans un champ...

pjouy · Answer

Merci !

Ta r&#233;ponse a l'air de fonctionner...Ah le d&#233;but de la programmation en code, c'est moins facile qu'avec l'objet ADO !
Pour info, je viens de trouver une autre solution : faire un Table.MoveLast  . Ca met bien ma ligne &#224; jour. Ma table ne comportant que 2 lignes, cela ne prend pas de ressources en plus... ;)

Merci pour ton aide !

Modifications dans base de données ne s'enregistrent pas

8 réponses

Discussions similaires