VB.Net - 數(shù)據(jù)庫訪問

下圖顯示了數(shù)據(jù)集對(duì)象模型：

DataSet類存在于System.Data命名空間中。 下表描述了DataSet的所有組件：

連接到數(shù)據(jù)庫

.Net框架提供兩種類型的Connection類：

• SqlConnection -設(shè)計(jì)用于連接到Microsoft SQL Server。

• OleDbConnection -設(shè)計(jì)用于連接到各種數(shù)據(jù)庫，如Microsoft Access和Oracle。

示例1

我們有一個(gè)表存儲(chǔ)在名為testDB的數(shù)據(jù)庫中的名為Customers的Microsoft SQL Server中。 有關(guān)在SQL Server中創(chuàng)建數(shù)據(jù)庫和數(shù)據(jù)庫表的信息，請(qǐng)參考“SQL Server”教程。

讓我們連接到此數(shù)據(jù)庫。 執(zhí)行以下步驟：

• 選擇工具 - >連接到數(shù)據(jù)庫

  

• 在“添加連接”對(duì)話框中選擇服務(wù)器名稱和數(shù)據(jù)庫名稱。

  

• 單擊測(cè)試連接按鈕以檢查連接是否成功。

  

• 在表單上添加一個(gè)DataGridView。

  

• 單擊選擇數(shù)據(jù)源組合框。

• 單擊添加項(xiàng)目數(shù)據(jù)源鏈接。

  

• 這將打開“數(shù)據(jù)源配置向?qū)А薄?/span>
  

• 選擇“數(shù)據(jù)庫”作為數(shù)據(jù)源類型

  

• 選擇的DataSet作為數(shù)據(jù)庫模型。

  

• 選擇已設(shè)置的連接。

  

• 保存連接字符串。

  

• 在我們的示例中選擇數(shù)據(jù)庫對(duì)象Customers表，然后單擊完成按鈕。

  

• 選擇“預(yù)覽數(shù)據(jù)”鏈接以查看“結(jié)果”網(wǎng)格中的數(shù)據(jù)：

  

當(dāng)使用Microsoft Visual Studio工具欄上的“開始”按鈕運(yùn)行應(yīng)用程序時(shí)，將顯示以下窗口：

示例2

在這個(gè)例子中，讓我們使用代碼訪問DataGridView控件中的數(shù)據(jù)。 執(zhí)行以下步驟：

• 在窗體中添加一個(gè)DataGridView控件和一個(gè)按鈕。

• 將按鈕控件的文本更改為“填充”。

• 雙擊按鈕控件，為按鈕的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

當(dāng)使用Microsoft Visual Studio工具欄上的“開始”按鈕執(zhí)行并運(yùn)行上述代碼時(shí)，將顯示以下窗口：

單擊“填充”按鈕可顯示數(shù)據(jù)網(wǎng)格視圖控件上的表：

創(chuàng)建表，列和行

我們已經(jīng)討論過，像DataTable，DataColumn和DataRow這樣的DataSet組件允許我們分別創(chuàng)建表，列和行。

下面的例子演示了這個(gè)概念：

示例3

到目前為止，我們已經(jīng)使用我們的計(jì)算機(jī)中已經(jīng)存在的表和數(shù)據(jù)庫。 在本示例中，我們將創(chuàng)建一個(gè)表，向其中添加列，行和數(shù)據(jù)，并使用DataGridView對(duì)象顯示表。

執(zhí)行以下步驟：

• 在窗體中添加一個(gè)DataGridView控件和一個(gè)按鈕。

• 將按鈕控件的文本更改為“填充”。

• 在代碼編輯器中添加以下代碼。

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

當(dāng)使用Microsoft Visual Studio工具欄上的“開始”按鈕執(zhí)行并運(yùn)行上述代碼時(shí)，將顯示以下窗口

單擊“填充”按鈕可顯示數(shù)據(jù)網(wǎng)格視圖控件上的表：