Bonjour,
tt le monde
j'espére k je vais trouver une solution avec vous de mon probleme
voilà le prob :
jai une application de gestion de commande ke je dois faire ajout ,supprimession,modification des donnees de la base de donneé pour l'ajout ya aucun prob ,mais pr la suppression je selectionne dans le combo le numero k 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 suppriimer
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 probleme c k le programmae 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
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
