raha1815
دوشنبه 13 مهر 1388, 15:54 عصر
سلام
مشكل اين برنامه چيه ؟ براي حذف يه ركورده
اين پيغام و ميده :
update requires a valid updatecommand when passed datarow collection with modified rows.
Dim result As MsgBoxResult
result = MsgBox("? آيا مي خواهيد اطلاعات حذف شود", MsgBoxStyle.YesNo, "Warning")
If result = MsgBoxResult.Yes Then
Dim IndexRow As Integer
If IndexRow <> -1 Then
Try
IndexRow = BindingContext(Me.P5DataSet1, "p5index").Position
P5DataSet1.p5index(IndexRow).Delete()
SqlDataAdapter1.Update(P5DataSet1.p5index)
P5dataset1.p5index.Clear()
SqlDataAdapter1.Fill(P5DataSet1.p5index)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
End If
End Sub
مشكل اين برنامه چيه ؟ براي حذف يه ركورده
اين پيغام و ميده :
update requires a valid updatecommand when passed datarow collection with modified rows.
Dim result As MsgBoxResult
result = MsgBox("? آيا مي خواهيد اطلاعات حذف شود", MsgBoxStyle.YesNo, "Warning")
If result = MsgBoxResult.Yes Then
Dim IndexRow As Integer
If IndexRow <> -1 Then
Try
IndexRow = BindingContext(Me.P5DataSet1, "p5index").Position
P5DataSet1.p5index(IndexRow).Delete()
SqlDataAdapter1.Update(P5DataSet1.p5index)
P5dataset1.p5index.Clear()
SqlDataAdapter1.Fill(P5DataSet1.p5index)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
End If
End Sub