[SOLVED] searching through a grid view

painthu · #1 (**permalink**) 05-20-08, 03:36 AM

hi,

i am creating a custom control- a grid view..
i have been asked to create search options such that under each column's header in the grid view there will be a textbox and then when the user types int something in any of the textboxes and hits search button ,he can actually see the grid getting populated with the relevant rows.

i was successfull in doing this in a normal program..ie aspx in code behind, but u see the problem is that in the case of a custom control, the grid view can be populated using any table from sql server, i don't know what common logic can be put under search section in a custom grid view....

i mean i was successful in creating textboxes under each column in the custom control-grid view...but it's the search function that i am uanble to incorporate....any ideas....?

the custom control code:-

csharp Code:

the code is as follows:-
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Text;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Data.SqlClient;
using System.Data;
namespace customcon
{
 
 
public class WebCustomControl6 : System.Web.UI.WebControls.GridView
{
SqlConnection con = new SqlConnection();
string s;
DataSet ds = new DataSet();
SqlDataAdapter da = new SqlDataAdapter();
SqlCommandBuilder scb = new SqlCommandBuilder();
public GridView grid;
public DropDownList txtSearch;
public TextBox txtSearch1;
public TextBox txtSearch2;
public TextBox txtSearch3;
public TextBox txtSearch4;
public TextBox txtSearch5;
public TextBox txtSearch6;
public string f; 
 
protected override void OnRowCreated(GridViewRowEventArgs e)
{
base.OnRowCreated(e);
if (e.Row.RowType == DataControlRowType.Header)
{
Literal litHeader;
TextBox txtSearch;
 
 
//GridViewRow se=new GridViewRow(0,1,DataControlRowType.Header,
 
for(int i = 0; i <= (e.Row.Cells.Count - 1); i++)
{
for (int z = 0; z <= (e.Row.Cells.Count - 1); z++)
{
if (i == z)
{
litHeader = new Literal();
txtSearch = new TextBox();
txtSearch.ID = "txtname" + z;
txtSearch.Width = 35;
litHeader.Text = e.Row.Cells&#91;z].Text + "<br />";
e.Row.Cells&#91;z].Controls.Add(litHeader);
e.Row.Cells&#91;z].Controls.Add(txtSearch);
 
}
}
}
 
} 
}
protected override void OnDataBound(EventArgs e)
{
base.OnDataBound(e);
 
this.CreateSecondHeader();
 
}
private SqlConnection connection
{
get
{
return (SqlConnection)this.ViewState&#91;"connection"];
 
}
set
{
this.ViewState&#91;"connection"] = value;
}
 
}
private void btnclick(DataTable dt,SqlConnection connection)
{
string s = "select * from " + dt + "where" + this.Columns&#91;0].HeaderText + "like" + "'" + txtSearch.Text + "'";
da = new SqlDataAdapter(s, connection);
scb = new SqlCommandBuilder(da);
ds = new DataSet();
da.Fill(ds);
ds.Tables.Add(dt);
this.DataSource = dt;
this.DataBind();
 
}
 
 
 
private void CreateSecondHeader()
{
GridViewRow row = new GridViewRow(0,1, DataControlRowType.DataRow, DataControlRowState.Normal);
 
Button btn = new Button();
btn.Width = Unit.Pixel(60);
btn.Text = "search";
Button btn1 = new Button();
btn1.Width = Unit.Pixel(60);
btn1.Text = "cancel";
 
TableCell th = new TableCell();
th.Controls.Add(btn);
 
th.HorizontalAlign = HorizontalAlign.Center;
th.ColumnSpan = this.Columns.Count;
TableCell th1 = new TableCell();
th1.Controls.Add(btn1);
th.HorizontalAlign = HorizontalAlign.Center;
th.ColumnSpan = this.Columns.Count;
//th.Width =this.Width;
 
row.Cells.Add(th);
row.Cells.Add(th1);
 
this.InnerTable1.Rows.AddAt(0, row);
}
protected Table InnerTable1
{
get
{
if (this.HasControls())
{
return (Table)this.Controls&#91;0];
}
 
return null;
}
}
 
 
 
}
}

the code for a normal aspx code behind:-:-

vbnet Code:

Imports System
Imports System.Data
Imports System.Data.SqlClient
Partial Class Default2
    Inherits System.Web.UI.Page
    Dim con As New SqlConnection
    Dim s As String
    Dim ds As New DataSet
    Dim da As New SqlDataAdapter
    Dim scb As New SqlCommandBuilder
    Dim dt As New DataTable
    Public WithEvents txtSearch As DropDownList
    Public WithEvents txtSearch1 As TextBox
    Public WithEvents txtSearch2 As TextBox
    Public WithEvents txtSearch3 As TextBox
    Public WithEvents txtSearch4 As TextBox
    Public WithEvents txtSearch5 As TextBox
    Public WithEvents txtSearch6 As TextBox
    Public f As String
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        con = New SqlConnection("server=DCPLDC;user id=sa;password=crorepathy;database=Testing")
        con.Open()
        s = "SELECT Id,Label,Textbox FROM textboxtable"
        da = New SqlDataAdapter(s, con)
        ds = New DataSet
        scb = New SqlCommandBuilder(da)
        da.Fill(ds)
        ds.Tables.Add(dt)
        dt = New DataTable("textboxtable")
        BulkEditGridView1_2.DataSource = ds.Tables(0)
        BulkEditGridView1_2.DataBind()
        con.Close()
    End Sub
    Sub binddata()
        s = "SELECT Id,Label,Textbox FROM textboxtable"
        da = New SqlDataAdapter(s, con)
        ds = New DataSet
        scb = New SqlCommandBuilder(da)
        da.Fill(ds)
        ds.Tables.Add(dt)
        dt = New DataTable("textboxtable")
        BulkEditGridView1_1.DataSource = ds.Tables(0)
        BulkEditGridView1_1.DataBind()
    End Sub
    Protected Sub BulkEditGridView1_1_RowCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles BulkEditGridView1_1.RowCreated
        If e.Row.RowType = DataControlRowType.Header Then
            Dim litHeader As Literal
            Dim litHeader1 As Literal
            Dim txtSearch As TextBox
            ' loop through each cell
            For i As Integer = 0 To (e.Row.Cells.Count - 1)
                If i = 1 Then
                    litHeader = New Literal
                    txtSearch = New TextBox
                    'GridView1.FindControl(txtSearch), = New TextBox
                    ' Dim txt1 As TextBox = CType(GridView1.FindControl("textsearch"), TextBox)
                    With txtSearch
                        '.Text = "fdfdsfd"
                        '.MaxLength = 10
                        .Width = 35
                        '.Text = "rere"
                        .ID = "txtname1"
                    End With
                    ' get the current header text
                    litHeader.Text = e.Row.Cells(1).Text & "<br />"
                    ' add the header text plus a new textbox
                    e.Row.Cells(1).Controls.Add(litHeader)
                    e.Row.Cells(1).Controls.Add(txtSearch)
                End If
                If i = 2 Then
                    litHeader1 = New Literal
                    txtSearch1 = New TextBox
                    With txtSearch1
                        '.Text = "fdfdsfd"
                        .Width = 75
                        .ID = "txtname2"
                    End With
                    ' get the current header text
                    litHeader1.Text = e.Row.Cells(2).Text & "<br />"
                    ' add the header text plus a new textbox
                    e.Row.Cells(2).Controls.Add(litHeader1)
                    e.Row.Cells(2).Controls.Add(txtSearch1)
                End If
                If i = 3 Then
                    litHeader = New Literal
                    txtSearch2 = New TextBox
                    With txtSearch2
                        '.Text = "fdfdsfd"
                        .Width = 75
                        .ID = "txtname3"
                    End With
                    litHeader.Text = e.Row.Cells(3).Text & "<br />"
                    e.Row.Cells(3).Controls.Add(litHeader)
                    e.Row.Cells(3).Controls.Add(txtSearch2)
                End If
                If i = 4 Then
                    litHeader = New Literal
                    txtSearch3 = New TextBox
                    With txtSearch3
                        '.Text = "fdfdsfd"
                        .Width = 75
                        .ID = "txtname4"
                    End With
                    ' get the current header text
                    litHeader.Text = e.Row.Cells(4).Text & "<br />"
                    ' add the header text plus a new textbox
                    e.Row.Cells(4).Controls.Add(litHeader)
                    e.Row.Cells(4).Controls.Add(txtSearch3)
                End If
                If i = 5 Then
                    litHeader = New Literal
                    txtSearch4 = New TextBox
                    With txtSearch4
                        '.Text = "fdfdsfd"
                        .Width = 75
                        .ID = "txtname5"
                    End With
                    ' get the current header text
                    litHeader.Text = e.Row.Cells(5).Text & "<br />"
                    ' add the header text plus a new textbox
                    e.Row.Cells(5).Controls.Add(litHeader)
                    e.Row.Cells(5).Controls.Add(txtSearch4)
                End If
                If i = 6 Then
                    litHeader = New Literal
                    txtSearch5 = New TextBox
                    With txtSearch5
                        '.Text = "fdfdsfd"
                        .Width = 75
                        .ID = "txtname6"
                    End With
                    ' get the current header text
                    litHeader.Text = e.Row.Cells(6).Text & "<br />"
                    ' add the header text plus a new textbox
                    e.Row.Cells(6).Controls.Add(litHeader)
                    e.Row.Cells(6).Controls.Add(txtSearch5)
                End If
                If i = 7 Then
                    litHeader = New Literal
                    txtSearch6 = New TextBox
                    With txtSearch6
                        '.Text = "fdfdsfd"
                        .Width = 75
                        .ID = "txtname7"
                    End With
                    ' get the current header text
                    litHeader.Text = e.Row.Cells(7).Text & "<br />"
                    ' add the header text plus a new textbox
                    e.Row.Cells(7).Controls.Add(litHeader)
                    e.Row.Cells(7).Controls.Add(txtSearch6)
                End If
            Next
        End If
        'End If
    End Sub
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim txt1 As System.Web.UI.WebControls.TextBox = CType(BulkEditGridView1_1.HeaderRow.FindControl("txtname1"), System.Web.UI.WebControls.TextBox)
        Dim z As String = txt1.Text
        Dim txt2 As System.Web.UI.WebControls.TextBox = CType(BulkEditGridView1_1.HeaderRow.FindControl("txtname2"), System.Web.UI.WebControls.TextBox)
        Dim v As String = txt2.Text
        Dim txt3 As System.Web.UI.WebControls.TextBox = CType(BulkEditGridView1_1.HeaderRow.FindControl("txtname3"), System.Web.UI.WebControls.TextBox)
        Dim vw As String = txt3.Text
        s = "SELECT Id,Label,Textbox FROM textboxtable where Id like '" & txt1.Text.Trim() & "%' and label like '" & txt2.Text.Trim() & "%' and Textbox like '" & txt3.Text.Trim() & "%'"
        'and TaxName like '" & wt2.Text & "%' and MS01User like '" & wt3.Text & "%' and LUDatetime like '" & wt5.text & "%' and SystemGenerated like '" & wt6.Text & "%' and MS04Status like '" & wt7.Text & "%'"
        con.Open()
        da = New SqlDataAdapter(s, con)
        scb = New SqlCommandBuilder(da)
        ds = New DataSet
        da.Fill(ds)
        BulkEditGridView1_1.DataSource = ds.Tables(0).DefaultView
        BulkEditGridView1_1.DataBind()
        con.Close()
    End Sub
    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        con.Open()
        s = "SELECT Id,Label,Textbox FROM textboxtable"
        da = New SqlDataAdapter(s, con)
        scb = New SqlCommandBuilder(da)
        ds = New DataSet
        da.Fill(ds)
        BulkEditGridView1_1.DataSource = ds.Tables(0).DefaultView
        BulkEditGridView1_1.DataBind()
    End Sub
End Class

i would really appreciate any help on this from ur side....
painthu

digioz · #2 (**permalink**) 05-20-08, 12:38 PM

Quote:

but u see the problem is that in the case of a custom control, the grid view can be populated using any table from sql server...

You could check the dataset to see what table is populating the grid and write a custom query for each table based on that.

Quote:

but it's the search function that i am uanble to incorporate....any ideas....?

Here is an idea. Instead of using queries to search SQL tables, why don't you write a routine to loop through all cells in the search column and inspect the actual text inside the grid for keywords? That way no matter what table is used, you can find matches for your search and clear/repopulate the grid with the matching rows.

Pete

painthu · #3 (**permalink**) 05-20-08, 11:49 PM

Sir,
thank u for the tip...
so u suggest that instead of writing a query that hits the database every time, we need to search from the present grid view itself...k...
but i have no clue how to do that...i mean how to search using a dataset alone...i m trying sir..and in case u find some code or example that could help me create such a routine plz do inform me

i really appreciate your help
painthu

painthu · #4 (**permalink**) 05-21-08, 09:53 AM

sir,
so ur suggestion is to search in the grid itself and not in the database..

that is what i am planning to do.. what i am doing now is that.
i am creating a datatable which will temporarily store the searched result set from the grid view and will be used to populate the grid view
on the click of search button
i pass the original dataset dataset as a parameter to the search function ...inside the search function, i am going to create a datatable that will have exactly the same number of datacolumns as the original table..

i tried with the custom control...no go..
so i decided that i would try with a normal class ,
thenn created an aspx page from which i would call the class's function...including the search function...

i am dissecting the code now

first for generating the textboxes at run time

asp Code:

]Sub BulkEditGridView1_1_RowCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs)
 
        If e.Row.RowType = DataControlRowType.Header Then
 
            For i As Integer = 0 To (e.Row.Cells.Count - 1)
                For z As Integer = 1 To (e.Row.Cells.Count - 1)
                    If i = z Then
                        txtSearch = New TextBox
                        txtSearch.ID = "txtname" & z
                        txtSearch.Width = 35
                        e.Row.Cells(z).Controls.Add(txtSearch)
 
                    End If
                Next
            Next
 
        End If
 
        'End If
    End Sub

created a grid view and 2 buttons on the aspx page...

the search function..

asp Code:

Public Function search(ByVal ds As DataSet, ByVal BulkEditGridView1_1 As GridView) As DataSet
        Dim s As String = CType(BulkEditGridView1_1.HeaderRow.FindControl("txtname1"), System.Web.UI.WebControls.TextBox).Text
 
        'dim s as  = CType(BulkEditGridView1_1.HeaderRow.Controls(0), TextBox).Text
        Dim r As String = CType(BulkEditGridView1_1.HeaderRow.FindControl("txtname2"), System.Web.UI.WebControls.TextBox).Text
        Dim n As String = CType(BulkEditGridView1_1.HeaderRow.FindControl("txtname3"), System.Web.UI.WebControls.TextBox).Text
        Dim str_s, str_r, str_n As String
        Dim dt As DataTable
        Dim dr As DataRow
        Dim dc As DataColumn
        'dc=new DataColumn("
        '  dr = New DataRow()
        '==============
        Dim Table1 As DataTable
        Table1 = New DataTable()
       
        '  Dim Row1, Row2, Row3 As DataRow
                        
        For i As Integer = 0 To ds.Tables(0).Columns.Count - 1
            'Dim str As String = ds.Tables(0).Columns(i).ColumnName
            Dim col As DataColumn
            col = New DataColumn
            col.ColumnName = ds.Tables(0).Columns(i).ColumnName
            col.DataType = GetType(System.String)
            Table1.Columns.Add(col)
            'Table1.Columns(i).ColumnName = ds.Tables(0).Columns(i).ColumnName
        Next
              '============
        Dim dr1 As DataRow
        For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
            str_s = ds.Tables(0).Rows(i).Item(0).ToString
            str_r = ds.Tables(0).Rows(i).Item(1).ToString
            str_n = ds.Tables(0).Rows(i).Item(2).ToString
            dr1 = Table1.NewRow()
            If str_s.StartsWith(s) Then
                'dr1 = New TableRow
                dr1.Item(0) = ds.Tables(0).Rows(i).Item(0).ToString
                dr1.Item(1) = ds.Tables(0).Rows(i).Item(1).ToString
                dr1.Item(2) = ds.Tables(0).Rows(i).Item(2).ToString
                '    Table1.Rows.Add(ds.Tables(0).Rows(i))
                Table1.Rows.Add(dr1)
            End If
            'If str_r.StartsWith(r) Then
            'dt.Rows.Add(ds.Tables(0).Rows(i))
            'End If
        Next
        Dim ds1 As New DataSet
        ds.Tables.Add(Table1)
        Return ds1
      
      
    End Function

...inside the search function, i am going to create a datatable that will have exactly the same number of datacolumns as the original table..

asp Code:

For i As Integer = 0 To ds.Tables(0).Columns.Count - 1
            'Dim str As String = ds.Tables(0).Columns(i).ColumnName
            Dim col As DataColumn
            col = New DataColumn
            col.ColumnName = ds.Tables(0).Columns(i).ColumnName
            col.DataType = GetType(System.String)
            Table1.Columns.Add(col)
            'Table1.Columns(i).ColumnName = ds.Tables(0).Columns(i).ColumnName
 
        Next        'Dim str As String = ds.Tables(0).Columns(0).ColumnName

ds is the original dataset connected directly to the database and is being passed from the aspx code behind-page

asp Code:

Imports System
Imports System.Data
 
Imports System.Data.SqlClient
Partial Class Default3
    Inherits System.Web.UI.Page
    Dim con As New SqlConnection
    Dim s As String
    Dim ds As New DataSet
    Dim da As New SqlDataAdapter
    Dim scb As New SqlCommandBuilder
 
    Dim obj As New Class1
 
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        con = New SqlConnection("server=DCPLDC;user id=sa;password=crorepathy;database=Test")
        ' con = New SqlConnection("server=DCPLDC;user id=sa;password=crorepathy;database=Testing")
        s = "select * from Table_1"
        da = New SqlDataAdapter(s, con)
        ds = New DataSet
        scb = New SqlCommandBuilder(da)
        da.Fill(ds)
        'WebCustomControl3_2.DataSource = ds
        'WebCustomControl3_2.DataBind()
        BulkEditGridView1_1.DataSource = ds
        BulkEditGridView1_1.DataBind()
    End Sub
    
    Protected Sub BulkEditGridView1_1_RowCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles BulkEditGridView1_1.RowCreated
        obj.BulkEditGridView1_1_RowCreated(sender, e)
    End Sub
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        obj.search(ds, BulkEditGridView1_1)
        ' obj.binddata(x, BulkEditGridView1_1, con)
        
    End Sub
 
    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        '  obj.binddata("SELECT Id,Label,Textbox  FROM textboxtable", BulkEditGridView1_1, con)
        con = New SqlConnection("server=DCPLDC;user id=sa;password=crorepathy;database=Test")
        ' con = New SqlConnection("server=DCPLDC;user id=sa;password=crorepathy;database=Testing")
        s = "select * from Table_1"
        da = New SqlDataAdapter(s, con)
        ds = New DataSet
        scb = New SqlCommandBuilder(da)
        da.Fill(ds)
        'WebCustomControl3_2.DataSource = ds
        'WebCustomControl3_2.DataBind()
        BulkEditGridView1_1.DataSource = ds
        BulkEditGridView1_1.DataBind()
    End Sub
End Class

i am testing the code in an ordinary class ... i am planning to add it later to the custom control when the code works...

the following is the code i use for the searching

asp Code:

Dim dr1 As DataRow
        For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
            str_s = ds.Tables(0).Rows(i).Item(0).ToString
            str_r = ds.Tables(0).Rows(i).Item(1).ToString
            str_n = ds.Tables(0).Rows(i).Item(2).ToString
 
            dr1 = Table1.NewRow()
            If str_s.StartsWith(s) Then
 
 
                'dr1 = New TableRow
                dr1.Item(0) = ds.Tables(0).Rows(i).Item(0).ToString
                dr1.Item(1) = ds.Tables(0).Rows(i).Item(1).ToString
                dr1.Item(2) = ds.Tables(0).Rows(i).Item(2).ToString
                '    Table1.Rows.Add(ds.Tables(0).Rows(i))
                Table1.Rows.Add(dr1)
 
            End If
            'If str_r.StartsWith(r) Then
            'dt.Rows.Add(ds.Tables(0).Rows(i))
 
 
            'End If
        Next

the search function:-

asp Code:

Public Function search(ByVal ds As DataSet, ByVal BulkEditGridView1_1 As GridView) As DataSet
        Dim s As String = CType(BulkEditGridView1_1.HeaderRow.FindControl("txtname1"), System.Web.UI.WebControls.TextBox).Text
 
        'dim s as  = CType(BulkEditGridView1_1.HeaderRow.Controls(0), TextBox).Text
        Dim r As String = CType(BulkEditGridView1_1.HeaderRow.FindControl("txtname2"), System.Web.UI.WebControls.TextBox).Text
        Dim n As String = CType(BulkEditGridView1_1.HeaderRow.FindControl("txtname3"), System.Web.UI.WebControls.TextBox).Text
        Dim str_s, str_r, str_n As String
        Dim dt As DataTable
        Dim dr As DataRow
        Dim dc As DataColumn
        'dc=new DataColumn("
        '  dr = New DataRow()
        '==============
        Dim Table1 As DataTable
        Table1 = New DataTable()
        'creating a table named Customers
        '  Dim Row1, Row2, Row3 As DataRow
        'declaring three rows for the table
        'Try
        Dim Name As DataColumn = New DataColumn("name")
        '    'declaring a column named Name
        '    Name.DataType = System.Type.GetType("System.String")
        '    'setting the datatype for the column
        '    Table1.Columns.Add(Name)
        '    'adding the column to table
        '    Dim Product As DataColumn = New DataColumn("Product")
        '    Product.DataType = System.Type.GetType("System.String")
        '    Table1.Columns.Add(Product)
        '    Dim Location As DataColumn = New DataColumn("Location")
        '    Location.DataType = System.Type.GetType("System.String")
        '    Table1.Columns.Add(Location)
        'Row1 = Table1.NewRow()
        ''declaring a new row
        'Row1.Item("Name") = "Reddy"
        ''filling the row with values. Item property is used to set the field value.
        'Row1.Item("Product") = "Notebook"
        ''filling the row with values. adding a product
        'Row1.Item("Location") = "Sydney"
        ''filling the row with values. adding a location
        'Table1.Rows.Add(Row1)
        '    'adding the completed row to the table
        '    Row2 = Table1.NewRow()
        '    Row2.Item("Name") = "Bella"
        '    Row2.Item("Product") = "Desktop"
        '    Row2.Item("Location") = "Adelaide"
        '    Table1.Rows.Add(Row2)
        '    Row3 = Table1.NewRow()
        '    Row3.Item("Name") = "Adam"
        '    Row3.Item("Product") = "PDA"
        '    Row3.Item("Location") = "Brisbane"
        '    Table1.Rows.Add(Row3)
        'Catch
        'End Try
        'Dim ds As New DataSet()
        'ds = New DataSet()
        ''creating a dataset
        'ds.Tables.Add(Table1)
        'gv.DataSource = ds
        'gv.DataBind()
     
 For i As Integer = 0 To ds.Tables(0).Columns.Count - 1
            'Dim str As String = ds.Tables(0).Columns(i).ColumnName
            Dim col As DataColumn
            col = New DataColumn
            col.ColumnName = ds.Tables(0).Columns(i).ColumnName
            col.DataType = GetType(System.String)
            Table1.Columns.Add(col)
            'Table1.Columns(i).ColumnName = ds.Tables(0).Columns(i).ColumnName
        Next
        'Dim str As String = ds.Tables(0).Columns(0).ColumnName
        '============
        Dim dr1 As DataRow
        For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
            str_s = ds.Tables(0).Rows(i).Item(0).ToString
            str_r = ds.Tables(0).Rows(i).Item(1).ToString
            str_n = ds.Tables(0).Rows(i).Item(2).ToString
            dr1 = Table1.NewRow()
            If str_s.StartsWith(s) Then
                'dr1 = New TableRow
                dr1.Item(0) = ds.Tables(0).Rows(i).Item(0).ToString
                dr1.Item(1) = ds.Tables(0).Rows(i).Item(1).ToString
                dr1.Item(2) = ds.Tables(0).Rows(i).Item(2).ToString
                '    Table1.Rows.Add(ds.Tables(0).Rows(i))
                Table1.Rows.Add(dr1)
            End If
            'If str_r.StartsWith(r) Then
            'dt.Rows.Add(ds.Tables(0).Rows(i))
            'End If
        Next
        Dim ds1 As New DataSet
        ds.Tables.Add(Table1)
        Return ds1
    End Function

so an ordinary class code

asp Code:

Imports Microsoft.VisualBasic
 
Imports System
Imports System.Data
 
Imports System.Data.SqlClient
Public Class Class1
    Inherits System.Web.UI.Page
    Dim con As New SqlConnection
    Dim s As String
    Dim ds As New DataSet
    Dim da As New SqlDataAdapter
    Dim scb As New SqlCommandBuilder
    Public grid As GridView
    Public litHeader As Literal
    Public WithEvents txtSearch As TextBox
    ' Public WithEvents txtSearch As DropDownList
    'Public WithEvents txtSearch1 As TextBox
    'Public WithEvents txtSearch2 As TextBox
    'Public WithEvents txtSearch3 As TextBox
    'Public WithEvents txtSearch4 As TextBox
    'Public WithEvents txtSearch5 As TextBox
    'Public WithEvents txtSearch6 As TextBox
    Public f As String
    Sub BulkEditGridView1_1_RowCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs)
        If e.Row.RowType = DataControlRowType.Header Then
            For i As Integer = 0 To (e.Row.Cells.Count - 1)
                For z As Integer = 1 To (e.Row.Cells.Count - 1)
                    If i = z Then
                        txtSearch = New TextBox
                        txtSearch.ID = "txtname" & z
                        txtSearch.Width = 35
                        e.Row.Cells(z).Controls.Add(txtSearch)
                    End If
                Next
            Next
        End If
        'End If
    End Sub
    Public Function search(ByVal ds As DataSet, ByVal BulkEditGridView1_1 As GridView) As DataSet
        Dim s As String = CType(BulkEditGridView1_1.HeaderRow.FindControl("txtname1"), System.Web.UI.WebControls.TextBox).Text
 
        'dim s as  = CType(BulkEditGridView1_1.HeaderRow.Controls(0), TextBox).Text
        Dim r As String = CType(BulkEditGridView1_1.HeaderRow.FindControl("txtname2"), System.Web.UI.WebControls.TextBox).Text
        Dim n As String = CType(BulkEditGridView1_1.HeaderRow.FindControl("txtname3"), System.Web.UI.WebControls.TextBox).Text
        Dim str_s, str_r, str_n As String
        Dim dt As DataTable
        Dim dr As DataRow
        Dim dc As DataColumn
        'dc=new DataColumn("
        '  dr = New DataRow()
        '==============
        Dim Table1 As DataTable
        Table1 = New DataTable()
        'creating a table named Customers
        '  Dim Row1, Row2, Row3 As DataRow
        'declaring three rows for the table
        'Try
        Dim Name As DataColumn = New DataColumn("name")
        '    'declaring a column named Name
        '    Name.DataType = System.Type.GetType("System.String")
        '    'setting the datatype for the column
        '    Table1.Columns.Add(Name)
        '    'adding the column to table
        '    Dim Product As DataColumn = New DataColumn("Product")
        '    Product.DataType = System.Type.GetType("System.String")
        '    Table1.Columns.Add(Product)
        '    Dim Location As DataColumn = New DataColumn("Location")
        '    Location.DataType = System.Type.GetType("System.String")
        '    Table1.Columns.Add(Location)
        'Row1 = Table1.NewRow()
        ''declaring a new row
        'Row1.Item("Name") = "Reddy"
        ''filling the row with values. Item property is used to set the field value.
        'Row1.Item("Product") = "Notebook"
        ''filling the row with values. adding a product
        'Row1.Item("Location") = "Sydney"
        ''filling the row with values. adding a location
        'Table1.Rows.Add(Row1)
        '    'adding the completed row to the table
        '    Row2 = Table1.NewRow()
        '    Row2.Item("Name") = "Bella"
        '    Row2.Item("Product") = "Desktop"
        '    Row2.Item("Location") = "Adelaide"
        '    Table1.Rows.Add(Row2)
        '    Row3 = Table1.NewRow()
        '    Row3.Item("Name") = "Adam"
        '    Row3.Item("Product") = "PDA"
        '    Row3.Item("Location") = "Brisbane"
        '    Table1.Rows.Add(Row3)
        'Catch
        'End Try
        'Dim ds As New DataSet()
        'ds = New DataSet()
        ''creating a dataset
        'ds.Tables.Add(Table1)
        'gv.DataSource = ds
        'gv.DataBind()
        For i As Integer = 0 To ds.Tables(0).Columns.Count - 1
            'Dim str As String = ds.Tables(0).Columns(i).ColumnName
            Dim col As DataColumn
            col = New DataColumn
            col.ColumnName = ds.Tables(0).Columns(i).ColumnName
            col.DataType = GetType(System.String)
            Table1.Columns.Add(col)
            'Table1.Columns(i).ColumnName = ds.Tables(0).Columns(i).ColumnName
        Next
        'Dim str As String = ds.Tables(0).Columns(0).ColumnName
        '============
        Dim dr1 As DataRow
        For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
            str_s = ds.Tables(0).Rows(i).Item(0).ToString
            str_r = ds.Tables(0).Rows(i).Item(1).ToString
            str_n = ds.Tables(0).Rows(i).Item(2).ToString
            dr1 = Table1.NewRow()
            If str_s.StartsWith(s) Then
                'dr1 = New TableRow
                dr1.Item(0) = ds.Tables(0).Rows(i).Item(0).ToString
                dr1.Item(1) = ds.Tables(0).Rows(i).Item(1).ToString
                dr1.Item(2) = ds.Tables(0).Rows(i).Item(2).ToString
                '    Table1.Rows.Add(ds.Tables(0).Rows(i))
                Table1.Rows.Add(dr1)
            End If
            'If str_r.StartsWith(r) Then
            'dt.Rows.Add(ds.Tables(0).Rows(i))
            'End If
        Next
        Dim ds1 As New DataSet
        ds.Tables.Add(Table1)
        Return ds1
        '  binddata(dt, BulkEditGridView1_1)
        '  s = "SELECT Id,Label,Textbox  FROM textboxtable where Id like '" & s & "%' and label like '" & r & "%' and Textbox like '" & n & "%'"
        'Return s
    End Function
    Public Sub binddata(ByVal dt As DataSet, ByVal grid As GridView)
        'da = New SqlDataAdapter(s, con)
        'scb = New SqlCommandBuilder(da)
        'ds = New DataSet
        'da.Fill(ds)
        dt = Me.search(ds, grid)
        grid.DataSource = dt
        grid.DataBind()
    End Sub
End Class
Imports Microsoft.VisualBasic
Imports System
Imports System.Data
Imports System.Data.SqlClient
Public Class Class1
    Inherits System.Web.UI.Page
    Dim con As New SqlConnection
    Dim s As String
    Dim ds As New DataSet
    Dim da As New SqlDataAdapter
    Dim scb As New SqlCommandBuilder
    Public grid As GridView
    Public litHeader As Literal
    Public WithEvents txtSearch As TextBox
    ' Public WithEvents txtSearch As DropDownList
    'Public WithEvents txtSearch1 As TextBox
    'Public WithEvents txtSearch2 As TextBox
    'Public WithEvents txtSearch3 As TextBox
    'Public WithEvents txtSearch4 As TextBox
    'Public WithEvents txtSearch5 As TextBox
    'Public WithEvents txtSearch6 As TextBox
    Public f As String
    Sub BulkEditGridView1_1_RowCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs)
        If e.Row.RowType = DataControlRowType.Header Then
            For i As Integer = 0 To (e.Row.Cells.Count - 1)
                For z As Integer = 1 To (e.Row.Cells.Count - 1)
                    If i = z Then
                        txtSearch = New TextBox
                        txtSearch.ID = "txtname" & z
                        txtSearch.Width = 35
                        e.Row.Cells(z).Controls.Add(txtSearch)
                    End If
                Next
            Next
        End If
        'End If
    End Sub
    Public Function search(ByVal ds As DataSet, ByVal BulkEditGridView1_1 As GridView) As DataSet
        Dim s As String = CType(BulkEditGridView1_1.HeaderRow.FindControl("txtname1"), System.Web.UI.WebControls.TextBox).Text
        'dim s as  = CType(BulkEditGridView1_1.HeaderRow.Controls(0), TextBox).Text
        Dim r As String = CType(BulkEditGridView1_1.HeaderRow.FindControl("txtname2"), System.Web.UI.WebControls.TextBox).Text
        Dim n As String = CType(BulkEditGridView1_1.HeaderRow.FindControl("txtname3"), System.Web.UI.WebControls.TextBox).Text
        Dim str_s, str_r, str_n As String
        Dim dt As DataTable
        Dim dr As DataRow
        Dim dc As DataColumn
        'dc=new DataColumn("
        '  dr = New DataRow()
        '==============
        Dim Table1 As DataTable
        Table1 = New DataTable()
        'creating a table named Customers
        '  Dim Row1, Row2, Row3 As DataRow
        'declaring three rows for the table
        'Try
        Dim Name As DataColumn = New DataColumn("name")
        '    'declaring a column named Name
        '    Name.DataType = System.Type.GetType("System.String")
        '    'setting the datatype for the column
        '    Table1.Columns.Add(Name)
        '    'adding the column to table
        '    Dim Product As DataColumn = New DataColumn("Product")
        '    Product.DataType = System.Type.GetType("System.String")
        '    Table1.Columns.Add(Product)
        '    Dim Location As DataColumn = New DataColumn("Location")
        '    Location.DataType = System.Type.GetType("System.String")
        '    Table1.Columns.Add(Location)
 
        'Row1 = Table1.NewRow()
        ''declaring a new row
        'Row1.Item("Name") = "Reddy"
        ''filling the row with values. Item property is used to set the field value.
        'Row1.Item("Product") = "Notebook"
        ''filling the row with values. adding a product
        'Row1.Item("Location") = "Sydney"
        ''filling the row with values. adding a location
        'Table1.Rows.Add(Row1)
        '    'adding the completed row to the table
        '    Row2 = Table1.NewRow()
        '    Row2.Item("Name") = "Bella"
        '    Row2.Item("Product") = "Desktop"
        '    Row2.Item("Location") = "Adelaide"
        '    Table1.Rows.Add(Row2)
        '    Row3 = Table1.NewRow()
        '    Row3.Item("Name") = "Adam"
        '    Row3.Item("Product") = "PDA"
        '    Row3.Item("Location") = "Brisbane"
        '    Table1.Rows.Add(Row3)
        'Catch
        'End Try
        'Dim ds As New DataSet()
        'ds = New DataSet()
        ''creating a dataset
        'ds.Tables.Add(Table1)
 
        'gv.DataSource = ds
        'gv.DataBind()
 
 
 
        For i As Integer = 0 To ds.Tables(0).Columns.Count - 1
            'Dim str As String = ds.Tables(0).Columns(i).ColumnName
            Dim col As DataColumn
            col = New DataColumn
            col.ColumnName = ds.Tables(0).Columns(i).ColumnName
            col.DataType = GetType(System.String)
            Table1.Columns.Add(col)
            'Table1.Columns(i).ColumnName = ds.Tables(0).Columns(i).ColumnName
 
        Next
 
        'Dim str As String = ds.Tables(0).Columns(0).ColumnName
        '============
        Dim dr1 As DataRow
        For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
            str_s = ds.Tables(0).Rows(i).Item(0).ToString
            str_r = ds.Tables(0).Rows(i).Item(1).ToString
            str_n = ds.Tables(0).Rows(i).Item(2).ToString
 
            dr1 = Table1.NewRow()
            If str_s.StartsWith(s) Then
 
 
                'dr1 = New TableRow
                dr1.Item(0) = ds.Tables(0).Rows(i).Item(0).ToString
                dr1.Item(1) = ds.Tables(0).Rows(i).Item(1).ToString
                dr1.Item(2) = ds.Tables(0).Rows(i).Item(2).ToString
                '    Table1.Rows.Add(ds.Tables(0).Rows(i))
                Table1.Rows.Add(dr1)
 
            End If
            'If str_r.StartsWith(r) Then
            'dt.Rows.Add(ds.Tables(0).Rows(i))
 
 
            'End If
        Next
        Dim ds1 As New DataSet
        ds.Tables.Add(Table1)
        Return ds1
        '  binddata(dt, BulkEditGridView1_1)
 
        '  s = "SELECT Id,Label,Textbox  FROM textboxtable where Id like '" & s & "%' and label like '" & r & "%' and Textbox like '" & n & "%'"
        'Return s
 
    End Function
    Public Sub binddata(ByVal dt As DataSet, ByVal grid As GridView)
        'da = New SqlDataAdapter(s, con)
        'scb = New SqlCommandBuilder(da)
        'ds = New DataSet
        'da.Fill(ds)
        dt = Me.search(ds, grid)
        grid.DataSource = dt
        grid.DataBind()
    End Sub
 
End Class
 
 
the code is not working the ...when i click the search absolutely nothing happens... course it shows error on the line where i am adding the dr1 to the table1

sir,
any suggestion from ur side is welcome....

painthu

Nico · #5 (**permalink**) 05-21-08, 10:14 AM

painthu, please use [highlight=vbnet] [/highlight] wrappers when posting ASP code. That makes it a lot easier to read.

http://www.programmingtalk.com/annou...php?f=144&a=14

Thanks.

digioz · #6 (**permalink**) 05-21-08, 11:11 AM

Hey painthu,

Excellent! You just saved me half an hour of typing and coding by answering your own question! Yes, that is exactly what I had in mind. I didn't try your code out yet, but you do understand the concept correctly now.

Pete