Discussion :

[informaticienne_2009]

Bonjour,

voici le code que jai ecrit pour ajouter une nouvelle ligne dans un datatable:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Dim produit As DataRow = dtProduits.NewRow()
      produit("nom") = txtNom.Text.Trim
      produit("prix") = txtPrix.Text.Trim
      ' on ajoute la ligne à la table
      'Application.Lock()
      Try
        dtProduits.Rows.Add(produit)
        lblInfo3.Text = "Ajout réussi"
        ' nettoyage
        txtNom.Text = ""
        txtPrix.Text = ""
      Catch ex As Exception
        lblInfo3.Text = String.Format("Erreur : {0}", ex.Message)
      End Try

mais a l'execution je recois le message suivant sur la ligne

Code :

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

Dim produit As DataRow = dtProduits.NewRow()

:

Erreur 1 'System.Data.DataRow.Protected Friend Sub New(builder As System.Data.DataRowBuilder)' n'est pas accessible dans ce contexte, car il est 'Protected Friend'.

Si quelqu'un a deja rencontré cet erreur peut il m'expliquer SVP.
Cordialement.

[Nasame]

Bonjour jeune developpeur,

Essai avec un Array(of Object) = {"param1", "param2"} ou paramX est le contenu de tes TextBoxes.

Je reprend ton 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
 
Dim produit As String() = {txtNom.Text.Trim(), txtPrix.Text.Trim()}
      ' on ajoute la ligne à la table
      'Application.Lock()
 
      Try
        dtProduits.Rows.Add(produit)
      Catch ex As Exception
        lblInfo3.Text = String.Format("Erreur : {0}", ex.Message)
      End Try
 
      lblInfo3.Text = "Ajout réussi"
      ' nettoyage
      txtNom.Text = ""
      txtPrix.Text = ""

[Redouane]

Bonjour,

essaye d'appeler tt le namespace, au lieu de DataRow, faire System.Data.DataRow :

Code :

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

Dim produit As System.Data.DataRow= dtProduits.NewRow()

je pense que tu utilise un constructeur (nouvelle instance) DataRow qui déstiné uniquement pour un usage interne.

[informaticienne_2009]

merci beaucoup redouane.

le code a bien marché pour moi mais l'ajout ne passe pas coté base de données.

Si vous pouvez encore m'eclaircir cette etape, j'en serais reconnaissante.

Voici le code complet :

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
  Private Sub btnAjouter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAjouter.Click
      ' ajout d'un nouvel élément à la table des produits
      ' il faut tout d'abord que les données soient valides
      rfvNom.Validate()
      rfvPrix.Validate()
      cvPrix.Validate()
      If Not rfvNom.IsValid Or Not rfvPrix.IsValid Or Not cvPrix.IsValid Then
        ' de nouveau le formulaire de saisie
        afficheAjout()
        Exit Sub
      End If
      ' on crée une ligne
      Dim produit As String() = {txtNom.Text.Trim(), txtPrix.Text.Trim()}
      ' on ajoute la ligne à la table
      Application.Lock()
      Try
        dtProduits.Rows.Add(produit)
        lblInfo3.Text = "Ajout réussi"
        ' nettoyage
        txtNom.Text = ""
        txtPrix.Text = ""
      Catch ex As Exception
        lblInfo3.Text = String.Format("Erreur : {0}", ex.Message)
      End Try
      Application.UnLock()
    End Sub

Cordialement.

[Redouane]

C'est Nasame qui t'a donné cette solution

Essai avec un Array(of Object) = {"param1", "param2"} ou paramX est le contenu de tes TextBoxes[/code]

[informaticienne_2009]

Desolée jai pas fait attention

Grand merci a Nasame.

[Nasame]

Ton objet DataTable est "une vue" en mémoire de ta table en base donc si tu le modifies, la source de données n'est pas impactée...
Il te faut des méthodes d'insert, modif, delete et les appeler..

Mais je n'ai pas l'habitude de travailler avec des dataTable, je me trompe peut-être...

Bon courage,

Nasame.