Discussion :

[Invité]

bonjour, je suis en train de développer une application sous visual studio 2010 et sqlServer2008 , mon problème est le suivant:
bon d'abord , dans une form, je fais une insertion d'un ensemble d'utilisateurs (ça marche bien)
et dans une autre form , je fais l affichage dans un datagrid (en faisant glisser la table des utilisateurs depuis la source de donnée)(ça marche bien)

lors de l’exécution ,quand j'affiche les utilisateurs, tout se passe bien, mais si j'ajoute un utilisateur et après je fais l affichage, l 'utilisateur n'apparait pas dans le datagrid alors qu'il est bien dans la base.

code datagrid:

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
Imports System.Data.SqlClient
 
Public Class Form4
 
    Private Sub CompteBindingSource1BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CompteBindingSource1BindingNavigatorSaveItem.Click
        Me.Validate()
        Me.CompteBindingSource1.EndEdit()
        Me.TableAdapterManager2.UpdateAll(Me.ConsortiumDataBaseSQLDataSet2)
 
    End Sub
 
    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: cette ligne de code charge les données dans la table 'ConsortiumDataBaseSQLDataSet2.compte'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.CompteDataGridView1.Update()
        Me.CompteTableAdapter2.Fill(Me.ConsortiumDataBaseSQLDataSet2.compte)
 
    End Sub
 
    Private Sub ToolStripButton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton7.Click
        Form2.Show()
        Me.Hide()
    End Sub
 
End Class

[DeWaRs]

Hello,

Je pense qu'il faut que tu rebind ton datagrid après ton insertion.

Cordialement.

DeWaRs

[Invité]

oui vous avez raison, c'est la même chose que j'ai trouvé en cherchant sur le net, mais comment faire?
merci

[-N4w4k-]

Salut,

Avec ce code, chez moi ça marche bien..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'TODO: cette ligne de code charge les données dans la table 'DataSet1.test'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.TestTableAdapter.Fill(Me.DataSet1.test)
 
    End Sub
 
    Private Sub ButtonAdd_Click(sender As System.Object, e As System.EventArgs) Handles ButtonAdd.Click
        Dim dt As DataTable = Me.DataSet1.test
        Dim r As testRow = dt.NewRow()
        r.id = 8
        r.nom = "plip"
        dt.Rows.Add(r)
        Me.TestTableAdapter.Update(Me.DataSet1.test)
    End Sub

Ma datagrid (liée à la datatable du dataset) se met à jour automatiquement lors du clic sur le ButtonAdd

[Invité]

bon, moi je fais l 'ajout depuis une autre form , voila le 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
34
35
36
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        DataRow = DataSet.Tables("dbo.compte").NewRow()
        DataRow("nomUser") = Me.TextBox1.Text
        DataRow("prenomUser") = Me.TextBox2.Text
        DataRow("loginUser") = Me.TextBox3.Text
        DataRow("mdpUser") = Me.TextBox4.Text
        DataRow("type") = Me.ComboBox1.Text
 
        If (Me.TextBox1.Text = "") Or (Me.TextBox2.Text = "") Or (Me.TextBox3.Text = "") Or (Me.TextBox4.Text = "") Or (Me.ComboBox1.SelectedItem = "") Then
            Label6.Visible = True
        Else
            DataSet.Tables("dbo.compte").Rows.Add(DataRow)
            cmd = New SqlCommand(strSql, connexion)
            cmdBuilder = New SqlCommandBuilder(adapter)
            adapter.SelectCommand = cmd
            'Mise à jour
            Try
                adapter.Update(DataSet, "dbo.compte")
                MsgBox("Le nouveau compte a été bien crée")
                TextBox1.Text = ""
                TextBox2.Text = ""
                TextBox3.Text = ""
                TextBox4.Text = ""
                ComboBox1.Text = ""
            Catch ex As Exception
                MsgBox("login existe déja")
                TextBox3.Text = ""
                TextBox4.Text = ""
            End Try
            'On vide le DataSet et on le 'recharge' de nouveau.
            DataSet.Clear()
            adapter.Fill(DataSet, "dbo.compte")
            DataTable2 = DataSet.Tables("dbo.compte")
        End If
    End Sub

[-N4w4k-]

et dans une autre form , je fais l affichage dans un datagrid

Je pense qu'il faut que tu recharge ton dataset apres l'insertion:

Code :

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

Me.MyTableAdapter.Fill(Me.MyLDataSet.MyDataTable)

[Invité]

merci pour votre réponse, ça marche bien