BLOB in SQLite3
Verfasst: 09.10.2006 15:55
Sqlite3 kann BLOB. Wie kann ich mit PureBasic eine Datei in eine Tabelle schmieren (ohne String)?
K.
K.
die SQLite3-Lib in den PBOSL auchKarl hat geschrieben:Sqlite3 kann BLOB.
Code: Alles auswählen
Procedure WriteBlob()
For lCounter = 0 To 2
FF = ReadFile(#PB_Any, "demodata\image" + Str(lCounter) + ".jpg")
If FF
FileLen = Lof(FF)
MemBuffer = AllocateMemory(FileLen)
ReadData(FF,MemBuffer, FileLen)
CloseFile(FF)
Statement = SQLite3_Prepare(dbHandler, "insert into tblBlob (fldKey, fldBlob) values (?, ?);")
If Statement
Key$=Str(lCounter)
SQLite3_Bind_Text(Statement, 1, @Key$)
SQLite3_Bind_Blob(Statement, 2, MemBuffer, FileLen)
SQLite3_Step(Statement)
SQLite3_Finalize(Statement)
EndIf
FreeMemory(MemBuffer)
EndIf
Next lCounter
EndProcedure