Mise à jour bd sql server 2008 à partir du datagridview sous vb.net 2010

Version imprimable

1 pièce(s) jointe(s)

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:

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.Pièce jointe 182308

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

07/07/2015, 18h09
doubleface2

mise à jour sqldatagridview

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
08/07/2015, 10h53
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...

mise à jour

voici un exemple de code en mode connecté

Code:

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

13/07/2015, 00h16
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.
13/07/2015, 18h25
doubleface2

connection sql

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)

1 pièce(s) jointe(s)

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

Code:

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

05/09/2015, 20h35
doubleface2

Mise a jour

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