updatedata.aspx.vb

《ASP.NET C#程序设计案例教程》

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports nsAddress

Public Class UpdateData: Inherits Page
	Public txtName,txtTel,txtEmail,txtIntro,txtUserPWD As TextBox
	Public lblId,message As Label

	'该过程根据传递过来的记录编号将该记录显示在下面的表单中
	Sub Page_load(Sender As Object, E As EventArgs)
		If Not IsPostBack Then 
			'建立一个DataUser对象实例
			Dim du As New DataUser("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("address.mdb"),Request.QueryString("id"))
			'下面利用属性返回记录信息
			txtName.Text=du.name
			txtTel.Text=du.tel
			txtEmail.Text=du.email					
			txtIntro.Text=du.intro
			lblId.Text=du.Id						
		End If
	End Sub
	Sub Enter_Click(Sender As Object, E As EventArgs)
		'建立DataBusiness对象实例，更新当前记录
		Dim dbs As New DataBusiness("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("address.mdb"))
		If dbs.PreUpdate(lblId.Text,txtName.Text,txtTel.Text,txtEmail.Text,txtIntro.Text,txtUserPWD.Text)=True Then
			'更新完毕，返回首页
			Response.Redirect("index.aspx")	
		Else
			message.Text="请输入正确的密码"
		End If
	End Sub
End Class