使用 vb.net 的 Web 应用程序的高级搜索页面

Posted 2023-02-16

【中文标题】使用 vb.net 的 Web 应用程序的高级搜索页面

【英文标题】：advanced search page for web application using vb.net

【发布时间】：2011-05-22 01:33:50

【问题描述】：

我为 Web 应用程序创建了一个简单的高级搜索页面，我认为与您分享它可能会对初学者有所帮助

以下是使用 VB.Net 的员工数据库的高级搜索页面示例

以下是页面背后的代码

Imports System.Data.OleDb

Partial Class searchme
Inherits System.Web.UI.Page

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim mydb As New OleDbConnection
    mydb = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= |datadirectory|employee.mdb;Persist Security Info=True")
    mydb.Open()

    Dim sqlstring = "select * from [dataview] where "

    If MRNTextBox1.Text <> "" Then sqlstring = sqlstring + "[code] like '%" + CodeNameTextBox1.Text + "%' OR [EmployeeName] like '%" + CodeNameTextBox1.Text + "%' AND "


    If GOVDDL.SelectedItem.Text <> "--Please Select--" Then sqlstring = sqlstring + "[Governorate] ='" + GOVDDL.SelectedItem.Text + "' AND "
    If genderddl.SelectedItem.Text <> "--Please Select--" Then sqlstring = sqlstring + "[Gender] ='" + genderddl.SelectedItem.Text + "' AND "
    If DateEmploymentFrom.Text <> "" And DateEmploymentTo.Text <> "" Then sqlstring = sqlstring + "[DateEmployment] >= #" + DatumKonvert1.DK1(DateEmploymentFrom.Text) + "# AND [Datepresentation] <= #" + DatumKonvert1.DK1(DateEmploymentTo.Text) + "# AND "
    If DepartmentDDL.SelectedItem.Text <> "--Please Select--" Then sqlstring = sqlstring + "[Department] ='" + DepartmentDDL.SelectedItem.Text + "' AND "


    sqlstring = Left(sqlstring, Len(sqlstring) - 5) + " order by " + OrderByDDL.SelectedItem.Text


    Dim myds As New AccessDataSource
    myds.DataFile = "~\App_Data\employee.mdb"
    myds.SelectCommand = sqlstring


    ' Dim Mygrid As New GridView

    Mygrid.DataSource = myds

    Mygrid.DataBind()


    ' Me.form1.Controls.Add(Mygrid)


    mydb.Close()

    RecCount.Text = "Filtered Record Count = " + mygrid.Rows.Count.ToString
    Session("dsource") = myds
    Response.Redirect("sresults.aspx")


End Sub
End Class

【问题讨论】：

这有什么问题？

没有，只是想分享一下

【参考方案1】：

你做得很好，也试试下面的

link text

link text