No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
1 Posted Topic
if not myBindingSource.Current is Nothing then If MsgBox("Are you sure to delete record", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then GridView1.ClearColumnsFilter() Dim fbtrans As FbTransaction = Fbconn.BeginTransaction(System.Data.IsolationLevel.ReadCommitted) Me.myAdapter.Adapter.DeleteCommand.Transaction = fbtrans Try myBindingSource.RemoveCurrent() Me.myAdapter.Adapter.Update(myTable) fbtrans.Commit() myTable.AcceptChanges() Catch ex As Exception fbtrans.Rollback() MsgBox(ex.Message, MsgBoxStyle.Critical) MyTable.Rejectchanges() MyBindingSource.CurrencyManager.Refresh() End Try End If end if It will delete …
The End.