datausers.vb

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

Imports System
Imports System.Data
Imports System.Data.OleDb

NameSpace nsAddress													'nsAddress为自己定义的名称空间
Public Class DataUsers												'DataUsers是自己定义的类的名称
	Private _strConn As String										'定义一个私有变量，用来设置数据库连接字符串
	'定义构造函数
	Public Sub New(strConn As String)
		_strConn=strConn											'将传入字符串赋值给私有变量_strConn
	End Sub
	'该过程用来插入记录
	Public Sub Insert(strName As String,strTel As String,strEmail As String,strIntro As String,dtmSubmit_Date As Date)
		'下面首先对数据进行处理
		If strIntro.Length>1000 Then								'如果大于1000个字符
			strIntro=strIntro.SubString(1,1000)						'则只取前1000个字符						
		End If
		'下面利用含有参数的SQL语句插入记录
		Dim conn As New OleDbConnection(_strConn)					'使用了私有变量的值
		Dim strSql="Insert Into users(name,tel,email,intro,submit_date) Values(@name,@tel,@email,@intro,@submit_date)"
		Dim cmd As New OleDbCommand(strSql, conn)
		cmd.Parameters.Add(New OleDbParameter("@name",OleDbType.VarWChar,50))
		cmd.Parameters("@name").Value=strName
		cmd.Parameters.Add(New OleDbParameter("@tel",OleDbType.VarWChar,50))
		cmd.Parameters("@tel").Value=strTel
		cmd.Parameters.Add(New OleDbParameter("@email",OleDbType.VarWChar,50))
		If strEmail<>"" Then
			cmd.Parameters("@email").Value=strEmail
		Else
			cmd.Parameters("@email").Value=DBNull.Value				'赋值NULL
		End If
		cmd.Parameters.Add(New OleDbParameter("@intro",OleDbType.VarWChar,1000))
		If strIntro<>"" Then
			cmd.Parameters("@intro").Value=strIntro
		Else
			cmd.Parameters("@intro").Value=DBNull.Value				'赋值NULL
		End If		
		cmd.Parameters.Add(New OleDbParameter("@submit_date",OleDbType.Date))
		cmd.Parameters("@submit_date").Value=dtmSubmit_Date
		conn.open()                             
		cmd.ExecuteNonQuery()										'执行操作插入记录					
		conn.close()                            
	End Sub
End Class
End NameSpace