Discussion :

[Invité]

bonjour je suis en train de developez une application sur visual studio 2010 et sqlserver mon probleme est que:
qaund je compile l application, et je fais une consultation de tous les utilisateur qui se trouvent dans la table compte , je peux les visualiser dans une datagrid, aprs qaud je fais une insertion et je revien pour afficher les utilisateur je trouve pas le dernier ajouter, il faut que je re compile l application
ou est le probeleme et merci

[calagan99]

Bonjour,

Sans la moindre ligne de code, il nous sera impossible de t'aider...

[Invité]

le bouton de l insertion dans la form2

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 était 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

et pour la forme3 ou l affichage dans une data grid est

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
    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 'ConsortiumDataBaseSQLDataSet.compte'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.CompteTableAdapter.Fill(Me.ConsortiumDataBaseSQLDataSet.compte)
    End Sub
 
    Private Sub CompteBindingNavigatorSaveItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CompteBindingNavigatorSaveItem2.Click
        Me.Validate()
        Me.CompteBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.ConsortiumDataBaseSQLDataSet)
    End Sub
 
    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        Form1.Show()
        Me.Hide()
    End Sub
 
End Class