原文: http://zetcode.com/db/sqlitevb/dataset/

ADO.NET 架构由两个主要部分组成。 .NET 数据供应器和DataSet。 数据提供者是已明确设计用于数据处理和快速访问数据的组件。 创建DataSet的目的是为了独立于任何数据源进行数据访问。 它可以与多个不同的数据源,XML 数据一起使用,或者用于管理应用本地的数据。

DataSet是数据库表中数据的副本以及数据之间的关系。 它在内存中创建,并在需要对数据进行大量处理或将数据表绑定到 Winforms 控件时使用。 处理完成后,更改将被写入数据源。 DataSet是断开的关系结构。 这意味着在DataSet对象的整个生命周期中不必打开基础连接。 这使我们能够有效地使用可用的数据库连接。

DataSet可以通过多种方式填充。 我们可以使用SqliteDataAdapter类的Fill()方法。 我们可以以编程方式创建DataTableDataColumnDataRow对象。 可以从 XML 文档或流中读取数据。

SqliteDataAdapterDataSet和数据源之间的中介。 它填充DataSet并解析数据源的更新。 DataTable是内存中数据库表的表示。 可以将一个或多个数据表添加到数据集。 对DataSet所做的更改由SqliteCommandBuilder类保存到数据源。

DataGridView控件提供了用于显示数据的可自定义表。 它允许通过使用属性来定制单元格,行,列和边框。 我们可以使用此控件来显示带有或不带有基础数据源的数据。

创建一个数据表

在第一个示例中,我们将使用DataTable类。

  1. sqlite> CREATE TABLE Friends2(Id INTEGER PRIMARY KEY, Name TEXT);

在这种情况下,必须先创建表,然后才能将任何数据保存到表中。

  1. Option Strict On
  2. Imports Mono.Data.Sqlite
  3. Imports System.Data
  4. Module Example
  5. Sub Main()
  6. Dim cs As String = "URI=file:test.db"
  7. Using con As New SqliteConnection(cs)
  8. con.Open()
  9. Dim table As New DataTable("Friends2")
  10. Dim column As New DataColumn
  11. Dim row As DataRow
  12. column = New DataColumn()
  13. column.DataType = System.Type.GetType("System.Int32")
  14. column.ColumnName = "Id"
  15. table.Columns.Add(column)
  16. column = new DataColumn()
  17. column.DataType = Type.GetType("System.String")
  18. column.ColumnName = "Name"
  19. table.Columns.Add(column)
  20. row = table.NewRow()
  21. row("Id") = 1
  22. row("Name") = "Jane"
  23. table.Rows.Add(row)
  24. row = table.NewRow()
  25. row("Id") = 2
  26. row("Name") = "Lucy"
  27. table.Rows.Add(row)
  28. row = table.NewRow()
  29. row("Id") = 3
  30. row("Name") = "Thomas"
  31. table.Rows.Add(row)
  32. Dim sql As String = "SELECT * FROM Friends2"
  33. Using da As New SqliteDataAdapter(sql, con)
  34. Using cb As New SqliteCommandBuilder(da)
  35. da.Fill(table)
  36. da.Update(table)
  37. End Using
  38. End Using
  39. con.Close()
  40. End Using
  41. End Sub
  42. End Module

在示例中,我们创建一个新的DataTable对象。 我们在表中添加两列和三行。 然后,我们将数据保存在新的Friends2数据库表中。

Dim table As New DataTable("Friends2")

创建一个新的DataTable对象。

column = New DataColumn()
column.DataType = System.Type.GetType("System.Int32")
column.ColumnName = "Id"
table.Columns.Add(column)

新列将添加到表中。 我们为列提供数据类型和名称。 可通过Columns属性访问DataTable的列。

row = table.NewRow()
row("Id") = 1
row("Name") = "Jane"
table.Rows.Add(row)

在表中添加一行。 可以通过Rows属性访问DataTable的行。

Dim sql As String = "SELECT * FROM Friends2"

Using da As New SqliteDataAdapter(sql, con)

SqliteDataAdapter是数据库表及其在内存中的表示之间的中介。

Using cb As New SqliteCommandBuilder(da)

SqliteCommandBuilder包装数据适配器。 它只需要实例化。 我们稍后不会直接使用它。

da.Fill(table)
da.Update(table)

数据适配器中填充了表中的数据。 Update方法将数据插入数据库。

保存 XML 数据

来自DataTable的数据可以轻松保存在 XML 文件中。 此任务有一种WriteXml()方法。

Option Strict On

Imports Mono.Data.Sqlite
Imports System.Data

Module Example

    Sub Main()

        Dim cs As String = "URI=file:test.db"

        Using con As New SqliteConnection(cs)        
            con.Open()

            Dim stm As String = "SELECT * FROM Cars LIMIT 5"

            Using da As New SqliteDataAdapter(stm, con)
                Dim ds As New DataSet()

                da.Fill(ds, "Cars")
                Dim dt As DataTable = ds.Tables("Cars")

                dt.WriteXml("cars.xml")

                For Each row As DataRow In dt.Rows                         
                    For Each col As DataColumn In dt.Columns                    
                        Console.Write(row(col) & " ")
                    Next
                    Console.WriteLine()
                Next      
            End Using
            con.Close()
        End Using

    End Sub

End Module

我们从Cars表中打印 5 辆汽车。 我们还将它们保存在 XML 文件中。

Using da As New SqliteDataAdapter(stm, con)

创建一个SqliteDataAdapter对象。 它以 SQL 语句和连接为参数。 SQL 语句将由SqliteDataAdapter用于检索和传递数据。

Dim ds As New DataSet()

da.Fill(ds, "Cars")

我们创建DataSet对象。 Fill()方法使用数据适配器从数据源检索数据。 它创建一个名为Cars的新DataTable,并用检索到的数据填充它。

Dim dt As DataTable = ds.Tables("Cars")

Tables属性为我们提供了DataSet中包含的数据表的集合。 从该集合中检索Cars DataTable

dt.WriteXml("cars.xml")

我们将数据表中的数据写入 XML 文件。

For Each row As DataRow In dt.Rows                         
    For Each col As DataColumn In dt.Columns                    
        Console.Write(row(col) & " ")
    Next
    Console.WriteLine()
Next

我们将Cars表的内容显示到终端。 为了遍历数据,我们利用了DataTable对象的行和列。

加载 XML 数据

我们已经展示了如何将数据保存在 XML 文件中。 现在我们将展示如何从 XML 文件加载数据。

Option Strict On

Imports Mono.Data.Sqlite
Imports System.Data

Module Example

    Sub Main()

        Dim cs As String = "URI=file:test.db"

        Using con As New SqliteConnection(cs)   

            con.Open()

            Dim ds As New DataSet()

            ds.ReadXml("cars.xml")
            Dim dt As DataTable = ds.Tables("Cars")

            For Each row As DataRow In dt.Rows                        
                For Each col As DataColumn In dt.Columns                
                    Console.Write(row(col) + " ")
                Next
                Console.WriteLine()
            Next

            con.Close()
        End Using

    End Sub

End Module

我们将cars.xml文件的内容读入DataSet。 我们将所有行打印到终端。

Dim ds As New DataSet()

创建一个DataSet对象。

ds.ReadXml("cars.xml")

来自cars.xml的数据被读入数据集。

Dim dt As DataTable = ds.Tables("Cars")

将数据读入数据集后,将创建一个新的DataTable。 我们得到这张表。

For Each row As DataRow In dt.Rows                        
    For Each col As DataColumn In dt.Columns                
        Console.Write(row(col) + " ")
    Next
    Console.WriteLine()
Next

我们打印数据表的所有行。

$ mono loadxml.exe 
1 Audi 52642 
2 Mercedes 57127 
3 Skoda 9000 
4 Volvo 29000 
5 Bentley 350000

运行示例。

DataGridView

在下一个示例中,我们将表绑定到 Winforms DataGridView控件。

Option Strict On

Imports System.Windows.Forms
Imports System.Drawing
Imports System.Data
Imports Mono.Data.Sqlite

Public Class WinVBApp
    Inherits Form

    Private dgv As DataGridView
    Private da As SqliteDataAdapter
    Private ds As DataSet

    Public Sub New()

       Me.Text = "DataGridView"
       Me.Size = New Size(450, 350)

       Me.InitUI()
       Me.InitData()

       Me.CenterToScreen()

    End Sub

    Private Sub InitUI()

        dgv = New DataGridView()

        dgv.Location = New Point(8, 0)
        dgv.Size = New Size(350, 300)
        dgv.TabIndex = 0
        dgv.Parent = Me 

    End Sub

    Private Sub InitData()

        Dim cs As String = "URI=file:test.db"

        Dim con As New SqliteConnection(cs)

        Dim stm As String = "SELECT * FROM Cars"

        Using con As New SqliteConnection(cs)
            con.Open()

            ds = new DataSet()

            Using da As New SqliteDataAdapter(stm, con)            
                da.Fill(ds, "Cars")
                dgv.DataSource = ds.Tables("Cars")
            End Using

            con.Close()
        End Using   

    End Sub

    Public Shared Sub Main()
        Application.Run(New WinVBApp)
    End Sub

End Class

在本示例中,我们将Cars表绑定到 Winforms DataGridView控件。

Imports System.Windows.Forms
Imports System.Drawing

这两个名称空间用于 GUI。

Me.InitUI()
Me.InitData()

InitUI()方法内部,我们构建了用户界面。 在InitData()方法中,我们连接到数据库,将数据检索到DataSe中并将其绑定到DataGrid控件。

dgv = New DataGridView()

DataGridView控件已创建。

Dim stm As String = "SELECT * FROM Cars"

我们将在DataGridView控件中显示Cars表中的数据。

dgv.DataSource = ds.Tables("Cars")

我们将DataGridView控件的DataSource属性绑定到所选表。

ADO.NET 的数据集 - 图1

图:DataGridView

在 SQLite Visual Basic 教程的这一部分中,我们使用了DataSetDataTableSqliteDataAdapterSqliteCommandBuilderDataGridView类。