Discussion :

[ermips]

Bonjour,
j'essaie d'insérer des données en utilisant le code ci-dessous

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim tblAddCritere As DataTable
tblAddCritere = dsCPP.Tables("LienCritereControle")
Dim drCurrent As DataRow
drCurrent = tblAddCritere.NewRow()
 
        drCurrent("C1") = Var1
        drCurrent("C2") = Var2
        drCurrent("C3") = Var3
 
tblAddCritere.Rows.Add(drCurrent)

Les données sont inséres dans le dataset (lues dans datagrid : DataGridView1.DataSource = dsCPP.Tables("LienCritereControle")
Je n'ai pas de message d'erreur et les données ne sont
pas enregistrées dans sqlserver

Mais je ne vois quand même un problème : la table serveur a une clé primaire auto incrément (première valeur = 1). Quand la table est vide, et que j'insère une valeur avec tblAddCritere.Rows.Add(drCurrent), la lecture du dataset affiche une clé primaire dont la valeur est 0

[tomlev]

Bah la mise à jour de la DB n'est pas "automagique"... il faut mettre à jour explicitement en utilisant un DataAdapter, comme expliqué ici :
http://dotnet.developpez.com/articles/ado2/vbnet/

[ermips]

Merci, pour l'info.J'ai modifié le code après lecture de la doc,
mais toujours pas d'insertion dans la base : visiblement, je n'ai pas tout compris !

J'ai créé le dataset : dsCPP
j'ai créé l'adapter : da

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
 Dim da As New SqlDataAdapter("SELECT *  FROM [TEST].[dbo].[CPP_LienCritereControle]", objConn)
 
 da.FillSchema(dsCPP, SchemaType.Source, "LienCritereControle")
 da.MissingSchemaAction = MissingSchemaAction.AddWithKey
 da.Fill(dsCPP, "LienCritereControle")
 
 
 
Dim tblAddCritere As DataTable
tblAddCritere = dsCPP.Tables("LienCritereControle")
Dim drCurrent As DataRow
drCurrent = tblAddCritere.NewRow()
 
        drCurrent("C1") = Var1
        drCurrent("C2") = Var2
        drCurrent("C3") = Var3
	drCurrent("C4") = Var4
 
tblAddCritere.Rows.Add(drCurrent)
 
da.InsertCommand = New SqlCommand("INSERT INTO [TEST].[dbo].[CPP_LienCritereControle] (C1, C2,C3,C4) Values(Var1,Var2,Var3,Var4)", objConn)
 
da.Update(dsCPP, "LienCritereControle")

[tomlev]

Essaie pas de définir manuellement les commandes d'insertion et de mise à jour, c'est galère... Utilise plutôt un CommandBuilder :

Code :

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

1
2
Dim builder As New SqlCommandBuilder(da)
da.Update(dsCPP, "LienCritereControle")

Il se débrouillera pour créer automatiquement les commandes Insert/Update/Delete en fonction du Select

[ermips]

Merci, ça y est j'ai pu résoudre mon problème.
Par contre je voudrai accéder au dataapter depuis un bouton. Mais si je déclare le da au niveau de la classe, j'ai l'erreur "declaration expected" dans les 3 lignes qui suivent la déclaration :

Code :

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

1
2
3
4
5
6
7
Public Class Form1
        -----
     Dim da As New SqlDataAdapter(myCommand)
         "declaration expected"    da.FillSchema(ds, SchemaType.Source, "LienCritereControle")
     "declaration expected"       da.MissingSchemaAction = MissingSchemaAction.AddWithKey
    "declaration expected"        da.Fill(ds, "LienCritereControle")

[Invité]

C'est normal vu que cette zone (au niveau de la classe) attend de recevoir des déclarations (définition de champs, propriétés, méthodes etc) et pas des appels à des méthodes comme tu le fais avec tes 3 lignes.
Ce que tu peux faire c'est de mettre ces 3 lignes dans le constructeur de ta classe Form ou t'abonner à l'évènement Load et les mettre dans le gestionnaire.

[ermips]

Merci, pour la réponse !
C'est noté pour la classe qui ne doit contenir que des déclarations.
Par contre, je ne comprends pas toujours pas une chose basique :
comment accéder à l'instance du da depuis une autre sub :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Class Form1
Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      Dim da As New SqlDataAdapter(myCommand)
End Sub

Private Sub btnAddNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddNew.Click
     Dim builder As New SqlCommandBuilder(da)
     da.Update(ds, "LienCritereControle")
    La référence d'objet n'est pas définie à une instance d'un objet 
End Sub
end class

[Invité]

Laisse la déclaration de ton Adaptateur au niveau de la classe. Déclare le en tant que membre de la classe et non dans le gestionnaire de l'event Load parce que la portée est limitée au niveau de ce bloc uniquement. Fais comme t'avais fait dans ton avant dernier post mais uniquement pour la déclaration.

Sinon il va falloir regarder des tutos au sujet de la POO (Programmation Orientée Objet) .

[ermips]

Merci, pour les conseils !