Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- // --------------------------------- //
- // Project: sqlite
- // Start: Friday, May 21, 2010
- // IDE Version: 7.341
- INLINE
- }
- #define _DLL_ "sqlite3.dll"
- DECLARE_C(sqlite3_open, _DLL_ , (DGStr , DGNat), DGNat );
- namespace __GLBASIC__ {
- ENDINLINE
- GLOBAL dbExtension$ = ".GLBdb"
- CONSTANT APPEND% = -1
- CONSTANT OVERWRITE% = 0
- CONSTANT READONLY% = 1
- FUNCTION sql3_createNewDB%: BYREF dbHandler%, path$, fileName$
- LOCAL dbFile$
- dbFile$ = path$ + fileName$ + dbExtension$
- IF fileName$ <> ""
- GLOBAL error = OPENFILE(dbHandler, dbFile$, OVERWRITE)
- ENDIF
- RETURN GLOBAL error
- ENDFUNCTION
- FUNCTION sql3_dll_exists%:
- LOCAL fh%, opened%
- fh = GENFILE()
- opened = OPENFILE(fh, "sqlite3.dll", READONLY)
- DEBUG "Opened: " + opened + "\n"
- IF opened THEN CLOSEFILE fh
- RETURN opened
- ENDFUNCTION
- FUNCTION cleanUp:
- CLOSEFILE dbHandler
- ENDFUNCTION
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement