Discussion :

[TERRACHER]

Bonjour à tous,

j'ai un souci avec la mise à jour de ma base de données (SDZ) créee sous SQL SERVER 2008, à partir d'un datagridview. Je voudrais surtout pouvoir répercuter les modifications effectuées dans le datagrid directement dans la base.

Voici mon 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
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Connexion As New SqlConnection("Data Source=localhost;Initial Catalog=SDZ;User Id=sa;Password=herve;")
        Dim ds As New DataSet
        Try
            Connexion.Open()
        Catch ex As Exception
            MsgBox(("Erreur lors de la connexion à la BDD... Vérifiez votre connexion ou contactez votre administrateur.."), MessageBoxButtons.OK)
            Me.Close()
        End Try
        Dim Requete As String = "SELECT * from Musiques"
        Dim Commande As New SqlCommand(Requete, Connexion)
        Dim Adaptateur As New SqlDataAdapter(Commande)
        Try
            Adaptateur.Fill(ds, "SELECT * from Musiques")
            'Liaison avec le DataGrid
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
        Me.DGV.DataSource = ds.Tables("SELECT * from Musiques").DefaultView
    End Sub

Erreur en pj.modif.docx

Merci d'avance pour votre aide et pardon pour la forme de mon message

[doubleface2]

pour faire la mise à jour dans ton datagrid, il faut utiliser la fonction sql UPDATE que tu devra passer tout juste après la fonction SELECT. par exemple : dim update AS new sqlclient.sqlcommand("UPDATE tatable SET id, champsuivant...",connection) ceci te permet de prendre les enregistrements modifiés

[Teekeasy]

Bonjour,

Tu travailles en mode connecté ou déconnecté parce que la mise à jour d’une base de données se fait différemment dans les deux cas...

[doubleface2]

voici un exemple de code en mode connecté

Code vb.net :

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
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'un exemple de mise à jour sur serveur
        Try
            'ligne de connection
            Dim Connexion As New SqlClient.SqlConnection("Data Source=.\sqlexpress;Initial Catalog=labo;integrated security=true")
            Connexion.Open()
            'fonction sql de mise à jour par deux textbox dans la table table1 dont 'un' est l'id NB: ceci modifie une ligne de la table
            Dim cup As New SqlClient.SqlCommand("update table1 set un=@un, deux=@deux where un=@p", Connexion)
            'création des paramètres de mise à jour sur textbox
            cup.Parameters.Add("@un", SqlDbType.NChar).Value = TextBox1.Text
            cup.Parameters.Add("@deux", SqlDbType.NVarChar).Value = TextBox2.Text
            cup.Parameters.Add("@p", SqlDbType.NVarChar).Value = TextBox1.Text
            'execution de la requete
            cup.ExecuteNonQuery()
            Connexion.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
 
        End Try
    End Sub

[TERRACHER]

Merci beaucoup pr vos réponses, je travaille en mode connecté et je souhaite que les modifications faites ds le datagridview se répercutent dans ma base de données sous SQL SERVER. Le code que j'ai développé ne arche malheureusement pas.

Merci de m'aider.

[doubleface2]

en mode connecté, le code que je t'ai envoyé permet la modification ou la mise à jour que dans les textboxs passés en paramètre.
ce que tu veux est facilement praticable en mode déconnecté, en créant ton code sur l'evenement change value dans le feuille de propriété en tapant ce code:

me.validate()
me.votretable1.bindingsource.endedit()
me.tablemanagertableadapter.updateall(me.votrebddataset)

[TERRACHER]

Merci pr vos réponses. Voici mon nouveau code ainsi que l'erreur générée (en pj).

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 Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim Connexion As New SqlConnection("Data Source=localhost;Initial Catalog=mabase;User Id=sa;Password=*****;")
        Connexion.Open()
 
        Dim i As Integer = 0
        ''Récuperer ligne par ligne
        For i = 0 To (DataGridView1.RowCount - 2)
 
            Dim Requete As String = "Insert into matable values ('" & Me.DataGridView1.Item(0, i).Value & "', " & Me.DataGridView1.Item(1, i).Value & ")"
            Dim Commande As New SqlCommand(Requete, Connexion)
            Commande.ExecuteNonQuery()
        Next
        Connexion.Close()
    End Sub

[doubleface2]

bsr
je ne vois pas dans ton code une mise à jour mais plutôt une fonction d'insertion!!
donc surement ton pb n'était pas précise.
c'est bien si tu as enfin trouvé la solution