Discussion :

[issofa1]

Bonjour à tous,
S'il vous plait, je suis débutant en programmation. Jusqu'ici, je crée mes formulaires et parvient à les connecter à la BD sur VB6 et Visual Studio 2005 et 8. A l'aide d'ADO et de la datagrid, avec le SELECT j'affiche les enregistrement d'une table donnée. Cependant, je ne sais pas comment faire une insertion, une modification ou une suppression des données dans la BD.

Pourriez vous m'aider ?

Merci

[asmduty]

Je pense qu'une simple recherche résoudra ton problème

[Luc1an0]

Et voila...

+1 pour asmduty ...

[eddyphan]

Si tu utilises le VB 2005, je suppose que tu connais la notion du dataset et de sqldataadapter, datarow, sqlcommandbuilder.

1 - Ajout

Code :

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

1
2
3
4
5
6
7
8
 
 daro = dsar.Tables("Arrondissement").NewRow
                daro("Codz") = Me.TextBox1.Text
                daro("LibArr") = Me.TextBox2.Text
                dsar.Tables("Arrondissement").Rows.Add(daro)
                CMUP = New SqlCommandBuilder(daar)
                daar.Update(dsar, "Arrondissement")
                MsgBox("Arrondissement ajouté avec succès...")

2 - Modification

Code :

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

1
2
3
4
5
6
7
8
 
If MsgBox("Voulez-vous enregistrer les modification?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
            eddy = New SqlCommand("update Arrondissement set LibArr = '" & Me.TextBox2.Text & "' where Codz = '" & Me.TextBox1.Text & "'", BD)
            eddy.ExecuteNonQuery()
            MsgBox("Modification effectuée avec succès..")
            Me.TextBox2.Enabled = False
            Me.Close()
        End If

3-Suppression

Code :

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

1
2
3
4
5
6
 
 If MsgBox("Voulez-vous vraiment supprimer cet enregistrement...?)", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
            eddy = New SqlCommand("delete from dtlVentCpte where Nvent = '" & Me.TextBox3.Text & "' and CodPro = '" & Me.ComboBox2.Text & "'", BD)
            eddy.ExecuteNonQuery()
            MsgBox("Suppression effectuéee avec succès...")
        End If

J'espère que ça va te servir.

Bonne chance