page de recherche avancée pour une application Web à l'aide vb.net

Question

j'ai créé une page simple de recherche avancée pour une application web, je pensais partager avec vous pourrait aider les débutants

Voici un exemple d'une page de recherche avancée pour un employé base de données en utilisant VB.Net

ce qui suit est le code derrière la page

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 

Answer 1

vous avez fait un bon j ob, essayez également les éléments suivants

link text

link text