以下代码为VB.net，可以完成指定数据字段的模糊查询功能。
<%
@ Page Language="vb" AutoEventWireup="false" Codebehind="query.aspx.vb" Inherits="etgl.WebForm1" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>真光电教综合管理系统光盘查询子系统</title>
<meta content="Microsoft Visual Studio .NET 7.0" name="GENERATOR">
<meta content="Visual Basic 7.0" name="CODE_LANGUAGE">
<meta content="JavaScript" name="vs_defaultClientScript">
<meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
</HEAD>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
<FONT face="宋体">
<asp:textbox id="TextBox1" style="Z-INDEX: 101; LEFT: 298px; POSITION: absolute; TOP: 84px" runat="server"></asp:textbox><asp:label id="lblCurrentIndex" style="Z-INDEX: 112; LEFT: 460px; POSITION: absolute; TOP: 518px" runat="server"></asp:label><asp:label id="lblPageCount" style="Z-INDEX: 111; LEFT: 304px; POSITION: absolute; TOP: 517px" runat="server"></asp:label><asp:linkbutton id="btnLast" style="Z-INDEX: 110; LEFT: 577px; POSITION: absolute; TOP: 573px" onclick="PagerButtonClick" runat="server" ForeColor="navy" Font-size="8pt" CommandArgument="last" Font-Name="verdana"></asp:linkbutton><asp:linkbutton id="btnNext" style="Z-INDEX: 109; LEFT: 492px; POSITION: absolute; TOP: 573px" onclick="PagerButtonClick" runat="server" ForeColor="navy" Font-size="8pt" CommandArgument="next" Font-Name="verdana"></asp:linkbutton><asp:linkbutton id="btnPrev" style="Z-INDEX: 108; LEFT: 382px; POSITION: absolute; TOP: 573px" onclick="PagerButtonClick" runat="server" ForeColor="navy" Font-size="8pt" CommandArgument="prev" Font-Name="verdana"></asp:linkbutton><asp:linkbutton id="btnFirst" style="Z-INDEX: 107; LEFT: 260px; POSITION: absolute; TOP: 572px" onclick="PagerButtonClick" runat="server" ForeColor="navy" Font-size="8pt" CommandArgument="0" Font-Name="verdana"></asp:linkbutton><asp:dropdownlist id="DropDownList1" style="Z-INDEX: 102; LEFT: 126px; POSITION: absolute; TOP: 84px" runat="server">
<asp:ListItem Value="档号">档号</asp:ListItem>
<asp:ListItem Value="原带号">原带号</asp:ListItem>
<asp:ListItem Value="分类">分类</asp:ListItem>
<asp:ListItem Value="内容" Selected="True">内容</asp:ListItem>
<asp:ListItem Value="归档">归档</asp:ListItem>
<asp:ListItem Value="拍摄时间">拍摄时间</asp:ListItem>
</asp:dropdownlist><asp:button id="Button1" style="Z-INDEX: 103; LEFT: 480px; POSITION: absolute; TOP: 82px" runat="server" Text="加载"></asp:button><asp:label id="Label1" style="Z-INDEX: 104; LEFT: 58px; POSITION: absolute; TOP: 85px" runat="server">查询条件</asp:label><asp:label id="Label2" style="Z-INDEX: 105; LEFT: 218px; POSITION: absolute; TOP: 87px" runat="server">查询内容</asp:label><asp:datagrid id=masterDataGrid style="Z-INDEX: 106; LEFT: 11px; POSITION: absolute; TOP: 110px" runat="server" CellPadding="3" BackColor="#DEBA84" BorderWidth="1px" BorderColor="#DEBA84" PagerStyle-Mode="NextPrev" ShowFooter="True" DataSource="<%# objEtgl_光盘管理1 %>" Width="1096px" DataMember="Sheet1" DataKeyField="档号" AllowPaging="True" AutoGenerateColumns="False" PagerStyle-HorizontalAlign="Center" OnPageIndexChanged="MyDataGrid_Page" BorderStyle="None" CellSpacing="2">
<SelectedItemStyle Font-Bold="True" ForeColor="White" BackColor="#738A9C"></SelectedItemStyle>
<ItemStyle ForeColor="#8C4510" BackColor="#FFF7E7"></ItemStyle>
<HeaderStyle Font-Bold="True" ForeColor="White" BackColor="#A55129"></HeaderStyle>
<FooterStyle ForeColor="#8C4510" BackColor="#F7DFB5"></FooterStyle>
<Columns>
<asp:BoundColumn DataField="档号" HeaderText="档号"></asp:BoundColumn>
<asp:BoundColumn DataField="顺序" HeaderText="顺序"></asp:BoundColumn>
<asp:BoundColumn DataField="原带号" HeaderText="原带号"></asp:BoundColumn>
<asp:BoundColumn DataField="分类" HeaderText="分类"></asp:BoundColumn>
<asp:BoundColumn DataField="光盘类别" HeaderText="光盘类别"></asp:BoundColumn>
<asp:BoundColumn DataField="内容" HeaderText="内容"></asp:BoundColumn>
<asp:BoundColumn DataField="拍摄时间" HeaderText="拍摄时间"></asp:BoundColumn>
<asp:BoundColumn DataField="归档" HeaderText="归档"></asp:BoundColumn>
<asp:BoundColumn DataField="数量" HeaderText="数量"></asp:BoundColumn>
</Columns>
<PagerStyle NextPageText="下一页" PrevPageText="上一页" HorizontalAlign="Center" ForeColor="#8C4510" Position="TopAndBottom" Mode="NumericPages"></PagerStyle>
</asp:datagrid>
<asp:Button id="Button2" style="Z-INDEX: 113; LEFT: 537px; POSITION: absolute; TOP: 82px" runat="server" Text="报表"></asp:Button></FONT></form>
</body>
</HTML>
vb.net代码：
Public Class WebForm1Class 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
Web 窗体设计器生成的代码#Region " Web 窗体设计器生成的代码 "
'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()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()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()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click()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()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()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()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()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()Sub ShowStats()
lblCurrentIndex.Text = "第 " + (masterDataGrid.CurrentPageIndex + 1).ToString() + " 页"
lblPageCount.Text = "总共 " + masterDataGrid.PageCount.ToString() + " 页"
End Sub
Sub PagerButtonClick()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()Sub LinkButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button2_Click()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
