VB.Net - 数据库访问

---

---

应用程序与数据库通信，首先，检索存储在数据库中的数据并以用户友好的方式呈现，其次，通过插入、修改和删除数据来更新数据库。

Microsoft ActiveX 数据对象 .Net (ADO.Net) 是一种模型，它是 .Net 框架的一部分，.Net 应用程序使用它来检索、访问和更新数据。

ADO.Net 对象模型

ADO.Net 对象模型只不过是通过各种组件的结构化流程。对象模型可以用图示描述为：

驻留在数据存储或数据库中的数据通过数据提供程序检索。数据提供程序的各种组件为应用程序检索数据并更新数据。

应用程序可以通过数据集或数据读取器访问数据。

• 数据集将数据存储在断开连接的缓存中，应用程序从中检索数据。

• 数据读取器以只读和向前只读模式为应用程序提供数据。

数据提供程序

数据提供程序用于连接到数据库、执行命令和检索数据、将其存储在数据集中、读取检索到的数据以及更新数据库。

ADO.Net 中的数据提供程序包含以下四个对象：

ADO.Net 中包含以下不同类型的数据提供程序

• SQL Server 的 .Net Framework 数据提供程序 - 提供对 Microsoft SQL Server 的访问。

• OLE DB 的 .Net Framework 数据提供程序 - 提供对使用 OLE DB 公开的数

• ODBC 的 .Net Framework 数据提供程序 - 提供对 ODBC 公开的数

• Oracle 的 .Net Framework 数据提供程序 - 提供对 Oracle 数据源的访问。

• EntityClient 提供程序 - 支持通过实体数据模型 (EDM) 应用程序访问数据。

数据集

数据集是数据的内存表示。它是从数据库检索到的断开连接的缓存记录集。当与数据库建立连接时，数据适配器创建数据集并将数据存储在其中。检索并存储在数据集中后，与数据库的连接将关闭。这称为“断开连接体系结构”。数据集充当包含表、行和列的虚拟数据库。

下图显示了数据集对象模型：

DataSet 类位于System.Data命名空间中。下表描述了 DataSet 的所有组件：

连接到数据库

.Net Framework 提供两种类型的连接类：

• SqlConnection - 用于连接到 Microsoft SQL Server。

• OleDbConnection - 用于连接到各种数据库，如 Microsoft Access 和 Oracle。

示例 1

我们在 Microsoft SQL Server 中存储了一个名为 Customers 的表，位于名为 testDB 的数据库中。请参阅“SQL Server”教程以了解如何在 SQL Server 中创建数据库和数据库表。

让我们连接到此数据库。请执行以下步骤：

• 选择工具 → 连接到数据库

• 在“添加连接”对话框中选择服务器名称和数据库名称。

  M

• 单击“测试连接”按钮以检查连接是否成功。

• 在窗体上添加一个 DataGridView。

• 单击“选择数据源”组合框。

• 单击“添加项目数据源”链接。

• 这将打开“数据源配置向导”。

• 选择数据库作为数据源类型

• 选择数据集作为数据库模型。

• 选择已设置的连接。

• 保存连接字符串。

• 选择数据库对象（在我们的示例中为 Customers 表），然后单击“完成”按钮。

• 选择“预览数据”链接以在“结果”网格中查看数据：

当使用 Microsoft Visual Studio 工具栏中提供的启动按钮运行应用程序时，它将显示以下窗口：

示例 2

在此示例中，让我们使用代码访问 DataGridView 控件中的数据。请执行以下步骤：

• 在窗体中添加一个 DataGridView 控件和一个按钮。

• 将按钮控件的文本更改为“填充”。

• 双击按钮控件以添加按钮的 Click 事件所需的代码，如下所示：

Imports System.Data.SqlClient
Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) _
   Handles MyBase.Load
      'TODO: This line of code loads data into the 'TestDBDataSet.CUSTOMERS' table.   
      You can move, or remove it, as needed.
      
      Me.CUSTOMERSTableAdapter.Fill(Me.TestDBDataSet.CUSTOMERS)
      ' Set the caption bar text of the form.   
      Me.Text = "tutorialspoint.com"
   End Sub
   
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      Dim connection As SqlConnection = New sqlconnection()
      connection.ConnectionString = "Data Source=KABIR-DESKTOP; _
         Initial Catalog=testDB;Integrated Security=True"
      connection.Open()
      Dim adp As SqlDataAdapter = New SqlDataAdapter _
      ("select * from Customers", connection)
      Dim ds As DataSet = New DataSet()
      adp.Fill(ds)
      DataGridView1.DataSource = ds.Tables(0)
   End Sub
End Class

• 当使用 Microsoft Visual Studio 工具栏中提供的启动按钮执行并运行上述代码时，它将显示以下窗口：

• 单击“填充”按钮将在数据网格视图控件上显示表：

创建表、列和行

我们已经讨论过，DataSet 组件（如 DataTable、DataColumn 和 DataRow）允许我们分别创建表、列和行。

以下示例演示了该概念：

示例 3

到目前为止，我们使用的是计算机中已存在的表和数据库。在此示例中，我们将创建一个表，向其中添加列、行和数据，并使用 DataGridView 对象显示该表。

请执行以下步骤：

• 在窗体中添加一个 DataGridView 控件和一个按钮。

• 将按钮控件的文本更改为“填充”。

• 在代码编辑器中添加以下代码。

Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      ' Set the caption bar text of the form.   
      Me.Text = "tutorialspont.com"
   End Sub
   
   Private Function CreateDataSet() As DataSet
      'creating a DataSet object for tables
      Dim dataset As DataSet = New DataSet()
      ' creating the student table
      Dim Students As DataTable = CreateStudentTable()
      dataset.Tables.Add(Students)
      Return dataset
   End Function
   
   Private Function CreateStudentTable() As DataTable
      Dim Students As DataTable
      Students = New DataTable("Student")
      ' adding columns
      AddNewColumn(Students, "System.Int32", "StudentID")
      AddNewColumn(Students, "System.String", "StudentName")
      AddNewColumn(Students, "System.String", "StudentCity")
      ' adding rows
      AddNewRow(Students, 1, "Zara Ali", "Kolkata")
      AddNewRow(Students, 2, "Shreya Sharma", "Delhi")
      AddNewRow(Students, 3, "Rini Mukherjee", "Hyderabad")
      AddNewRow(Students, 4, "Sunil Dubey", "Bikaner")
      AddNewRow(Students, 5, "Rajat Mishra", "Patna")
      Return Students
   End Function
   
   Private Sub AddNewColumn(ByRef table As DataTable, _ 
   ByVal columnType As String, ByVal columnName As String)
      Dim column As DataColumn = _ 
         table.Columns.Add(columnName, Type.GetType(columnType))
   End Sub

   'adding data into the table
   Private Sub AddNewRow(ByRef table As DataTable, ByRef id As Integer,_
   ByRef name As String, ByRef city As String)
      Dim newrow As DataRow = table.NewRow()
      newrow("StudentID") = id
      newrow("StudentName") = name
      newrow("StudentCity") = city
      table.Rows.Add(newrow)
   End Sub
   
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      Dim ds As New DataSet
      ds = CreateDataSet()
      DataGridView1.DataSource = ds.Tables("Student")
   End Sub
End Class

• 当使用 Microsoft Visual Studio 工具栏中提供的启动按钮执行并运行上述代码时，它将显示以下窗口：

• 单击“填充”按钮将在数据网格视图控件上显示表：