The only way I can imagine is to reset the stmt and move to first on each call to SetParameterValue. (if implemented in SQLiteCursor..)
Something the line of:
But if that is a good solution. I don't know..Code:Public Sub SetParameterValue(ByVal Index As Long, ByRef Value As Variant) If PropLastResult <> 0 Then If stub_sqlite3_reset(PropHandle) = SQLITE_OK Then PropRecordCount(0) = 0 PropPosition = 0 PropLastResult = 0 Else Err.Raise Number:=vbObjectError + stub_sqlite3_errcode(stub_sqlite3_db_handle(PropHandle)), Description:=SQLiteUTF8PtrToStr(stub_sqlite3_errmsg(stub_sqlite3_db_handle(PropHandle))) End If End If [...] If PropLastResult = 0 Then PropLastResult = stub_sqlite3_step(PropHandle) If PropLastResult = SQLITE_ROW Then PropRecordCount(0) = 1 PropPosition = 1 End If End If [...] End Sub




Reply With Quote