Bonjour,
tout le monde
j'espére que je vais trouver une solution avec vous de mon problème
voilà le problème :
j'ai une application de gestion de commande que je dois faire ajout ,suppression,modification des donneés de la base de donneé pour l'ajout ya aucun probléme ,mais pour la suppression je selectionne dans le combobox le numero que je veux effacer mais il supprime le debut de la liste par ex : j'ai 1,2,3,4,5.. je selectionne 5 il supprime 1 je selectionne 3 il suprrime 2 ....
voilà le code

Code de SUPPRESSION
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
ds.Clear() 
da = New SqlDataAdapter("select distinct * from Livraison", cn) 
da.Fill(ds, "Liv") 
da.Update(ds, "Liv") 
DataGridView1.DataSource = ds.Tables("Liv") 
For i As Integer = 0 To ds.Tables("Liv").Rows.Count - 1 
If ds.Tables("Liv").Rows(i)(0) = Val(ComboBox1.Text) Then 
da.DeleteCommand = New SqlCommand("delete from Livraison where Num_C=@nc", cn) 
Dim pr As SqlParameter = da.DeleteCommand.Parameters.Add("@nc", SqlDbType.Int) 
pr.SourceColumn = "Num_C" 
dt.Rows(Me.BindingContext(dt).Position).Delete() 
End If 
Next 
da.Update(ds, "Liv") 
MsgBox("suppression avec succ‚", MsgBoxStyle.Information, "suppression")
pour la modification le problème c'est que le programme tourne sans erreur et il m'affiche le msgbox mais il modifie pas, ni dans datagridview ni dans la base de donneé
voilà le code


code de MODIFICATION
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
ds.Clear() 
da = New SqlDataAdapter("select distinct * from Livraison", cn) 
da.Fill(ds, "Liv") 
da.Update(ds, "Liv") 
DataGridView1.DataSource = ds.Tables("Liv") 
For i As Integer = 0 To ds.Tables("Liv").Rows.Count - 1 
If ds.Tables("Liv").Rows(i)("Num_C") = ComboBox1.Text Then 
da.UpdateCommand = New SqlCommand("update Livraison set Num_C , Date_L where Num_C = @nc", cn) 
da.UpdateCommand.Parameters.Add("@nc", SqlDbType.VarChar, 50, "Num_C") 
Dim pr As SqlParameter = da.UpdateCommand.Parameters.Add("@nc", SqlDbType.VarChar) 
pr.SourceColumn = "Num_C" 
End If 
If Me.BindingContext(ds, "Liv").Position = 0 Then 
Me.BindingContext(ds, "Liv").Position = 1 
Else 
Me.BindingContext(ds, "Liv").Position -= 1 
Me.BindingContext(ds, "Liv").Position += 1 
End If 
Next 
cb = New SqlCommandBuilder(da) 
da.Update(ds, "Liv") 
MsgBox("Modification avec succ‚", MsgBoxStyle.Information, "Modification")


svp aidez -moi le plus vite possible car je fais un stage et je dois donner cette application avant le 30 avril
merci en avance