功能模块.docVIP

按条件查询： Imports System.Data.OleDb Partial Class _7_12 Inherits System.Web.UI.Page Protected Sub enter_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles enter.Click Dim conn As New OleDbConnection(Provider=Microsoft.Jet.OLEDB.4.0;Data Source= Server.MapPath(wwwlink.mdb)) Dim conn As OleDbConnection = New OleDbConnection(Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=student;Data Source=.) 建立Connection对象 Dim cmd As New OleDbCommand(select * from student where sname = keyword.Text or sjiguan = keyword1.Text , conn) Dim cmd As New OleDbCommand(Select * From link Where sitename = ? and URL= ? , conn) 建立Command对象 建立参数 cmd.Parameters.Add(New OleDbParameter(sitename, OleDbType.Char, 20)) cmd.Parameters.Add(New OleDbParameter(URL, OleDbType.Char, 20)) 给参数赋值 cmd.Parameters(sitename).Value = keyword.Text cmd.Parameters(URL).Value = keyword1.Text Dim cmd As New OleDbCommand(Select * From link Where sitename = @sitename and URL= @URL , conn) 建立Command对象 建立参数 cmd.Parameters.Add(New OleDbParameter(@sitename, OleDbType.Char, 20)) cmd.Parameters.Add(New OleDbParameter(@URL, OleDbType.Char, 20)) 给参数赋值 cmd.Parameters(@sitename).Value = keyword.Text cmd.Parameters(@URL).Value = keyword1.Text conn.Open() Dim dr As OleDbDataReader = cmd.ExecuteReader() 建立DataReader对象 GridView1.DataSource = dr 指定数据源 GridView1.DataBind() 执行绑定 conn.Close() End Sub End Class 二．添加。 Imports System.Data Imports System.Data.OleDb Partial Class newuser Inherits System.Web.UI.Page Protected Sub Button1_Click(ByVa