save image from sqllite db?

[Georg]

How can i save a picture from a database p.E.

cmd.CommandText = "SELECT image FROM pictures"
reader.Value = cmd.ExecuteReader
reader.ReadNextRow
bild = reader.GetImage(0)

bild should be saved as test.jpg

 

[Erel]

You should use reader.GetBytes(0) instead.
Store the bytes in a bytes array and then save it using the BinaryFile library.
Something like:

Sub Globals
    Dim buffer(0) As byte
End Sub

    buffer() = reader.GetBytes(0)
    FileOpen(c1, "out.dat", cRandom)
    BinaryFile.New1(c1, False)
    BinaryFile.WriteBytes(buffer())
    FileClose(c1)