Discussion :

[noftal]

bonjour,

Je me heurte depuis hier à un pb

Pour ajouter une ligne à une table j'utilise le code-type suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim dr As DataRow = Nothing
Dim dt As DataTable = MonDataSettypé.monDataTable
 
dr=dt.NewRow
dr("champ1")=valeur1
dr("champ2")=valeur2
...
dr("champN")=valeurN
 
dt.Rows.Add(dr)
MonTableAdapter.Update(dt)

Dans cette table, champ0 est le compteur qui sert de clé primaire. Normalement, les instructions NeweRow suivie de Add doivent générer une valeur incrémentée stockée dans champ0.
J'utilise déjà ce type de code pour ajouter des lignes à d'autres tables mais là, ça ne marche pas ; voici ce qui se passe à la place.

Dabord, une ligne est bien ajoutée dans la table et est conforme.

Mais, si plusieurs ligne de ma table contiennent la même valeur pour champ1, la première de ces lignes est modifiée avec les valeurs suivantes :
champ1 = valeur1
champ2=0
champ 3 à N = <rien>

Aucun message d'erreur.

Je ne vois pas d'où ça peut provenir. Quelqu'un peut-il m'aiguiller ?

[shayw]

Salut

Quelle requete as tu écris pour remplir monDataTable ?

[noftal]

Quelques chose du genre :

Code :

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

SELECT champ0, champ1, ... , champ N FROM table

[shayw]

justement après avoir testé
essaie plutot

Code :

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

SELECT  champ1, ... , champ N FROM table

tu n'as pas besoin de champ0 il est inseré automatiquement

[noftal]

Pourtant quand je dis que ça marche avec d'autres tables, j'ai procédé de la même manière.
D'ailleurs, si je tente de supprimer le champ0, j'ai le message d'erreur ci-joint qui montre que la méthode update et delete ne fonctionnera pas.

[noftal]

Petit complément : en fait j'avais un code qui fonctionnait bien, à base de SQL.
Mon objectif est de simplifier mon code en utilisant les méthodes proposées par VB.NET à base de datatable.

Voici mon code qui marchait :

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
 
Dim Connexion As New SQLiteConnection(My.Settings.ConnectionString)
Dim SQL As String
SQL = "INSERT INTO table (champ1, champ2, champ3, champ4, champ5, champ6) " & _
                     "VALUES (@champ1, @champ2, @champ3, @champ4, @champ5, @champ6)"
 
 Connexion.Open()
 Dim commande As New SQLiteCommand(SQL, Connexion)
            With commande.Parameters
                .AddWithValue("@champ1", valeur1)
                .AddWithValue("@champ2", valeur2)
                .AddWithValue("@champ3", valeur3)
                .AddWithValue("@champ4", valeur4)
                .AddWithValue("@champ5", valeur5)
                .AddWithValue("@champ6", valeur6)
            End With
            commande.ExecuteNonQuery()
            commande.Dispose()

Ceci m'a fait penser que shayw avait peut-être raison, mais comme je l'ai indiqué, j'utilise déjà la méthode datarow.update pour d'autres tables structurées exactement de la même manière.