# 使用 Visual Basic 在 SQLite 中處理圖像 > 原文： [http://zetcode.com/db/sqliteimg/](http://zetcode.com/db/sqliteimg/) 在 SQLite Visual Basic 教程的這一章中，我們將使用圖像文件。 請注意，有些人反對將圖像放入數據庫。 在這里，我們只展示如何做。 我們不討論天氣技術問題是否將圖像保存在數據庫中。 ```vb sqlite> CREATE TABLE Images(Id INTEGER PRIMARY KEY, Data BLOB); ``` 對于此示例，我們創建一個名為`Images`的新表。 對于圖像，我們使用`BLOB`數據類型，代表二進制大對象。 ## 插入圖像 在第一個示例中，我們將圖像插入 SQLite 數據庫。 ```vb Option Strict On Imports System.IO 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() Dim data As Byte() Try data = File.ReadAllBytes("woman.jpg") Catch ex As Exception Console.WriteLine(ex.ToString()) End Try Dim cmd As New SqliteCommand(con) cmd.CommandText = "INSERT INTO Images(Data) VALUES (@img)" cmd.Prepare() cmd.Parameters.Add("@img", DbType.Binary, data.Length) cmd.Parameters("@img").Value = data cmd.ExecuteNonQuery() con.Close() End Using End Sub End Module ``` 我們從當前工作目錄中讀取圖像，并將其寫入 SQLite `test.db`數據庫的`Images`表中。 ```vb Dim data As Byte() ``` 圖像數據將存儲在字節數組中。 ```vb data = File.ReadAllBytes("woman.jpg") ``` `ReadAllBytes()`方法打開一個二進制文件，將文件的內容讀取到字節數組中，然后關閉該文件。 ```vb cmd.CommandText = "INSERT INTO Images(Data) VALUES (@img)" cmd.Prepare() ``` 我們準備一條 SQL 語句，用于將字節數組插入`Images`表的`Data`列中。 ```vb cmd.Parameters.Add("@img", DbType.Binary, data.Length) cmd.Parameters("@img").Value = data cmd.ExecuteNonQuery() ``` 我們將二進制數據綁定到預備語句。 然后執行該語句。 該圖像被寫入數據庫表。 ## 讀取圖像 在本節中，我們將執行相反的操作。 我們將從數據庫表中讀取圖像。 ```vb Option Strict On Imports System.IO 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() Dim cmd As New SqliteCommand(con) cmd.CommandText = "SELECT Data FROM Images WHERE Id=1" Dim data As Byte() = cmd.ExecuteScalar() Try If data IsNot Nothing File.WriteAllBytes("woman2.jpg", data) Else Console.WriteLine("Binary data not read") End If Catch ex As Exception Console.WriteLine(ex.ToString()) End Try con.Close() End Using End Sub End Module ``` 我們從`Images`表中讀取圖像數據，并將其寫入另一個文件`woman2.jpg`中。 ```vb cmd.CommandText = "SELECT Data FROM Images WHERE Id=1" ``` 該行從表中選擇圖像數據。 ```vb Dim data As Byte() = cmd.ExecuteScalar() ``` 我們從數據庫表中檢索二進制數據。 數據存儲在字節數組中。 ```vb If data IsNot Nothing File.WriteAllBytes("woman2.jpg", data) Else Console.WriteLine("Binary data not read") End If ``` `WriteAllBytes()`方法創建一個新文件，將指定的字節數組寫入該文件，然后關閉該文件。 如果目標文件已經存在，則將其覆蓋。 當數據庫表為空并運行此示例時，我們得到`Nothing`。 因此，我們檢查`Nothing`值。 SQLite Visual Basic 教程的這一部分專門用于讀取和寫入圖像。