http://www.purebasic.com
https://www.purebasic.fr/english/
I don't use transactions. I only use selects. What do you mean with "wrapper mode"?skywalk wrote:Have you tried running your queries entirely from a sqlite wrapper in PB?
And use begin transaction..commit?
I have not hit your db sizes so I have not been pushed to full wrapper mode.
My last slowdown was fixed with a sqlite version.
I thought the same. But in my strange brain, I also thought PB included the sqlite.dll and make the same calls like I do and only wraps the result to PB internal results. I mean, Xojo and Valentina did the same. (I mean, include the dll)NicTheQuick wrote:It sounds like PB is preloading every row into memory while the C version is only prefetching it, meaning that it should be as slow as Purebasic if you actually read the blobs. On the other hand you are only selecting the column NR, so there should be no blob at all. Well, that's weird.
Code: Select all
s = sqlite3_step (stmt)
if s = #SQLITE_ROW
...
PB_Database_DynamicCursor slows extreme down 276302ms.Danilo wrote:Is there a difference when you use the flag #PB_Database_DynamicCursor for DatabaseQuery()?
Maybe you can use the same code like your C code in PB, without using PB's database commands.Code: Select all
s = sqlite3_step (stmt) if s = #SQLITE_ROW ...
WOW... I used the second link... and DAMN!!!! This is fast...Danilo wrote:Is there a difference when you use the flag #PB_Database_DynamicCursor for DatabaseQuery()?
Maybe you can use the same code like your C code in PB, without using PB's database commands.- SQLite3 BaseFunction-Include for Win + Lin + UnicodeCode: Select all
s = sqlite3_step (stmt) if s = #SQLITE_ROW ...
- SQLite Again! ... (unicode added)
Code: Select all
If Not SQLiteInit("..\Libs\sqlite\sqlite3x64.dll")
Debug "Can't initialisize SQLite3"
End
EndIf
Define hDB = SQLiteOpen("Daten.db")
If hDB = #False
Debug "Can't create database"
End
EndIf
Define lStatement = SQLitePrepare(hDB, "SELECT NR from DATEN_VIEW where CKATEGORIEN=0 and PVERBINDUNGEN=0 and CVERBINDUNGEN=0 and ORT=''")
If lStatement
While SQLiteStep(lStatement)
Define nr = SQLiteColumnQuad(lStatement, 0)
If nr
EndIf
Wend
SQLiteFinalize(lStatement)
EndIf
SQLiteClose(hDB)
SQLiteEnd()
Fred wrote:That's strange, NextDatabaseRow() for SQLite is just sqlite3_step(), nothing else.
Code: Select all
sqlite3_prepare_v2(Database->Handle, (char *)Request, -1, &Database->Statement, &Tail)Code: Select all
PRAGMA automatic_index = 0;Cyllceaux wrote:- SQLite3 BaseFunction-Include for Win + Lin + Unicode
- SQLite Again! ... (unicode added)
WOW... I used the second link... and DAMN!!!! This is fast...
Code: Select all
PRAGMA foreign_keys = ON;
PRAGMA journal_mode = WAL;
PRAGMA recursive_triggers = OFF;
PRAGMA encoding = 'UTF-8';
PRAGMA automatic_index = OFF;
PRAGMA synchronous = NORMAL;
PRAGMA page_size = 65536;
PRAGMA locking_mode = NORMAL;
PRAGMA cache_size = -32000;