#include <MsgBoxConstants.au3>
#include <SQLite.au3>
#include <SQLite.dll.au3>
_SQLite_Startup ()
If @error Then
MsgBox ($MB_SYSTEMMODAL,"SQLite Error","SQLite3.dll Can't be Loaded!")
Exit - 1
EndIf
ConsoleWrite ("_SQLite_LibVersion="&_SQLite_LibVersion ()&@CRLF )
Local $hMemDb= _SQLite_Open (); Creates a :memory: database
If @error Then
MsgBox ($MB_SYSTEMMODAL,"SQLite Error","Can't create a memory Database!")
Exit - 2
EndIf
Local $bCurFKConstraints= _SQLite_ForeignKeys ()
If @error Then
MsgBox ($MB_SYSTEMMODAL,"SQLite Error","Can't read FKConstraints!")
Exit - 3
EndIf
ConsoleWrite (@CRLF &" Current _SQLite_FKConstraints="&$bCurFKConstraints&@CRLF )
Local $bNewFKConstraints= _SQLite_ForeignKeys (Default ,True )
If @error Then
MsgBox ($MB_SYSTEMMODAL,"SQLite Error","Can't update FKConstraints!")
Exit - 4
EndIf
ConsoleWrite (" New _SQLite_FKConstraints="&$bNewFKConstraints&@CRLF )
Local $iRet= _SQLite_Close ($hMemDb)
If $iRet<> $SQLITE_OKThen
MsgBox ($MB_SYSTEMMODAL,"SQLite Error","Can't Close Database = "&$iRet&" !")
Exit - 6
EndIf
Local $hMemDb2= _SQLite_Open (Default ,Default ,Default ,True ); Creates a :memory: database with Foreign keus constraints ON
If @error Then
MsgBox ($MB_SYSTEMMODAL,"SQLite Error","Can't create a memory Database with FKConstraints2!")
Exit - 7
EndIf
Local $bCurFKConstraints2= _SQLite_ForeignKeys ()
If @error Then
MsgBox ($MB_SYSTEMMODAL,"SQLite Error","Can't read FKConstraints2!")
Exit - 8
EndIf
ConsoleWrite (@CRLF &" Current _SQLite_FKConstraints2="&$bCurFKConstraints2&@CRLF )
; close the Dbs we created
Local $iRet2= _SQLite_Close ($hMemDb2)
If $iRet<> $SQLITE_OKThen
MsgBox ($MB_SYSTEMMODAL,"SQLite Error","Can't Close Database2 = "&$iRet2&" !")
Exit - 9
EndIf
_SQLite_Shutdown ()