deluser.aspx.vb

vb。net 2003数据库设计整套源代码

Imports System.Data
Imports System.Data.SqlClient
Imports System.Text
Public Class deluser
    Inherits System.Web.UI.Page
    Protected WithEvents MyDataGrid As System.Web.UI.WebControls.DataGrid
    Protected WithEvents au_id As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents au_lname As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents au_fname As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents phone As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents address As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents city As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents state As System.Web.UI.HtmlControls.HtmlSelect
    Protected WithEvents zip As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents contract As System.Web.UI.HtmlControls.HtmlSelect
    Protected WithEvents Message As System.Web.UI.HtmlControls.HtmlGenericControl
    Protected WithEvents Submit1 As System.Web.UI.HtmlControls.HtmlInputButton
#Region " Web 窗体设计器生成的代码 "

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

    End Sub

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

#End Region

    Dim myConnection As SqlConnection
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在程序的开始连接数据库
        myConnection = New SqlConnection("user id=sa;password=;server=qianzh;" _
              & "database=library")
        If Not IsPostBack Then
            BindGrid()
        End If
    End Sub
    '删除一条数据
    Sub MyDataGrid_Delete(ByVal sender As Object, ByVal E As DataGridCommandEventArgs)
        Dim deleteCmd As String = "DELETE FROM reader WHERE userid = @Id;"
        Dim myCommand As SqlCommand = New SqlCommand(deleteCmd, _
           myConnection)
        myCommand.Parameters.Add(New SqlParameter("@Id", _
           SqlDbType.VarChar, 10))
        myCommand.Parameters("@Id").Value = _
         MyDataGrid.DataKeys(CInt(E.Item.ItemIndex))

        ' 连接数据库，删除数据
        myCommand.Connection.Open()
        Try
            myCommand.ExecuteNonQuery()
            Message.InnerHtml = "<b>该纪录已被删除</b><br>"
            Message.Style("color") = "red"
        Catch ex As SqlException
            Message.InnerHtml = "无法删除数据"
            Message.Style("color") = "red"
        End Try

        '管理连接，重新绑定数据库
        myCommand.Connection.Close()
        BindGrid()
    End Sub
    '绑定数据库子程
    Public Sub BindGrid()
        Dim myCommand As SqlDataAdapter = New SqlDataAdapter("SELECT *" _
          & " FROM reader", myConnection)
        Dim ds As DataSet = New DataSet()
        myCommand.Fill(ds)
        MyDataGrid.DataSource = ds
        MyDataGrid.DataBind()
    End Sub


    Private Sub MyDataGrid_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyDataGrid.SelectedIndexChanged

    End Sub
End Class