Public Sub DownloadBlob(ByVal sqConnection As SQLiteConnection)
Dim sqCommand As New SQLiteCommand("SELECT * FROM Pictures", sqConnection)
sqConnection.Open()
Dim sqReader As SQLiteDataReader = sqCommand.ExecuteReader(System.Data.CommandBehavior.Default)
Try
While sqReader.Read()
Dim myBlob As SQLiteBlob = sqReader.GetSQLiteBlob(sqReader.GetOrdinal("Picture"))
If Not myBlob.IsNull Then
Dim FN As String = sqReader.GetString(sqReader.GetOrdinal("PicName"))
Dim fs As FileStream = New FileStream("D:\Tmp\" + FN + ".bmp", FileMode.Create)
Dim w As BinaryWriter = New BinaryWriter(fs)
w.Write(myBlob.Value)
w.Close()
fs.Close()
Console.WriteLine(String.Concat(FN, " downloaded."))
End If
End While
Finally
sqReader.Close()
sqConnection.Close()
End Try
End Sub