webform1.aspx.vb

Visual Basic.NET应用编程150例

Public Class WebForm1
    Inherits System.Web.UI.Page
    Protected WithEvents OleDbDataAdapter1 As System.Data.OleDb.OleDbDataAdapter
    Protected WithEvents OleDbSelectCommand1 As System.Data.OleDb.OleDbCommand
    Protected WithEvents OleDbInsertCommand1 As System.Data.OleDb.OleDbCommand
    Protected WithEvents OleDbUpdateCommand1 As System.Data.OleDb.OleDbCommand
    Protected WithEvents OleDbDeleteCommand1 As System.Data.OleDb.OleDbCommand
    Protected WithEvents OleDbConnection1 As System.Data.OleDb.OleDbConnection
    Protected WithEvents Dsfamilymembers1 As WebApplication3.dsfamilymembers
    Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid

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

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.OleDbDataAdapter1 = New System.Data.OleDb.OleDbDataAdapter()
        Me.OleDbSelectCommand1 = New System.Data.OleDb.OleDbCommand()
        Me.OleDbInsertCommand1 = New System.Data.OleDb.OleDbCommand()
        Me.OleDbUpdateCommand1 = New System.Data.OleDb.OleDbCommand()
        Me.OleDbDeleteCommand1 = New System.Data.OleDb.OleDbCommand()
        Me.OleDbConnection1 = New System.Data.OleDb.OleDbConnection()
        Me.Dsfamilymembers1 = New WebApplication3.dsfamilymembers()
        CType(Me.Dsfamilymembers1, System.ComponentModel.ISupportInitialize).BeginInit()
        '
        'OleDbDataAdapter1
        '
        Me.OleDbDataAdapter1.DeleteCommand = Me.OleDbDeleteCommand1
        Me.OleDbDataAdapter1.InsertCommand = Me.OleDbInsertCommand1
        Me.OleDbDataAdapter1.SelectCommand = Me.OleDbSelectCommand1
        Me.OleDbDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "家庭成员", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("电子邮件地址", "电子邮件地址"), New System.Data.Common.DataColumnMapping("发送贺卡", "发送贺卡"), New System.Data.Common.DataColumnMapping("健康状况", "健康状况"), New System.Data.Common.DataColumnMapping("角色", "角色"), New System.Data.Common.DataColumnMapping("名字", "名字"), New System.Data.Common.DataColumnMapping("姓氏", "姓氏"), New System.Data.Common.DataColumnMapping("业余爱好", "业余爱好")})})
        Me.OleDbDataAdapter1.UpdateCommand = Me.OleDbUpdateCommand1
        '
        'OleDbSelectCommand1
        '
        Me.OleDbSelectCommand1.CommandText = "SELECT 电子邮件地址, 发送贺卡, 健康状况, 角色, 名字, 姓氏, 业余爱好, 成员编号 FROM 家庭成员"
        Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1
        '
        'OleDbInsertCommand1
        '
        Me.OleDbInsertCommand1.CommandText = "INSERT INTO 家庭成员(电子邮件地址, 发送贺卡, 健康状况, 角色, 名字, 姓氏, 业余爱好, 成员编号) VALUES (?, ?, ?, ?, " & _
        "?, ?, ?, ?)"
        Me.OleDbInsertCommand1.Connection = Me.OleDbConnection1
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("电子邮件地址", System.Data.OleDb.OleDbType.VarWChar, 50, "电子邮件地址"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("发送贺卡", System.Data.OleDb.OleDbType.Boolean, 2, "发送贺卡"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("健康状况", System.Data.OleDb.OleDbType.VarWChar, 255, "健康状况"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("角色", System.Data.OleDb.OleDbType.VarWChar, 50, "角色"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("名字", System.Data.OleDb.OleDbType.VarWChar, 50, "名字"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("姓氏", System.Data.OleDb.OleDbType.VarWChar, 50, "姓氏"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("业余爱好", System.Data.OleDb.OleDbType.VarWChar, 255, "业余爱好"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("成员编号", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "成员编号", System.Data.DataRowVersion.Current, Nothing))
        '
        'OleDbUpdateCommand1
        '
        Me.OleDbUpdateCommand1.CommandText = "UPDATE 家庭成员 SET 电子邮件地址 = ?, 发送贺卡 = ?, 健康状况 = ?, 角色 = ?, 名字 = ?, 姓氏 = ?, 业余爱好 = ?," & _
        " 成员编号 = ? WHERE (成员编号 = ?) AND (业余爱好 = ? OR ? IS NULL AND 业余爱好 IS NULL) AND (健康状" & _
        "况 = ? OR ? IS NULL AND 健康状况 IS NULL) AND (发送贺卡 = ?) AND (名字 = ? OR ? IS NULL AND" & _
        " 名字 IS NULL) AND (姓氏 = ?) AND (电子邮件地址 = ? OR ? IS NULL AND 电子邮件地址 IS NULL) AND (" & _
        "角色 = ? OR ? IS NULL AND 角色 IS NULL)"
        Me.OleDbUpdateCommand1.Connection = Me.OleDbConnection1
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("电子邮件地址", System.Data.OleDb.OleDbType.VarWChar, 50, "电子邮件地址"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("发送贺卡", System.Data.OleDb.OleDbType.Boolean, 2, "发送贺卡"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("健康状况", System.Data.OleDb.OleDbType.VarWChar, 255, "健康状况"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("角色", System.Data.OleDb.OleDbType.VarWChar, 50, "角色"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("名字", System.Data.OleDb.OleDbType.VarWChar, 50, "名字"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("姓氏", System.Data.OleDb.OleDbType.VarWChar, 50, "姓氏"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("业余爱好", System.Data.OleDb.OleDbType.VarWChar, 255, "业余爱好"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("成员编号", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "成员编号", System.Data.DataRowVersion.Current, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_成员编号", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "成员编号", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_业余爱好", System.Data.OleDb.OleDbType.VarWChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "业余爱好", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_业余爱好1", System.Data.OleDb.OleDbType.VarWChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "业余爱好", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_健康状况", System.Data.OleDb.OleDbType.VarWChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "健康状况", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_健康状况1", System.Data.OleDb.OleDbType.VarWChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "健康状况", System.Data.DataRowVersion.Original, Nothing))