webform1.aspx.vb

编程之道VB.NETt程序设计入门-589M.zip

Public Class WebForm1
    Inherits System.Web.UI.Page
    Protected WithEvents dgrdAuthor As System.Web.UI.WebControls.DataGrid
    Protected WithEvents lblErrReport As System.Web.UI.WebControls.Label
    Protected WithEvents connMain As System.Data.SqlClient.SqlConnection
    Protected WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
    Protected WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
    Protected WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
    Protected WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
    Protected WithEvents dbaMain As System.Data.SqlClient.SqlDataAdapter
    Protected WithEvents cmdSelAuthor As System.Data.SqlClient.SqlCommand

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

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.connMain = New System.Data.SqlClient.SqlConnection()
        Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
        Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
        Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
        Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
        Me.dbaMain = New System.Data.SqlClient.SqlDataAdapter()
        Me.cmdSelAuthor = New System.Data.SqlClient.SqlCommand()
        '
        'dbaMain
        '
        Me.dbaMain.DeleteCommand = Me.SqlDeleteCommand1
        Me.dbaMain.InsertCommand = Me.SqlInsertCommand1
        Me.dbaMain.SelectCommand = Me.SqlSelectCommand1
        Me.dbaMain.UpdateCommand = Me.SqlUpdateCommand1

    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

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dsAuthor As DataSet = New DataSet()
        Try
            connMain.ConnectionString = "data source=RALPH;user id=sa;password=sa;initial catalog=pubs"
            connMain.Open()

            cmdSelAuthor.CommandText = "Select Top 10 * from Authors"
            cmdSelAuthor.Connection = connMain

            dbaMain.SelectCommand = cmdSelAuthor
            dbaMain.Fill(dsAuthor)

            dgrdAuthor.DataSource = dsAuthor
            dgrdAuthor.DataBind()
        Catch ex As Exception
            lblErrReport.Text = ex.Source & " 错误： " & ex.Message
            Exit Sub
        End Try
    End Sub

End Class