Delete multi-rows by drawing mouse.

This tutorial will show you how to delete multi-rows by drawing mouse.

This tutorial will show you how to delete multi-rows by drawing mouse. First, you will need to import the System.Data.SqlClient namespace for binding data to WebDataGrid1.

Imports System.Data.SqlClient

We migrated our web sites to Server Intellect over one weekend and the setup was so smooth that we were up and running right away. They assisted us with everything we needed to do for all of our applications. With Server Intellect's help, we were able to avoid any headaches!

Function DataBind() will bind data to WebDataGrid1,and create WebDataGrid1 layout.

Private Sub DataBind()

Dim sql As String = "select * from ContactInfo"
Dim ds As DataSet = GetDataSet(sql)
Dim cols((ds.Tables(0).Columns.Count - 1)) As String
Dim i As Integer
For i = 0 To ((ds.Tables(0).Columns.Count) - 1)

cols(i) = ds.Tables(0).Columns(i).ColumnName

Next i
'string[] width = new string[]{"0","40","15","15","15","15"};
Me.WebDataGrid1.ColumnsField = cols
'this.WebDataGrid1.ColumnsWidth = width;
Me.WebDataGrid1.GridID = "WebDataGrid1"
Me.WebDataGrid1.GridDataSource = ds.Tables(0)
Me.WebDataGrid1.GridBind()

End Sub 'DataBind

We used over 10 web hosting companies before we found Server Intellect. Their dedicated servers and add-ons were setup swiftly, in less than 24 hours. We were able to confirm our order over the phone. They respond to our inquiries within an hour. Server Intellect's customer support and assistance are the best we've ever experienced.

Function DataGrid1_ItemDataBound define mouse even, those even will carry out mouse drawing.

Private Sub DataGrid1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs)

If e.Item.ItemType = ListItemType.Header Then

e.Item.Attributes.Add("style", "BACKGROUND-IMAGE: url('headeImage.jpg')")
e.Item.ID = "Header"

Else

e.Item.Attributes.Add("onclick", "_SelectTheRow(this)")
e.Item.Attributes.Add("onmousedown", "_OnMouseDown(this)")
e.Item.Attributes.Add("onmouseup", "_OnMouseUp(this)")
e.Item.Attributes.Add("onmouseover", "_OnMouseOver(this)")
e.Item.Attributes.Add("onmouseout", "_OnMouseOut(this)")
e.Item.Style.Add("background-color", "#ffffff")

End If
e.Item.Cells(0).Style.Add("display", "none")

End Sub 'DataGrid1_ItemDataBound

We use the btnDelete event to do multi-rows delete. Mouse drawing will collect all rows information, and pass those information to delete even.

Private Sub delete(ByVal id As String)

Dim conn As New SqlConnection(System.Configuration.ConfigurationSettings.AppSettings("ConnectionString"))
Dim sql As String = "declare @sql nvarchar(400)" + ControlChars.Cr + ControlChars.Lf + ControlChars.Tab + ControlChars.Tab + ControlChars.Tab + ControlChars.Tab + ControlChars.Tab + ControlChars.Tab + "set @sql = 'delete from ContactInfo where ID in('+@ID+')'" + ControlChars.Cr + ControlChars.Lf + ControlChars.Tab + ControlChars.Tab + ControlChars.Tab + ControlChars.Tab + ControlChars.Tab + ControlChars.Tab + "exec( @sql)"
Dim comm As New SqlCommand(sql, conn)
Dim parm1 As New SqlParameter("@ID", SqlDbType.VarChar, 20)
parm1.Value = id
comm.Parameters.Add(parm1)
conn.Open()
comm.ExecuteNonQuery()
conn.Close()
DataBind()

End Sub 'delete

Try Server Intellect for Windows Server Hosting. Quality and Quantity!

The front end DatagridheadersortCsharp.aspx page looks something like this:

<asp:Button id="btnDelete" style="Z-INDEX: 102; LEFT: 11px; POSITION: absolute; TOP: 206px" runat="server" Text="Delete" onclick="btnDelete_Click"></asp:Button>
<br />
<br />
<br />
<br />
<uc1:WebDataGrid id="WebDataGrid1" runat="server"></uc1:WebDataGrid>
</fieldset>

<SCRIPT type="text/javascript"><!--
function _GoToPageDetail()
{

var childs = document.getElementById("WebDataGrid1_DataGrid1").rows;
var url = "";
for(var i=1;i<childs.length;i++)
{

var child = childs[i];
if(child.style.backgroundColor=='lavender')
{

var tds = child.children;
url = "detatil.aspx?id="+tds[0].innerText;
break;

}

}
if(url!="")
{

window.location.href = url;

}
else if(childs.length>1)
{

var child = childs[1];
var tds = child.children;
window.location.href ="detatil.aspx?id="+tds[0].innerText;

}

}

function Delete()
{

SelectDeleteRows();
var hid = document.getElementById("WebDataGrid1_hiddenDelete");
if(hid=="")

alert('You need to select a row in the list before selecting Delete.\r\nPlease select a row and try again.');

else if(window.confirm("Are you sure to delete all these?"))
{

document.getElementById("btnDelete").click();

}
else
{

return false;

}

}

function _DoubleTheRow(obj)
{

var childs = obj.children;
var td1 = childs[0];
var txtID = td1.innerText;
window.location.href ="detatil.aspx?id"+txtID

}
--></SCRIPT>

The flow for the code behind page is as follows.

Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports System.Data.SqlClient

Namespace datagridMutiDelVB

Class WebForm1

Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
s

If Not Page.IsPostBack Then

DataBind()
Me.btnDelete.Attributes.Add("onclick", "return Delete();")

End If

End Sub 'Page_Load

Protected Overrides Sub OnInit(ByVal e As EventArgs)

InitializeComponent()
MyBase.OnInit(e)

End Sub 'OnInit

Private Sub InitializeComponent()

End Sub 'InitializeComponent

Private Sub DataBind()

cols(i) = ds.Tables(0).Columns(i).ColumnName

End Sub 'DataBind

Private Function GetDataSet(ByVal sql As String) As DataSet

Dim constring As String = System.Configuration.ConfigurationSettings.AppSettings("ConnectionString")
Dim sda As New SqlDataAdapter(sql, constring)
Dim ds As New DataSet()
sda.Fill(ds)
Return ds

End Function 'GetDataSet

Private Sub delete(ByVal id As String)

End Sub 'delete

Protected Sub btnDelete_Click(ByVal sender As Object, ByVal e As System.EventArgs)

Dim id As String = Me.WebDataGrid1.GridSelectItems '.Split(',');
If id.EndsWith(",") Then

id = id.Substring(0, id.Length - 1)

End If
delete(id)
Me.Response.Redirect(Request.Url.ToString(), True)

End Sub 'btnDelete_Click

End Class 'WebForm1

End Namespace 'WebApplication3

Download the Full Working Version of this Project written with Visual Studio.NET VB.NET 2005 Here!

Looking for the C# 2005 Version? Click Here!

Looking for more ASP.NET Tutorials? Click Here!