可以指定查询字段的查询

 

Public Class WebForm1
    Inherits System.Web.UI.Page
    Protected WithEvents OleDbDataAdapter1 As System.Data.OleDb.OleDbDataAdapter
    Protected WithEvents OleDbConnection1 As System.Data.OleDb.OleDbConnection
    Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
    Protected WithEvents DropDownList1 As System.Web.UI.WebControls.DropDownList
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents masterDataGrid As System.Web.UI.WebControls.DataGrid
    Protected WithEvents btnFirst As System.Web.UI.WebControls.LinkButton
    Protected WithEvents btnPrev As System.Web.UI.WebControls.LinkButton
    Protected WithEvents btnNext As System.Web.UI.WebControls.LinkButton
    Protected WithEvents btnLast As System.Web.UI.WebControls.LinkButton
    Protected WithEvents lblPageCount As System.Web.UI.WebControls.Label
    Protected WithEvents lblCurrentIndex As System.Web.UI.WebControls.Label
    Protected WithEvents Button2 As System.Web.UI.WebControls.Button
    Protected WithEvents OleDbSelectCommand1 As System.Data.OleDb.OleDbCommand
    Protected WithEvents OleDbInsertCommand1 As System.Data.OleDb.OleDbCommand
    Protected WithEvents objEtgl_光盘管理1 As etgl.Dataset1
    Protected WithEvents objEtgl_光盘管理11 As etgl.etgl_光盘管理
    Protected WithEvents Label2 As System.Web.UI.WebControls.Label

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.OleDbDataAdapter1 = New System.Data.OleDb.OleDbDataAdapter()
        Me.OleDbInsertCommand1 = New System.Data.OleDb.OleDbCommand()
        Me.OleDbConnection1 = New System.Data.OleDb.OleDbConnection()
        Me.OleDbSelectCommand1 = New System.Data.OleDb.OleDbCommand()
        Me.objEtgl_光盘管理1 = New etgl.Dataset1()
        Me.objEtgl_光盘管理11 = New etgl.etgl_光盘管理()
        CType(Me.objEtgl_光盘管理1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.objEtgl_光盘管理11, System.ComponentModel.ISupportInitialize).BeginInit()
        '
        'OleDbDataAdapter1
        '
        Me.OleDbDataAdapter1.InsertCommand = Me.OleDbInsertCommand1
        Me.OleDbDataAdapter1.SelectCommand = Me.OleDbSelectCommand1
        Me.OleDbDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Sheet1", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("ID", "ID"), New System.Data.Common.DataColumnMapping("档号", "档号"), New System.Data.Common.DataColumnMapping("顺序", "顺序"), New System.Data.Common.DataColumnMapping("原带号", "原带号"), New System.Data.Common.DataColumnMapping("分类", "分类"), New System.Data.Common.DataColumnMapping("光盘类别", "光盘类别"), New System.Data.Common.DataColumnMapping("内容", "内容"), New System.Data.Common.DataColumnMapping("拍摄时间", "拍摄时间"), New System.Data.Common.DataColumnMapping("归档", "归档"), New System.Data.Common.DataColumnMapping("数量", "数量")})})
        '
        'OleDbInsertCommand1
        '
        Me.OleDbInsertCommand1.CommandText = "INSERT INTO Sheet1(ID, 档号, 顺序, 原带号, 分类, 光盘类别, 内容, 拍摄时间, 归档, 数量) VALUES (?, ?, ?, " & _
        "?, ?, ?, ?, ?, ?, ?); SELECT ID, 档号, 顺序, 原带号, 分类, 光盘类别, 内容, 拍摄时间, 归档, 数量 FROM Sh" & _
        "eet1"
        Me.OleDbInsertCommand1.Connection = Me.OleDbConnection1
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("ID", System.Data.OleDb.OleDbType.Integer, 4, "ID"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("档号", System.Data.OleDb.OleDbType.VarWChar, 255, "档号"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("顺序", System.Data.OleDb.OleDbType.Double, 8, "顺序"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("原带号", System.Data.OleDb.OleDbType.Double, 8, "原带号"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("分类", System.Data.OleDb.OleDbType.VarWChar, 255, "分类"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("光盘类别", System.Data.OleDb.OleDbType.VarWChar, 255, "光盘类别"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("内容", System.Data.OleDb.OleDbType.VarWChar, 255, "内容"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("拍摄时间", System.Data.OleDb.OleDbType.VarWChar, 255, "拍摄时间"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("归档", System.Data.OleDb.OleDbType.VarWChar, 255, "归档"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("数量", System.Data.OleDb.OleDbType.Double, 8, "数量"))
        '
        'OleDbConnection1
        '
        Me.OleDbConnection1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial " & _
        "Catalog=WEBAPP_DJK;Data Source=ZG-DJK3;Use Procedure for Prepare=1;Auto Translat" & _
        "e=True;Packet Size=4096;Workstation ID=ZG-DJK3;Use Encryption for Data=False;Tag" & _
        " with column collation when possible=False"
        '
        'OleDbSelectCommand1
        '
        Me.OleDbSelectCommand1.CommandText = "SELECT ID, 档号, 顺序, 原带号, 分类, 光盘类别, 内容, 拍摄时间, 归档, 数量 FROM Sheet1"
        Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1
        '
        'objEtgl_光盘管理1
        '
        Me.objEtgl_光盘管理1.DataSetName = "Dataset1"
        Me.objEtgl_光盘管理1.Locale = New System.Globalization.CultureInfo("en-US")
        Me.objEtgl_光盘管理1.Namespace = "http://www.tempuri.org/Dataset1.xsd"
        '
        'objEtgl_光盘管理11
        '
        Me.objEtgl_光盘管理11.DataSetName = "etgl_光盘管理"
        Me.objEtgl_光盘管理11.Locale = New System.Globalization.CultureInfo("zh-CN")
        Me.objEtgl_光盘管理11.Namespace = "http://www.tempuri.org/etgl_光盘管理.xsd"
        CType(Me.objEtgl_光盘管理1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.objEtgl_光盘管理11, System.ComponentModel.ISupportInitialize).EndInit()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      

    End Sub

   

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        btnFirst.Text = "最首页"
        btnPrev.Text = "前一页"
        btnNext.Text = "下一页"
        btnLast.Text = "最后页"
        BindGrid()

    End Sub

    Sub BindGrid()
        Dim str_kind, str_query As String

        str_query = TextBox1.Text

        Me.OleDbSelectCommand1.CommandText = "select * from Sheet1 where " & DropDownList1.SelectedItem().Value.ToString & " like '%" & str_query & "%'"

        Try
            Me.LoadDataSet()
            Me.masterDataGrid.DataBind()
            ShowStats()
        Catch eLoad As System.Exception
            Me.Response.Write(eLoad.Message)
        End Try
    End Sub

    Public Sub LoadDataSet()
        Dim objDataSetTemp As etgl.etgl_光盘管理
        objDataSetTemp = New etgl.etgl_光盘管理()
        Try
            Me.FillDataSet(objDataSetTemp)
        Catch eFillDataSet As System.Exception
            Throw eFillDataSet
        End Try
        Try
            objEtgl_光盘管理1.Clear()
            objEtgl_光盘管理1.Merge(objDataSetTemp)
        Catch eLoadMerge As System.Exception
            Throw eLoadMerge
        End Try
    End Sub
    Public Sub FillDataSet(ByVal dataSet As etgl.etgl_光盘管理)
        dataSet.EnforceConstraints = False
        Try
            Me.OleDbConnection1.Open()
            Me.OleDbDataAdapter1.Fill(dataSet)
        Catch fillException As System.Exception
            Throw fillException
        Finally
            dataSet.EnforceConstraints = True
            Me.OleDbConnection1.Close()
        End Try
    End Sub

    Sub MyDataGrid_Page(ByVal sender As Object, ByVal e As DataGridPageChangedEventArgs)
        Dim startIndex As Integer
        startIndex = masterDataGrid.CurrentPageIndex * masterDataGrid.PageSize
        masterDataGrid.CurrentPageIndex = e.NewPageIndex
        BindGrid()
        ShowStats()
    End Sub

    Sub ShowStats()
        lblCurrentIndex.Text = "第 " + (masterDataGrid.CurrentPageIndex + 1).ToString() + " 页"
        lblPageCount.Text = "总共 " + masterDataGrid.PageCount.ToString() + " 页"
    End Sub

    Sub PagerButtonClick(ByVal sender As Object, ByVal e As EventArgs)
        'used by external paging UI
        Dim arg As String = sender.CommandArgument

        Select Case arg
            Case "next"
                If (masterDataGrid.CurrentPageIndex < (masterDataGrid.PageCount - 1)) Then
                    masterDataGrid.CurrentPageIndex += 1
                End If
            Case "prev"
                If (masterDataGrid.CurrentPageIndex > 0) Then
                    masterDataGrid.CurrentPageIndex -= 1
                End If
            Case "last"
                masterDataGrid.CurrentPageIndex = (masterDataGrid.PageCount - 1)
            Case Else
                'page number
                masterDataGrid.CurrentPageIndex = System.Convert.ToInt32(arg)
        End Select
        BindGrid()
        ShowStats()
    End Sub

   
    Private Sub LinkButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Session("Dropdown") = DropDownList1.SelectedItem().Value.ToString
        Session("textbox") = TextBox1.Text
        Response.Redirect("etgl_report1.aspx")

    End Sub
End Class