Search on name of image or a non-encrypted column
Added slSelBind
THREADED sb AS ISTRINGBUILDERA
#INCLUDE "sqlitening.inc"
FUNCTION PBMAIN () AS LONG
LOCAL x AS LONG
LOCAL sKey AS STRING
sb = CLASS "StringBuilderA"
slopen "junk.db3","C"
slexe "drop table if exists t1"
slexe "create table if not exists t1(MyKey UNIQUE,MyData)"
slSetProcessMods "K" + SPACE$(32)
sKey = "key1"
slExeBind "insert into t1 values(?,?)",slBuildBindDat(sKey,"T") +_
slBuildBindDat("Heidi","TN")
IF slGetChangeCount <> 1 THEN ? "Insert error":EXIT FUNCTION
slSel "select MyData from t1 where MyKey = " + WRAP$(sKey,$SQ,$SQ)
DO WHILE slGetRow
AddItem slConvertDat(slf(1),"D")
AddItem slfx(1,"D")
AddItem slfnx("MyData","D")
LOOP
LOCAL sArray() AS STRING
slSelAry "select MyData from t1 where MyKey="+WRAP$(sKey,$SQ,$SQ),sArray(),"D1 Q9c"
FOR x = 1 TO UBOUND(sArray)
AddItem sArray(x)
NEXT
'This could prevent sql injection
slSelBind "select MyData from t1 where MyKey = ?",slBuildBindDat(sKey,"T")
DO WHILE slGetRow
AddItem slConvertDat(slf(1),"D")
AddItem slfx(1,"D")
AddItem slfnx("MyData","D")
LOOP
? sb.string
END FUNCTION
SUB AddItem(s AS STRING)
sb.add s + $CR
END SUB