webform1.aspx.vb

程序源代码分成两个部分： &#61557 一部分是用记事本或EditPlus编写的

Public Class WebForm1
    Inherits System.Web.UI.Page
    Private WithEvents myCon As System.Data.OleDb.OleDbConnection
    Private WithEvents myCom As System.Data.OleDb.OleDbCommand
    Private myReader As System.Data.OleDb.OleDbDataReader
    Dim myConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("addrbook.mdb")


#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents Label2 As System.Web.UI.WebControls.Label
    Protected WithEvents Label3 As System.Web.UI.WebControls.Label
    Protected WithEvents Label4 As System.Web.UI.WebControls.Label
    Protected WithEvents Label5 As System.Web.UI.WebControls.Label
    Protected WithEvents Label6 As System.Web.UI.WebControls.Label
    Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
    Protected WithEvents TextBox2 As System.Web.UI.WebControls.TextBox
    Protected WithEvents TextBox3 As System.Web.UI.WebControls.TextBox
    Protected WithEvents TextBox4 As System.Web.UI.WebControls.TextBox
    Protected WithEvents TextBox5 As System.Web.UI.WebControls.TextBox
    Protected WithEvents TextBox6 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button
    Protected WithEvents Button2 As System.Web.UI.WebControls.Button
    Protected WithEvents Button3 As System.Web.UI.WebControls.Button
    Protected WithEvents Label7 As System.Web.UI.WebControls.Label

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Display()
    End Sub

    Private Sub Display()
        Dim comStr As String
        myCon = New System.Data.OleDb.OleDbConnection(myConStr)
        myCon.Open()
        '创建Command对象
        myCom = New System.Data.OleDb.OleDbCommand
        '指定使用SQL语句
        myCom.CommandType = CommandType.Text
        'SQL语句内容是检索姓赵成员的信息
        comStr = "Select 成员编号,地址编号,姓氏,名字,角色,发送贺卡 from 家庭成员"
        myCom.CommandText = comStr
        '使用myCon连接对象
        myCom.Connection = myCon
        '由Command对象的ExecuteReader方法生成OleDbDataReader对象
        myReader = myCom.ExecuteReader()
        '把获取的第一条记录在相应的文本框上显示出来
        myReader.Read()
        Me.TextBox1.Text = myReader.GetInt32(0).ToString()
        Me.TextBox2.Text = myReader.GetInt32(1).ToString()
        Me.TextBox3.Text = myReader.GetString(2)
        Me.TextBox4.Text = myReader.GetString(3)
        Me.TextBox5.Text = myReader.GetString(4)
        Me.TextBox6.Text = myReader.GetBoolean(5).ToString()
        '关闭OleDbDataReader对象
        myReader.Close()
        '关闭Connection对象
        myCon.Close()
    End Sub
    Private Sub ExcuteSQL(ByVal SQL As String)
        myCon = New System.Data.OleDb.OleDbConnection(myConStr)
        myCon.Open()
        myCom = New System.Data.OleDb.OleDbCommand
        myCom.CommandType = CommandType.Text
        myCom.CommandText = SQL
        myCom.Connection = myCon
        '由Command对象执行没有返回结果的SQL语句
        myCom.ExecuteNonQuery()
        myCon.Close()
    End Sub



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim InsertSQL As String
        '检验是否有没填写的项
        If (TextBox1.Text = "" And TextBox2.Text = "" And TextBox3.Text = "" And TextBox4.Text = "" And TextBox5.Text = "" And TextBox6.Text = "") Then
            Response.Write("所有项都是必填项，请填完后再单击添加按钮")
            Exit Sub
        End If
        '拼凑SQL语句
        InsertSQL = "insert into 家庭成员(地址编号,姓氏,名字,角色,发送贺卡) values( "
        InsertSQL = InsertSQL & TextBox2.Text + ", '"
        InsertSQL = InsertSQL & TextBox3.Text + "' , '"
        InsertSQL = InsertSQL & TextBox4.Text + "' , '"
        InsertSQL = InsertSQL & TextBox5.Text + "' ,"
        InsertSQL = InsertSQL & TextBox6.Text + ")"
        '调用ExcuteSQL函数，执行插入操作
        ExcuteSQL(InsertSQL)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim DeleteSQL As String
        If (TextBox5.Text = "") Then
            Response.Write("必须给出角色")
            Exit Sub
        End If
        '拼凑SQL语句
        DeleteSQL = "delete from 家庭成员 where 角色 = '"
        DeleteSQL = DeleteSQL & TextBox5.Text + "'"
        '调用ExcuteSQL函数，执行删除操作
        ExcuteSQL(DeleteSQL)

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim UpdateSQL As String
        If (TextBox1.Text = "") Then
            Response.Write("必须给出成员编号")
            Exit Sub
        End If
        '拼凑SQL语句
        UpdateSQL = "update 家庭成员 set 名字 = '"
        UpdateSQL = UpdateSQL & TextBox4.Text
        UpdateSQL = UpdateSQL & "' where 角色 = '"
        UpdateSQL = UpdateSQL & TextBox5.Text
        UpdateSQL = UpdateSQL & " '"
        '调用ExcuteSQL语句，执行更新数据库记录
        ExcuteSQL(UpdateSQL)

    End Sub
End Class