• 当前位置:首页>>网络编程>>Asp.net专区>>使用ADO.NET解锁 Microsoft Access数据(二)
  • 使用ADO.NET解锁 Microsoft Access数据(二)
  • 数据表单向导

    Visual Studio .NET 数据表单向导允许您快速连接到数据库,并生成简单的用户界面,用于显示数据并与数据进行交互。要使用数据表单向导,请执行以下步骤:
    在 Windows 应用程序项目中,在 Project(项目)菜单上,单击 Add Windows Form(添加 Windows 窗体)。
    在 Templates(模板)窗格中,单击 Data Form Wizard(数据窗体向导),单击 Open(打开),然后单击 Next(下一步)。
    在 Create a new dataset named(创建新数据集)框中,键入 DataSet1,然后单击 Next(下一步)。
    选择现有的数据连接或创建新数据连接,然后单击 Next(下一步)。
    选择要向 DataSet1 填充的项,然后单击 Next(下一步)。
    如果选择多项,请定义各项之间的关系,然后单击 Next(下一步)。
    定义要在表单中显示的表和列,然后单击 Next(下一步)。
    选择显示样式选项,然后单击 Finish(完成)。
    注意:请确保将新数据表单设置为启动表单,方法如下:在 Project(项目)菜单中,单击 Properties(属性)。展开 Common Properties(通用属性)文件夹,单击 General(常规),在 Startup object(启动对象)列表中选择该数据表单,然后单击 OK(确定)。
    注意:请确保将 DataSet1 中的数据绑定到数据表单,这可以通过向数据表单的 Load 事件插入以下代码来实现:Me.OleDbDataAdapter1.Fill(objDataSet1)
    运行应用程序:在 Debug(调试)菜单上,单击 Run(运行)。
    扩展的 ADO.NET 代码示例

    为了向您演示更多的 ADO.NET 代码,在本月专栏的最后,我将介绍几个在 ADO.NET 中创建的扩展的代码示例。
    使用 DataReader 对象以仅向前移动的、只读的格式访问数据

    很多时候,您只是希望简单地浏览数据,而并不需要在数据间来回浏览,也不需要更改数据(我们将此称为“流水数据”)。ADO.NET 的 DataReader 对象是专门为此设计的。下面是我编写的一段示例代码,可以逐个读取连接的数据库中的所有选定数据:
    ' Visual Basic .NET 代码。
    ' 控制台应用程序。
    ' 引用:
    '   System
    '   System.Data
    '   System.XML

    Imports System.Data.OleDb                   ' 用于 OleDb 对象。
    Imports Microsoft.VisualBasic.ControlChars  ' 用于 CrLf 常量。

    Module Module1

        Sub Main()

            ' 创建并初始化 OleDbConnection、OleDbCommand
            ' 和 OleDbDataReader 对象。
            Dim objConn As New _
                OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "User ID=Admin;" & _
                "Data Source=C:\Program Files\Microsoft" & _
                "Office\Office10\Samples\Northwind.mdb")

            objConn.Open()

            ' 执行命令并将数据读取器附加到
            ' 所选数据。
            Dim objCmd As New OleDbCommand("SELECT * FROM Products", _
                objConn)
            Dim objReader As OleDbDataReader = objCmd.ExecuteReader

            ' 读取数据并列出值。
            Call ReadData(objReader)

        End Sub

        Public Sub ReadData(ByVal objReader As OleDbDataReader)

            ' 目的:列出给定数据读取器的数据值。
            ' 接受:objReader - 数据读取器。

            Dim intField As Integer             ' 行中的当前字段。
            Dim intColumn As Integer            ' 当前列的名称。
            Dim blnColumns As Boolean = False   ' 列名称是否已
                                                ' 列出。

            With objReader

                ' 一次读取一行,直至文件末尾。
                Do While .Read = True

                    For intField = 0 To .FieldCount - 1

                        ' 首先列出列名称。
                        If blnColumns = False Then

                            For intColumn = 0 To .FieldCount - 1

                                If intColumn = .FieldCount - 1 Then
                                    Console.Write(.GetName(intColumn) & _
                                        CrLf)
                                Else
                                    Console.Write(.GetName(intColumn) & _
                                        ", ")
                                End If

                            Next intColumn

                            ' 只列出一次列名称。
                            blnColumns = True

                        End If

                        ' 列出当前行中每个字段的值。
                        If intField = .FieldCount - 1 Then
                      &n
  • 上一篇:C#编码标准--编码习惯
    下一篇:Displaying Random Record