Advertisement
Guest User

Untitled

a guest
May 27th, 2017
51
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.88 KB | None | 0 0
  1. // --------------------------------- //
  2. // Project: sqlite
  3. // Start: Friday, May 21, 2010
  4. // IDE Version: 7.341
  5.  
  6. INLINE
  7. }
  8. #define _DLL_ "sqlite3.dll"
  9. DECLARE_C(sqlite3_open, _DLL_ , (DGStr , DGNat), DGNat );
  10. namespace __GLBASIC__ {
  11. ENDINLINE
  12.  
  13.  
  14.  
  15. GLOBAL dbExtension$ = ".GLBdb"
  16. CONSTANT APPEND% = -1
  17. CONSTANT OVERWRITE% = 0
  18. CONSTANT READONLY% = 1
  19.  
  20.  
  21. FUNCTION sql3_createNewDB%: BYREF dbHandler%, path$, fileName$
  22.  
  23. LOCAL dbFile$
  24. dbFile$ = path$ + fileName$ + dbExtension$
  25.  
  26. IF fileName$ <> ""
  27. GLOBAL error = OPENFILE(dbHandler, dbFile$, OVERWRITE)
  28. ENDIF
  29.  
  30. RETURN GLOBAL error
  31.  
  32. ENDFUNCTION
  33.  
  34.  
  35. FUNCTION sql3_dll_exists%:
  36. LOCAL fh%, opened%
  37. fh = GENFILE()
  38. opened = OPENFILE(fh, "sqlite3.dll", READONLY)
  39. DEBUG "Opened: " + opened + "\n"
  40. IF opened THEN CLOSEFILE fh
  41. RETURN opened
  42. ENDFUNCTION
  43.  
  44.  
  45. FUNCTION cleanUp:
  46. CLOSEFILE dbHandler
  47. ENDFUNCTION
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement