API tools faq
paste
Advertisement
Guest User

Untitled

a guest
May 3rd, 2010
270
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualBasic 8.45 KB | None | 0 0
raw download clone embed print report
  1. 'SQLitening.Inc
  2.  
  3. '  ====================================================================
  4. '  |                                                                  |
  5. '  | SQLitening Include                                               |
  6. '  |                                                                  |
  7. '  ====================================================================
  8. '   This include file is intended to be used by PowerBASIC programs
  9. '   that use the SQLitening.Dll (also any other language that fully
  10. '   supports OLE string parameter passing). See SQLitening.Txt or
  11. '   SQLitening.Chm for information on each command.
  12. '
  13. '  ====================================================================
  14. '  PUBLIC DOMAIN SOFTWARE
  15. '  The author or authors of this code dedicate any and all
  16. '  copyright interest in this code to the public domain.
  17. '  Anyone is free to copy, modify, publish, use, compile,
  18. '  sell, or distribute the original code, either in source
  19. '  code form or as a compiled binary, for any purpose,
  20. '  commercial or non-commercial, and by any means.
  21. '  Fred Meier - November 2009
  22. '
  23. '  ====================================================================
  24.  
  25. '============================<[ Equates ]>=============================
  26. ' ==========>>> SQLitening return codes
  27. %SQLitening_NoOpenDatabase          =  -7
  28. %SQLitening_AccessDenied            =  -8
  29. %SQLitening_FileDoesNotExist        =  -9
  30. %SQLitening_FileOpenGetPutError     = -10
  31. %SQLitening_LockTimeout             = -11
  32. %SQLitening_NochangedRows           = -12
  33. %SQLitening_InvalidColumnNameNumber = -13
  34. %SQLitening_InvalidSetNumber        = -14  
  35. %SQLitening_AttachIsInvalid         = -15
  36. %SQLitening_CanNotConnect           = -16
  37. %SQLitening_InvalidKeyOrNotFound    = -17
  38. %SQLitening_SendOrReceiveError      = -18
  39. %SQLitening_InvalidStringOrRequest  = -19
  40. %SQLitening_ErrorAtServer           = -20
  41.  
  42. ' ==========>>> SQLite return codes
  43. %SQLite_OK        = 0         'Successful result
  44. %SQLite_Busy      = 5         'Database is locked
  45. %SQLite_Dups      = 19        'Constraint violation.  Normally caused by
  46.                              'trying to add a non unique key to an index
  47.                              'during an Insert or Update.
  48.  
  49. '============================<[ Declares ]>============================
  50. Declare Function slAttach lib "SQLitening.Dll" alias "slAttach" (byref rsFileName as String, byref rsAsDatabaseName as String, optional byval rsModChars as String) as Long
  51. Declare Function slBuildBindDat lib "SQLitening.Dll" alias "slBuildBindDat" (byref rsData as String, optional byval rsModChars as String) as String
  52. Declare Function slBuildInsertOrUpdate lib "SQLitening.Dll" alias "slBuildInsertOrUpdate" (byref rsTable as String, byref rsValues as String, optional byval rsColumns as String, optional byval rsWhere as String) as String
  53. Declare Sub      slClose lib "SQLitening.Dll" alias "slClose"
  54. Declare Sub      slCloseSet lib "SQLitening.Dll" alias "slCloseSet" (optional byval rlSetNumber as Long)
  55. Declare Function slConnect lib "SQLitening.Dll" alias "slConnect" (optional byval rsServer as String, optional byval rlPort as Long, optional byval rsModChars as String, optional wsOutData as String)as Long
  56. Declare Function slConvertDat lib "SQLitening.Dll" alias "slConvertDat" (rsData as String, optional byval rsModChars as String) as String
  57. Declare Sub      slDisconnect lib "SQLitening.Dll" alias "slDisconnect"
  58. Declare Function slExe lib "SQLitening.Dll" alias "slExe" (byref rsStatement as String, optional byval rsModChars as String) as Long
  59. Declare Function slExeBind lib "SQLitening.Dll" alias "slExeBind" (byref rsStatement as String, byref rsData as String, optional byval rsModChars as String) as Long
  60. Declare Function slF lib "SQLitening.Dll" alias "slF" (byval rlColumnNumber as Long, optional byval rlSetNumber as Long) as String
  61. Declare Function slFN lib "SQLitening.Dll" alias "slFN" (byref rsColumnName as String, optional byval rlSetNumber as Long) as String
  62. Declare Function slFNX lib "SQLitening.Dll" alias "slFNX" (byref rsColumnName as String, optional byval rsModChars as String, optional byval rlSetNumber as Long) as String
  63. Declare Function slFX lib "SQLitening.Dll" alias "slFX" (byval rlColumnNumber as Long, optional byval rsModChars as String, optional byval rlSetNumber as Long) as String
  64. Declare Function slGetChangeCount lib "SQLitening.Dll" alias "slGetChangeCount" (optional byval rsModChars as String) as Long
  65. Declare Function slGetColumnCount lib "SQLitening.Dll" alias "slGetColumnCount" (optional byval rlSetNumber as Long) as Long
  66. Declare Function slGetColumnName lib "SQLitening.Dll" alias "slGetColumnName" (optional byval rlColumnNumber as Long, optional byval rlSetNumber as Long) as String
  67. Declare Function slGetColumnNumber lib "SQLitening.Dll" alias "slGetColumnNumber" (byref rsColumnName as String, optional byval rlSetNumber as Long) as Long
  68. Declare Function slGetError lib "SQLitening.Dll" alias "slGetError" () as String
  69. Declare Function slGetErrorNumber lib "SQLitening.Dll" alias "slGetErrorNumber" () as Long
  70. Declare Function slGetFile lib "SQLitening.Dll" alias "slGetFile" (byref rsFileName as String, byref wsFileData as String, optional byval rsModChars as String) as Long
  71. Declare Function slGetHandle lib "SQLitening.Dll" alias "slGetHandle" (optional byval rsModChars as String, optional byval rlSetNumber as Long) as Dword
  72. Declare Function slGetInsertID lib "SQLitening.Dll" alias "slGetInsertID" () as Quad
  73. Declare Function slGetRow lib "SQLitening.Dll" alias "slGetRow" (optional byval rlSetNumber as Long, optional byval rsModChars as String) as Long
  74. Declare Function slGetStatus lib "SQLitening.Dll" alias "slGetStatus" (byval rlRequest as Long) as String
  75. Declare Function slGetTableColumnNames lib "SQLitening.Dll" alias "slGetTableColumnNames" (byref rsTable as String) as String
  76. Declare Function slGetTableNames lib "SQLitening.Dll" alias "slGetTableNames" (optional byval rsDataBase as String) as String
  77. Declare Function slGetUnusedSetNumber lib "SQLitening.Dll" alias "slGetUnusedSetNumber" as Long
  78. Declare Function slIsColumnNameValid lib "SQLitening.Dll" alias "slIsColumnNameValid" (byref rsColumnName as String, optional byval rlSetNumber as Long) as Long
  79. Declare Function slIsColumnNumberValid lib "SQLitening.Dll" alias "slIsColumnNumberValid" (byval rlColumnNumber as Long, optional byval rlSetNumber as Long) as Long
  80. Declare Function slIsFieldNull lib "SQLitening.Dll" alias "slIsFieldNull" (byval rlColumnNumber as Long, optional byval rlSetNumber as Long) as Long
  81. Declare Function slIsOpen lib "SQLitening.Dll" alias "slIsOpen" () as Long
  82. Declare Function slIsSetNumberValid lib "SQLitening.Dll" alias "slIsSetNumberValid"(optional byval rlSetNumber as Long) as Long
  83. Declare Function slOpen lib "SQLitening.Dll" alias "slOpen" (optional byval rsFileName as String, optional byval rsModChars as String) as Long
  84. Declare Sub      slPopDatabase lib "SQLitening.Dll" alias "slPopDatabase" (optional rsSave as String)
  85. Declare Sub      slPopSet lib "SQLitening.Dll" alias "slPopSet" (optional byval rlSetNumber as Long, optional rsSave as String)
  86. Declare Sub      slPushDatabase lib "SQLitening.Dll" alias "slPushDatabase" (optional wsSave as String)
  87. Declare Sub      slPushSet lib "SQLitening.Dll" alias "slPushSet" (optional byval rlSetNumber as Long, optional wsSave as String)
  88. Declare Function slPutFile lib "SQLitening.Dll" alias "slPutFile" (byref rsFileName as String, byref rsFileData as String, optional byval rsModChars as String) as Long
  89. Declare Function slRunProc lib "SQLitening.Dll" alias "slRunProc" (rsProcName as String, blParm1 as Long, blParm2 as Long, bsParm3 as String, bsParm4 as String, optional byval rsModChars as String) as Long
  90. Declare Function slSel lib "SQLitening.Dll" alias "slSel" (byref rsStatement as String, optional byval rlSetNumber as Long, optional byval rsModChars as String) as Long
  91. Declare Function slSelAry lib "SQLitening.Dll" alias "slSelAry" (byref rsStatement as String, byref wsaColsAndRows() as String, optional byval rsModChars as String) as Long
  92. Declare Sub      slSetProcessMods lib "SQLitening.Dll" alias "slSetProcessMods" (byref rsModChars as String)
  93. Declare Function slSetRelNamedLocks lib "SQLitening.Dll" alias "slSetRelNamedLocks"(byref rsLockNames as String, optional byval rsModChars as String, _
  94.                                                                                     optional byval rsSelStatement as String, optional byval rsSelSetNumber as Long, optional byval rlSelModChars as String) as Long
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!