webform1.aspx.vb

来自「Visual Basic.NET应用编程150例」· VB 代码 · 共 54 行

Public Class WebForm1
    Inherits System.Web.UI.Page
    Protected WithEvents OleDbConnection1 As System.Data.OleDb.OleDbConnection
    Protected WithEvents OleDbCommand1 As System.Data.OleDb.OleDbCommand
    Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid

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

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.OleDbConnection1 = New System.Data.OleDb.OleDbConnection()
        Me.OleDbCommand1 = New System.Data.OleDb.OleDbCommand()
        '
        'OleDbConnection1
        '
        Me.OleDbConnection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\Documen" & _
        "ts and Settings\Administrator\My Documents\Visual Studio Projects\ADDRBOOK.MDB;M" & _
        "ode=Share Deny None;Extended Properties="""";Jet OLEDB:System database="""";Jet OLED" & _
        "B:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=5;Jet OL" & _
        "EDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global" & _
        " Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System " & _
        "Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on C" & _
        "ompact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False"
        '
        'OleDbCommand1
        '
        Me.OleDbCommand1.CommandText = "SELECT 姓氏, 名字, 角色, 更新日期 FROM 家庭成员"
        Me.OleDbCommand1.Connection = Me.OleDbConnection1

    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
        If Not IsPostBack Then
            OleDbConnection1.Open()
            Dim Reader As System.Data.OleDb.OleDbDataReader
            Reader = OleDbCommand1.ExecuteReader()
            DataGrid1.DataSource = Reader
            DataGrid1.DataBind()
            Reader.Close()
            OleDbConnection1.Close()
        End If

    End Sub

End Class