freelanceprogrammers.org Forum Index » ASP
Deleting A Row In a DataGrid
Joined: 08 Sep 2005
Posts: 2
Deleting A Row In a DataGrid
I have the following two functions. My goal is to highlight a row in a
datagrid and delete a row. Problem arises when I click on the delete
button.
Below are two sub routines for DoDelete. Which route should I go
with?
I have created stored procedure for deleting the row as well.
Any help would be greatful.
Private Sub highLightRow(ByVal sender As Object, ByVal e As
MouseEventArgs)
Dim pt = New Point(e.X, e.Y)
Dim grd As DataGrid = CType(sender, DataGrid)
Dim hit As DataGrid.HitTestInfo = grd.HitTest(pt)
If hit.Type = grd.HitTestType.Cell Then
grd.CurrentCell = New DataGridCell(hit.Row, hit.Column)
RowNum = hit.Row
grd.Select(RowNum)
PolicyNumber = Convert.ToString(grd.Item(RowNum, 1))
TransCodeOrig = Convert.ToString(grd.Item(RowNum, 2))
TransEffDate = Convert.ToString(grd.Item(RowNum, 3))
ModifiedUID = Convert.ToString(grd.Item(RowNum, 7))
End If
End Sub
Public Sub DoDelete()
Dim bm As BindingManagerBase = Me.DataGrid1.BindingContext(Me.
DataGrid1.DataSource, Me.DataGrid1.DataMember)
Dim dr As DataRow = CType(bm.Current, DataRowView).Row
Try
PolicyNumber = dr(1)
TransCodeOrig = dr(2)
TransEffDate = dr(3)
ModifiedUID = dr(7)
dr.Delete()
DsTransOverride1.dbo_stp_SelTransOverrides.Clear()
SqlDataAdapter1.Fill(DsTransOverride1.
dbo_stp_SelTransOverrides)
` SqlDataAdapter1.Update(Me.DsTransOverride1,
"dbo_stp_SelTransOverrides")
DsTransOverride1.dbo_stp_SelTransOverrides.AcceptChanges()
Me.lbNumRec.Text = Me.DsTransOverride1.Tables(0).Rows.
Count.ToString()
Catch exError As Exception
MessageBox.Show(exError.Message)
End Try
End Sub
Public Sub doDelete()
` MDI Main Delete record requ3est toolbar button pressed
`if no records are displayed on the grid exist then exit
Dim ConnectionString As String = System.Configuration.
ConfigurationSettings.AppSettings("FinSolMainDBConn")
Dim connfinsol As New System.Data.SqlClient.
SqlConnection(ConnectionString)
Dim myCommand As New SqlCommand("stp_DelTransOverride ",
connfinsol)
myCommand.CommandType = CommandType.StoredProcedure
`Add Parameters
` 1 Policy Number
myCommand.Parameters.Add("@Policy_Nbr", SqlDbType.VarChar, 7).
Value = PolicyNumber
` 2 Original Tranaction Override
myCommand.Parameters.Add("@Trans_CodeOrig", SqlDbType.VarChar,
6).Value = TransCodeOrig
` 3 Transaction Effective Date
myCommand.Parameters.Add("@Trans_Eff_Date", SqlDbType.
DateTime, 8).Value = TransEffDate
` 8 Modified UID
myCommand.Parameters.Add("@ModifiedUID", SqlDbType.NVarChar,
48).Value = ModifiedUID
`Open Connection
Try
`Open Connection
connfinsol.Open()
myCommand.ExecuteNonQuery()
MsgBox("Data Deleted Successfully !", MsgBoxStyle.
Information, Me.Text)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, Me.Text)
Finally
If myCommand.Connection.State = ConnectionState.Open Then
myCommand.Connection.Close()
End If
End Try
End Sub
I am not sure where to go, which DoDelete do go with.
Any help would be great I have been stuck for days and no one can seem
to help in other forums.
Sincerely,
Mathieu
Joined: 11 Jan 2006
Posts: 38
Deleting A Row In a DataGrid
When you say "Problem arises", does that mean there`s an error,
no change, or some unexpected behavior?
-----Original Message-----
From: AspNetAnyQuestionIsOk@yahoogroups.com
[mailto:AspNetAnyQuestionIsOk@yahoogroups.com] On Behalf Of Matt
I have the following two functions. My goal is to highlight a row in a
datagrid and delete a row. Problem arises when I click on the delete
button.
Below are two sub routines for DoDelete. Which route should I go
with?
I have created stored procedure for deleting the row as well. Any help
would be greatful.
Private Sub highLightRow(ByVal sender As Object, ByVal e As
MouseEventArgs)
Dim pt = New Point(e.X, e.Y)
Dim grd As DataGrid = CType(sender, DataGrid)
Dim hit As DataGrid.HitTestInfo = grd.HitTest(pt)
If hit.Type = grd.HitTestType.Cell Then
grd.CurrentCell = New DataGridCell(hit.Row, hit.Column)
RowNum = hit.Row
grd.Select(RowNum)
PolicyNumber = Convert.ToString(grd.Item(RowNum, 1))
TransCodeOrig = Convert.ToString(grd.Item(RowNum, 2))
TransEffDate = Convert.ToString(grd.Item(RowNum, 3))
ModifiedUID = Convert.ToString(grd.Item(RowNum, 7))
End If
End Sub
Public Sub DoDelete()
Dim bm As BindingManagerBase = Me.DataGrid1.BindingContext(Me.
DataGrid1.DataSource, Me.DataGrid1.DataMember)
Dim dr As DataRow = CType(bm.Current, DataRowView).Row
Try
PolicyNumber = dr(1)
TransCodeOrig = dr(2)
TransEffDate = dr(3)
ModifiedUID = dr(7)
dr.Delete()
DsTransOverride1.dbo_stp_SelTransOverrides.Clear()
SqlDataAdapter1.Fill(DsTransOverride1.
dbo_stp_SelTransOverrides)
` SqlDataAdapter1.Update(Me.DsTransOverride1,
"dbo_stp_SelTransOverrides")
DsTransOverride1.dbo_stp_SelTransOverrides.AcceptChanges()
Me.lbNumRec.Text = Me.DsTransOverride1.Tables(0).Rows.
Count.ToString()
Catch exError As Exception
MessageBox.Show(exError.Message)
End Try
End Sub
Public Sub doDelete()
` MDI Main Delete record requ3est toolbar button pressed
`if no records are displayed on the grid exist then exit
Dim ConnectionString As String = System.Configuration.
ConfigurationSettings.AppSettings("FinSolMainDBConn")
Dim connfinsol As New System.Data.SqlClient.
SqlConnection(ConnectionString)
Dim myCommand As New SqlCommand("stp_DelTransOverride ",
connfinsol)
myCommand.CommandType = CommandType.StoredProcedure
`Add Parameters
` 1 Policy Number
myCommand.Parameters.Add("@Policy_Nbr", SqlDbType.VarChar, 7).
Value = PolicyNumber
` 2 Original Tranaction Override
myCommand.Parameters.Add("@Trans_CodeOrig", SqlDbType.VarChar,
6).Value = TransCodeOrig
` 3 Transaction Effective Date
myCommand.Parameters.Add("@Trans_Eff_Date", SqlDbType. DateTime,
8).Value = TransEffDate
` 8 Modified UID
myCommand.Parameters.Add("@ModifiedUID", SqlDbType.NVarChar,
48).Value = ModifiedUID
`Open Connection
Try
`Open Connection
connfinsol.Open()
myCommand.ExecuteNonQuery()
MsgBox("Data Deleted Successfully !", MsgBoxStyle.
Information, Me.Text)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, Me.Text)
Finally
If myCommand.Connection.State = ConnectionState.Open Then
myCommand.Connection.Close()
End If
End Try
End Sub
I am not sure where to go, which DoDelete do go with.
Any help would be great I have been stuck for days and no one can seem
to help in other forums.
Sincerely,
Mathieu
All times are GMT
Page 1 of 1
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
Freelace Website Designer - Customer web design and software building.
China Wholesale - Electronics Products
Character Studio - Tutorials and Help
China Wholesale - Electronics Products
Character Studio - Tutorials and Help