Code: Select all
Result.l
Handle.l
DbIndex.l
i.l
Max.l
OpenConsole()
Print("Number of iterations: ")
ile$ = Input()
Max = Val(ile$)
PrintN("")
If InitSQLite("sqlite.dll")
; ok
Else
PrintN("SQLite Error: Can't open sqlite.dll")
EndIf
For i = 1 To Max
PrintN("Test " + Str(i))
DbIndex = DbIndex + 1
Handle = SQLiteOpen(DbIndex, "mpia.db")
If Handle
Result = SQLiteGetTable(DbIndex,"SELECT ID_ARTICLE, AUTHOR, TITLE, JOURNAL, YEAR FROM ARTICLE ORDER BY AUTHOR_S")
SQLiteRemoveData()
Result = SQLiteClose(DbIndex)
Else
PrintN("SQLiteOpen Error")
EndIf
Next
CloseConsole()
End
Could anybody give me some help, please?TEST spowodowa? b??d: nieprawid?owa strona w
module SQLITE.DLL przy 017f:673d4194.
Rejestry:
EAX=00869980 CS=017f EIP=673d4194 EFLGS=00010212
EBX=004044f4 SS=0187 ESP=0063fd80 EBP=0063fda8
ECX=c98af350 DS=0187 ESI=81656028 FS=223f
EDX=00c60080 ES=0187 EDI=8164d309 GS=0000
Bajtów w CS:EIP:
c6 80 de 00 00 00 01 83 c4 f4 50 e8 44 09 01 00
Stos:
004044f4 81656028 8164d309 00000000 004044f4 81656028 8164d309 00530000 00401bd5 00000002 0063fdec 00401bf4 00869980 00530000 c98af350 004015e8
Piotr