Discussion :

[sebac]

Bonjour
j'arrive à me connecter à ma base de données mais je n'arrive pas à insérer des données dans la base pourtant j'ai suivi exactement les instructions de ce tuto de plasserrehttp://plasserre.developpez.com/v6-5.htm
mais je bloque au niveau du

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

AdapTContact2.Update(DtSet2, "EXAMEN")

je l'ai découvert avec un Msgbox avant cette instruction qui s'affiche mais celui juste après ne s'affiche pas. Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
                          command2 = New OleDbCommand("SELECT * FROM EXAMEN")
AdapTContact2 = New OleDbDataAdapter(command1)
command1.Connection = con1 
 
                'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
                AdapTContact2.Fill(DtSet2, "EXAMEN")
 
                'Mettre dans un Objet DataTable une table du DataSet
                Matable2 = DtSet2.Tables("EXAMEN")
 
                         'on insère
                myRow = DtSet2.Tables("EXAMEN").NewRow()
                myRow(0) = "MATH"
                myRow(1) = "MATHEMATIQUES"
                DtSet2.Tables("EXAMEN").Rows.Add(myRow)
 
                'Pour modifier les valeurs changées dans le DataAdapter
                ObjetCommandBuilder = New OleDbCommandBuilder(AdapTContact2)
 
               'je vérifie que ma dataset est bien rempli (marche)
                Matable2 = DtSet2.Tables("EXAMEN")
                While RowNumber < Matable2.Rows.Count
                    MsgBox(Matable2.Rows(RowNumber).Item(0).ToString)
                    RowNumber = RowNumber + 1
                End While
 
                MsgBox("je suis là") 's'affiche
                AdapTContact2.Update(DtSet2, "EXAMEN")
                MsgBox("me voici") 'ne s'affiche pas
                'On vide le DataSet et on le 'recharge' de nouveau.
                DtSet2.Clear()
                AdapTContact2.Fill(DtSet2, "EXAMEN")
                Matable2 = DtSet2.Tables("EXAMEN")

merci pour l'aide

[sebac]

si ça peut aider, j'ai remarqué que quand je catch mon code il y'a ce message qui s'affiche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Erreur de syntaxe dans l'instruction insert into

je ne sais toujours pas d'où provient cette erreur

[bdmax]

Ce que je crois comprendre c'est que tu ajoutes une nouvelle ligne !

Essaye une instruction d'insertion plutôt qu'un Update de mise à jour d'une ligne existante.

[sebac]

quand j'essaye de remplacer update par insert dans mon instruction vb ne reconnaît pas et je n'ai pas trouvé de code ou de tuto avec insert si tu as un modèle d'instructions ça m'aidera.

[bdmax]

La bible MSDN:

http://msdn.microsoft.com/fr-fr/libr...nd(VS.80).aspx

[sebac]

j'essaye de comprendre le tuto, une fois que j'ai inséré mes éléments et que j'ai l'objet adapter comment je l'insère dans la base vu que je travail en mode déconnecté, ou est ce que mon insertion ce fait automatiquement dans la base