add.aspx.vb

来自「《ASP.NET C#程序设计案例教程》」· VB 代码 · 共 46 行

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Data
Imports System.Data.OleDb
Imports System.DateTime					'因为用到了Now()函数，所以导入本空间

Public Class add: Inherits Page
	Public txtName,txtTel,txtEmail,txtIntro,txtUserPWD As TextBox

	Sub Enter_Click(Sender As Object, E As EventArgs)
		'建立Connection对象
		Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("address.mdb"))
		'建立Command对象，注意这里使用了含有参数的SQL语句
		Dim strSql="Insert Into users(name,tel,email,intro,submit_date,UserPWD) Values(@name,@tel,@email,@intro,@submit_date,@UserPWD)"
		Dim cmd As New OleDbCommand(strSql, conn)
		'下面给参数赋值
		cmd.Parameters.Add(New OleDbParameter("@name",OleDbType.VarWChar,5))
		cmd.Parameters("@name").Value=txtName.Text
		cmd.Parameters.Add(New OleDbParameter("@tel",OleDbType.VarWChar,13))
		cmd.Parameters("@tel").Value=txtTel.Text
		'下面给@email赋值，如果客户没有输入，则赋NULL值
		cmd.Parameters.Add(New OleDbParameter("@email",OleDbType.VarWChar,50))
		If txtEmail.Text<>"" Then
			cmd.Parameters("@email").Value=txtEmail.Text
		Else
			cmd.Parameters("@email").Value=DBNull.Value						'赋值NULL
		End If
		'下面给@intro赋值，如果客户没有输入，则赋NULL值
		cmd.Parameters.Add(New OleDbParameter("@intro",OleDbType.VarWChar))
		If txtIntro.Text<>"" Then
			cmd.Parameters("@intro").Value=txtIntro.Text
		Else
			cmd.Parameters("@intro").Value=DBNull.Value						'赋值NULL
		End If		
		cmd.Parameters.Add(New OleDbParameter("@submit_date",OleDbType.Date))
		cmd.Parameters("@submit_date").Value=Now()
		cmd.Parameters.Add(New OleDbParameter("@UserPWD",OleDbType.Char,8))
		cmd.Parameters("@UserPWD").Value=txtUserPWD.Text
		conn.open()                             '打开数据库
		cmd.ExecuteNonQuery()
		conn.close()                            '关闭数据库
		Response.Redirect("index.aspx")			'返回首页
	End Sub
End Class