使用 Visual Basic 獲取 SQLite 元數據 · ZetCode 中文系列教程

# 使用 Visual Basic 獲取 SQLite 元數據 > 原文： [http://zetcode.com/db/sqlitevb/meta/](http://zetcode.com/db/sqlitevb/meta/) 元數據是有關數據庫中數據的信息。 SQLite 中的元數據包含有關表和列的信息，我們在其中存儲數據。受 SQL 語句影響的行數是元數據。結果集中返回的行數和列數也屬于元數據。可以使用`PRAGMA`命令獲取 SQLite 中的元數據。 SQLite 對象可能具有屬性，即元數據。最后，我們還可以通過查詢 SQLite 系統`sqlite_master`表來獲取特定的元數據。 ```vb Option Strict On Imports Mono.Data.Sqlite Module Example Sub Main() Dim cs As String = "URI=file:test.db" Dim nrows As String Try Console.Write("Enter rows to fetch: ") nrows = Console.ReadLine() Catch e As FormatException Console.WriteLine(e.ToString()) End Try Using con As New SqliteConnection(cs) con.Open() Using cmd As New SqliteCommand(con) cmd.CommandText = "SELECT * FROM Cars LIMIT @Id" cmd.Prepare() cmd.Parameters.AddWithValue("@Id", Int32.Parse(nrows)) Dim cols As Integer = 0 Dim rows As Integer = 0 Dim rdr As SqliteDataReader = cmd.ExecuteReader() Using rdr cols = rdr.FieldCount rows = 0 While rdr.Read() rows += 1 End While Console.WriteLine("The query fetched {0} rows", rows) Console.WriteLine("Each row has {0} cols", cols) End Using End Using con.Close() End Using End Sub End Module ``` 在上面的示例中，我們獲取查詢返回的行數和列數。 ```vb Try Console.Write("Enter rows to fetch: ") nrows = Console.ReadLine() Catch e As FormatException Console.WriteLine(e.ToString()) End Try ``` 該示例要求在命令行上的行數。 ```vb cmd.CommandText = "SELECT * FROM Cars LIMIT @Id" cmd.Prepare() cmd.Parameters.AddWithValue("@Id", Int32.Parse(nrows)) ``` 我們選擇的行數與在命令行中提供的一樣多。 ```vb cols = rdr.FieldCount ``` 可以從`SqliteDataReader`對象的`FieldCount`屬性檢索返回的列數。 ```vb While rdr.Read() rows += 1 End While ``` 我們計算結果集中的行數。 ```vb $ mono fields_rows.exe Enter rows to fetch: 5 The query fetched 5 rows Each row has 3 cols ``` 輸出。 ## 列標題接下來，我們將展示如何使用數據庫表中的數據打印列標題。 ```vb Option Strict On Imports Mono.Data.Sqlite Module Example Sub Main() Dim cs As String = "URI=file:test.db" Using con As New SqliteConnection(cs) con.Open() Using cmd As New SqliteCommand(con) cmd.CommandText = "SELECT * FROM Cars LIMIT 5" Dim rdr As SqliteDataReader = cmd.ExecuteReader() Using rdr Console.WriteLine(String.Format("{0, -3} {1, -8} {2, 8}", _ rdr.GetName(0), rdr.GetName(1), rdr.GetName(2))) While rdr.Read() Console.WriteLine(String.Format("{0, -3} {1, -8} {2, 8}", _ rdr.GetInt32(0), rdr.GetString(1), rdr.GetInt32(2))) End While End Using End Using con.Close() End Using End Sub End Module ``` 在此程序中，我們從`Cars`表中選擇 5 行及其列名。 ```vb Dim rdr As SqliteDataReader = cmd.ExecuteReader() ``` 我們創建一個`SqliteDataReader`對象。 ```vb Console.WriteLine(String.Format("{0, -3} {1, -8} {2, 8}", _ rdr.GetName(0), rdr.GetName(1), rdr.GetName(2))) ``` 我們使用閱讀器的`GetName()`方法獲得列的名稱。 `String.Format()`方法用于格式化數據。 ```vb While rdr.Read() Console.WriteLine(String.Format("{0, -3} {1, -8} {2, 8}", _ rdr.GetInt32(0), rdr.GetString(1), rdr.GetInt32(2))) End While ``` 我們將 SQL 語句返回的數據打印到終端。 ```vb $ mono headers.exe Id Name Price 1 Audi 52642 2 Mercedes 57127 3 Skoda 9000 4 Volvo 29000 5 Bentley 350000 ``` 該程序的輸出。 ## 受影響的行在下面的示例中，我們將發現特定的 SQL 命令已進行了多少更改。 ```vb Option Strict On Imports Mono.Data.Sqlite Module Example Sub Main() Dim cs As String = "Data Source=:memory:" Using con As New SqliteConnection(cs) con.Open() Using cmd As New SqliteCommand(con) cmd.CommandText = "CREATE TABLE Friends(Id INT, Name TEXT)" cmd.ExecuteNonQuery() cmd.CommandText = "INSERT INTO Friends VALUES(1, 'Tom')" cmd.ExecuteNonQuery() cmd.CommandText = "INSERT INTO Friends VALUES(2, 'Jane')" cmd.ExecuteNonQuery() cmd.CommandText = "INSERT INTO Friends VALUES(3, 'Rebekka')" cmd.ExecuteNonQuery() cmd.CommandText = "INSERT INTO Friends VALUES(4, 'Lucy')" cmd.ExecuteNonQuery() cmd.CommandText = "INSERT INTO Friends VALUES(5, 'Robert')" cmd.ExecuteNonQuery() cmd.CommandText = "DELETE FROM Friends WHERE Id IN (3, 4, 5)" Dim n As Integer = cmd.ExecuteNonQuery() Console.WriteLine("The statement has affected {0} rows", n) End Using con.Close() End Using End Sub End Module ``` 我們在內存中創建一個`Friends`表。在最后一個 SQL 命令中，我們刪除三行。 `ExecuteNonQuery()`方法返回上一條 SQL 命令影響的行數。 ```vb cmd.CommandText = "DELETE FROM Friends WHERE Id IN (3, 4, 5)" ``` 在此 SQL 語句中，我們刪除三行。 ```vb Dim n As Integer = cmd.ExecuteNonQuery() ``` 我們找出上一條 SQL 語句完成的更改數量。 ```vb $ mono affected_rows.exe The statement has affected 3 rows ``` 示例輸出。 ## 表架構有`GetSchemaTable()`方法，它返回有關每一列的元數據。它返回許多值，其中包括列名，列大小，基表名或列是否唯一。 ```vb Option Strict On Imports System.Data Imports Mono.Data.Sqlite Module Example Sub Main() Dim cs As String = "URI=file:test.db" Using con As New SqliteConnection(cs) con.Open() Using cmd As New SqliteCommand(con) cmd.CommandText = "SELECT * FROM Cars LIMIT 4" Dim rdr As SqliteDataReader = cmd.ExecuteReader() Using rdr Dim schemaTable As DataTable = rdr.GetSchemaTable() For Each row As DataRow In schemaTable.Rows For Each col As DataColumn In schemaTable.Columns Console.WriteLine(col.ColumnName & " = " & row(col)) Next Console.WriteLine() Next End Using End Using con.Close() End Using End Sub End Module ``` 該示例打印有關表列的大量元數據。 ```vb Dim schemaTable As DataTable = rdr.GetSchemaTable() ``` 我們得到數據庫架構表。 ```vb For Each row As DataRow In schemaTable.Rows For Each col As DataColumn In schemaTable.Columns Console.WriteLine(col.ColumnName & " = " & row(col)) Next Console.WriteLine() Next ``` 我們瀏覽保存元數據的模式表行，并將其打印到控制臺。 ```vb $ mono table_schema.exe ColumnName = Id ColumnOrdinal = 0 ColumnSize = 8 NumericPrecision = 19 NumericScale = 0 IsUnique = True IsKey = True ... ``` 摘自示例輸出。 ## 表名在與元數據有關的最后一個示例中，我們將列出`test.db`數據庫中的所有表。 ```vb Option Strict On Imports Mono.Data.Sqlite Module Example Sub Main() Dim cs As String = "URI=file:test.db" Using con As New SqliteConnection(cs) con.Open() Using cmd As New SqliteCommand(con) cmd.CommandText = "SELECT name FROM sqlite_master " _ & "WHERE type='table' ORDER BY name" Dim rdr As SqliteDataReader = cmd.ExecuteReader() Using rdr While (rdr.Read()) Console.WriteLine(rdr.GetString(0)) End While End Using End Using con.Close() End Using End Sub End Module ``` 該代碼示例將所選數據庫中的所有可用表打印到終端。 ```vb cmd.CommandText = "SELECT name FROM sqlite_master " _ & "WHERE type='table' ORDER BY name" ``` 表名稱是從`sqlite_master`表中檢索的。 ```vb $ mono table_names.exe Cars Friends2 Images ``` 這些是我們系統上的表。在 SQLite Visual Basic 教程的這一部分中，我們使用了數據庫元數據。