API tools faq
paste
Advertisement
Guest User

Untitled

a guest
May 3rd, 2010
197
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualBasic 29.15 KB | None | 0 0
raw download clone embed print report
  1. 'SQLiteningU.Inc
  2.  
  3. '  ====================================================================
  4. '  |                                                                  |
  5. '  | SQLitening Universal Include                                     |
  6. '  |                                                                  |
  7. '  ====================================================================
  8. '   This include file is intended to be used by non PowerBASIC
  9. '   programs that use the SQLiteningU.Dll This include file will
  10. '   need to be modified to support specific language syntax.
  11. '   Comments include here with some of the Declares are only present
  12. '   for parameter passing explanation. See SQLitening.Txt or
  13. '   SQLitening.Chm for information on each command.
  14. '
  15. '  ====================================================================
  16. '  PUBLIC DOMAIN SOFTWARE
  17. '  The author or authors of this code dedicate any and all
  18. '  copyright interest in this code to the public domain.
  19. '  Anyone is free to copy, modify, publish, use, compile,
  20. '  sell, or distribute the original code, either in source
  21. '  code form or as a compiled binary, for any purpose,
  22. '  commercial or non-commercial, and by any means.
  23. '  Fred Meier - November 2009
  24. '
  25. '  ====================================================================
  26.  
  27. '============================<[ Equates ]>=============================
  28. ' ==========>>> SQLitening return codes
  29. %SQLitening_NoOpenDatabase          =  -7
  30. %SQLitening_AccessDenied            =  -8
  31. %SQLitening_FileDoesNotExist        =  -9
  32. %SQLitening_FileOpenGetPutError     = -10
  33. %SQLitening_LockTimeout             = -11
  34. %SQLitening_NochangedRows           = -12
  35. %SQLitening_InvalidColumnNameNumber = -13
  36. %SQLitening_InvalidSetNumber        = -14  
  37. %SQLitening_AttachIsInvalid         = -15
  38. %SQLitening_CanNotConnect           = -16
  39. %SQLitening_InvalidKeyOrNotFound    = -17
  40. %SQLitening_SendOrReceiveError      = -18
  41. %SQLitening_InvalidStringOrRequest  = -19
  42. %SQLitening_ErrorAtServer           = -20
  43.  
  44. ' ==========>>> SQLite return codes
  45. %SQLite_OK        = 0         'Successful result
  46. %SQLite_Busy      = 5         'Database is locked
  47. %SQLite_Dups      = 19        'Constraint violation.  Normally caused by
  48.                              'trying to add a non unique key to an index
  49.                              'during an Insert or Update.
  50.  
  51. '=============================<[ Attach ]>=============================
  52. Declare Function sluAttach lib "SQLiteningU.Dll" alias "sluAttach" ( _
  53.                                  byval FileName as Long, _
  54.                                  byval AsDatabaseName as Long, _
  55.                                  byval ModChars as Long) as Long
  56. '   FileName is a pointer to a null-terminated string.
  57. '   AsDatabaseName is a pointer to a null-terminated string.
  58. '   ModChars is a pointer to a null-terminated string. If not needed you
  59. '            may pass a zero.
  60.  
  61. '==========================<[ BuildBindDat ]>==========================
  62. Declare Sub      sluBuildBindDat lib "SQLiteningU.Dll" alias "sluBuildBindDat" ( _
  63.                                  byval Data as Long, _
  64.                                  byval LengthOfData as Long, _
  65.                                  byval BindDat as Long, _
  66.                                  byref SizeOfBindDat as Long, _
  67.                                  byval ModChars as Long)
  68. '   Data is a pointer to the memory containing the data to be bound.
  69. '   LengthOfData contains the length of the data.
  70. '   BindDat is a pointer to the returning binary data.
  71. '   SizeOfBindDat is both passed and returned. Pass the size of BindDat.
  72. '                    It must be at least the size of the returning binary data.
  73. '                    The actual length of the returing binary data is returned.
  74. '                    If the passed size is too small then the returning length will
  75. '                    be set to -1.
  76. '   ModChars is a pointer to a null-terminated string. If not needed you
  77. '            may pass a zero.
  78.  
  79. '======================<[ BuildInsertOrUpdate ]>=======================
  80. Declare Sub      sluBuildInsertOrUpdate lib "SQLiteningU.Dll" alias "sluBuildInsertOrUpdate" ( _
  81.                                  byval Table as Long, _
  82.                                  byval Values as Long, _
  83.                                  byval LengthOfValues as Long, _
  84.                                  byval Columns as Long, _
  85.                                  byval Where as Long, _
  86.                                  byval SqlStatment as Long, _
  87.                                  byref SizeOfSqlStatement as Long)
  88. '   Table is a pointer to a null-terminated string.
  89. '   Values is a pointer to the memory containing the null delimited values.
  90. '   LengthOfValues contains the length of the null delimited values.
  91. '   Columns is a pointer to a null-terminated string.
  92. '           If not needed you may pass a zero.
  93. '   Where is a pointer to a null-terminated string.
  94. '         If not needed you may pass a zero.
  95. '   SqlStatement is a pointer to the memory which will receive the built statement.
  96. '                A Null (hex '00') will be added to end.
  97. '   SizeOfSqlStatement is both passed and returned. Pass the size of SqlStatement.
  98. '                      It must be at least the size of the returning statement + 1.
  99. '                      The actual length of the returing statement is returned.
  100. '                      If the passed size is too small then the returning length will
  101. '                      be set to -1.
  102.  
  103. '=============================<[ Close ]>==============================
  104. Declare Sub      sluClose lib "SQLitening.Dll" alias "slClose"
  105. '   Calls SQLitening.Dll directly.
  106.  
  107. '===========================<[ Close Set ]>============================
  108. Declare Sub      sluCloseSet lib "SQLitening.Dll" alias "slCloseSet" ( _
  109.                                  byval SetNumber as Long)
  110. '   Calls SQLitening.Dll directly.
  111.  
  112. '============================<[ Connect ]>=============================
  113. Declare Function sluConnect lib "SQLiteningU.Dll" alias "sluConnect" (_
  114.                                  byval Server as Long, _
  115.                                  byval Port as Long, _
  116.                                  byval ModChars as Long, _
  117.                                  byval OutData as Long, _
  118.                                  byref SizeOfOutData as Long) as Long
  119. '   Server is a pointer to a null-terminated string.
  120. '   ModChars is a pointer to a null-terminated string. If not needed you
  121. '            may pass a zero.
  122. '   DataOut is a pointer to the returning out data. If not needed you
  123. '           may pass a zero.
  124. '   SizeOfOutData is both passed and returned. Pass the size of OutData.
  125. '                 It must be at least the size of the returning out data.
  126. '                 The actual length of the returing out data is returned.
  127. '                 If the passed size is too small then the returning length will
  128. '                 be set to -1.
  129.  
  130. '===========================<[ ConvertDat ]>===========================
  131. Declare Sub      sluConvertDat lib "SQLiteningU.Dll" alias "sluConvertDat" ( _
  132.                                  byval DataIn as Long, _
  133.                                  byval LengthOfDataIn as Long, _
  134.                                  byval DataOut as Long, _
  135.                                  byref SizeOfDataOut as Long, _
  136.                                  byval ModChars as Long)
  137.  
  138. '   DataIn is a pointer to the memory containing the data to be converted.
  139. '   LengthOfDataIn contains the length of the data to be converted.
  140. '   DataOut is a pointer to the returning converted data.
  141. '   SizeOfDataOut is both passed and returned. Pass the size of DataOut.
  142. '                 It must be at least the size of the returning converted data.
  143. '                 The actual length of the returing converted data is returned.
  144. '                 If the passed size is too small then the returning length will
  145. '                 be set to -1.
  146. '   ModChars is a pointer to a null-terminated string. If not needed you
  147. '            may pass a zero.
  148.  
  149. '===========================<[ Disconnect ]>===========================
  150. Declare Sub      sluDisconnect lib "SQLitening.Dll" alias "slDisconnect"
  151. '   Calls SQLitening.Dll directly.
  152.  
  153. '==============================<[ Exe ]>===============================
  154. Declare Function sluExe lib "SQLiteningU.Dll" alias "sluExe" (_
  155.                                  byval Statement as Long, _
  156.                                  byval ModChars as Long) as Long
  157. '   Statement is a pointer to a null-terminated string.
  158. '   ModChars is a pointer to a null-terminated string. If not needed you
  159. '            may pass a zero.
  160.  
  161. '============================<[ Exe Bind ]>============================
  162. Declare Function sluExeBind lib "SQLiteningU.Dll" alias "sluExeBind" ( _
  163.                                  byval Statement as Long, _
  164.                                  byval BindDats as Long, _
  165.                                  byval LengthOfBindDats as Long, _
  166.                                  byval ModChars as Long) as Long
  167. '   Statement is a pointer to a null-terminated string.
  168. '   BindDats is a pointer to the binary dats.
  169. '   LengthOfBindDats contains the length of the binary dats.
  170. '   ModChars is a pointer to a null-terminated string. If not needed you
  171. '            may pass a zero.
  172.  
  173. '===========================<[ Field Get ]>============================
  174. Declare Sub      sluF lib "SQLiteningU.Dll" alias "sluF" ( _
  175.                                  byval ColumnNumber as Long, _
  176.                                  byval FieldValue as Long, _
  177.                                  byref SizeOfFieldValue as Long, _
  178.                                  byval SetNumber as Long)
  179.  
  180. '   FieldValue is a pointer to the memory which will receive the field value.
  181. '              A Null (hex '00') will be added to end.
  182. '   SizeOfFieldValue is both passed and returned. Pass the size of FieldValue.
  183. '                    It must be at least the size of the returning field value + 1.
  184. '                    The actual length of the returing field value is returned.
  185. '                    If the passed size is too small then error -13 will be raised
  186. '                    and the returning length will be set to -1.
  187.  
  188. '=======================<[ Field Get Extended ]>=======================
  189. Declare Sub      sluFX lib "SQLiteningU.Dll" alias "sluFX" ( _
  190.                                  byval ColumnNumber as Long, _
  191.                                  byval FieldValue as Long, _
  192.                                  byref SizeOfFieldValue as Long, _
  193.                                  byval SetNumber as Long, _
  194.                                  byval ModChars as Long)
  195. '   FieldValue is a pointer to the memory which will receive the field value.
  196. '              A Null (hex '00') will be added to end (meaningless for a field
  197. '              containing binary data).
  198. '   SizeOfFieldValue is both passed and returned. Pass the size of FieldValue.
  199. '                    It must be at least the size of the returning field value + 1.
  200. '                    The actual length of the returing field value is returned.
  201. '                    If the passed size is too small then error -13 will be raised
  202. '                    and the returning length will be set to -1.
  203. '   ModChars is a pointer to a null-terminated string. If not needed you
  204. '            may pass a zero.
  205.  
  206. '=========================<[ Field Name Get ]>=========================
  207. Declare Sub      sluFN lib "SQLiteningU.Dll" alias "sluFN" ( _
  208.                                  byval ColumnName as Long, _
  209.                                  byval FieldValue as Long, _
  210.                                  byref SizeOfFieldValue as Long, _
  211.                                  byval SetNumber as Long)
  212. '   ColumnName is a pointer to a null-terminated string.
  213. '   FieldValue is a pointer to the memory which will receive the field value.
  214. '              A Null (hex '00') will be added to end.
  215. '   SizeOfFieldValue is both passed and returned. Pass the size of FieldValue.
  216. '                    It must be at least the size of the returning field value + 1.
  217. '                    The actual length of the returing field value is returned.
  218. '                    If the passed size is too small then error -13 will be raised
  219. '                    and the returning length will be set to -1.
  220.  
  221. '====================<[ Field Name Get Extended ]>=====================
  222. Declare Sub      sluFNX lib "SQLiteningU.Dll" alias "sluFNX" ( _
  223.                                  byval ColumnName as Long, _
  224.                                  byval FieldValue as Long, _
  225.                                  byref SizeOfFieldValue as Long, _
  226.                                  byval SetNumber as Long, _
  227.                                  byval ModChars as Long)
  228. '   ColumnName is a pointer to a null-terminated string.
  229. '   FieldValue is a pointer to the memory which will receive the field value.
  230. '              A Null (hex '00') will be added to end (meaningless for a field
  231. '              containing binary data).
  232. '   SizeOfFieldValue is both passed and returned. Pass the size of FieldValue.
  233. '                    It must be at least the size of the returning field value + 1.
  234. '                    The actual length of the returing field value is returned.
  235. '                    If the passed size is too small then error -13 will be raised
  236. '                    and the returning length will be set to -1.
  237. '   ModChars is a pointer to a null-terminated string. If not needed you
  238. '            may pass a zero.
  239.  
  240. '========================<[ Get Change Count ]>========================
  241. Declare Function sluGetChangeCount lib "SQLiteningU.Dll" alias "sluGetChangeCount" ( _
  242.                                  byval ModChars as Long) as Long
  243. '   ModChars is a pointer to a null-terminated string. If not needed you
  244. '            may pass a zero.
  245.  
  246. '========================<[ Get Column Count ]>========================
  247. Declare Function sluGetColumnCount lib "SQLitening.Dll" alias "slGetColumnCount" ( _
  248.                                  byval SetNumber as Long) as Long
  249. '   Calls SQLitening.Dll directly.
  250.  
  251. '========================<[ Get Column Name ]>=========================
  252. Declare Sub      sluGetColumnName lib "SQLiteningU.Dll" alias "sluGetColumnName" ( _
  253.                                  byval ColumnNumber as Long, _
  254.                                  byval ColumnName as Long, _
  255.                                  byref SizeOfColumnName as Long, _
  256.                                  byval SetNumber as Long)
  257. '   ColumnName is a pointer to the memory which will receive the column
  258. '              name(s).  Will return all column names if the passed column
  259. '              number is zero. If all column names are returned then it is
  260. '              a delimited text string which is $NUL seperated.  A Null
  261. '              (hex '00') will be added to end (meaningless if all column
  262. '              names are returned).
  263. '   SizeOfColumnName is both passed and returned. Pass the size of ColumnName.
  264. '                    It must be at least the size of the returning column name + 1.
  265. '                    The actual length of the returing column name(s) is returned.
  266. '                    If the passed size is too small then error -13 will be raised
  267. '                    and the returning length will be set to -1.
  268.  
  269. '=======================<[ Get Column Number ]>========================
  270. Declare Function sluGetColumnNumber lib "SQLiteningU.Dll" alias "sluGetColumnNumber" ( _
  271.                                  byval ColumnName as Long, _
  272.                                  byval rlSetNumber as Long) as Long
  273.  
  274. '===========================<[ Get Error ]>============================
  275. Declare Sub      sluGetError lib "SQLiteningU.Dll" alias "sluGetError" ( _
  276.                                  byval Error as Long, _
  277.                                  byref SizeOfError as Long)
  278. '   Error is a pointer to the memory which will receive the field value.
  279. '              A Null (hex '00') will be added to end.
  280. '   SizeOfError is both passed and returned. Pass the size of Error.
  281. '               It must be at least the size of the returning error + 1.
  282. '               The actual length of the returing error is returned.
  283. '               If the passed size is too small then error -13 will be raised
  284. '               and the returning length will be set to -1.
  285.  
  286. '========================<[ Get Error Number ]>========================
  287. Declare Function sluGetErrorNumber lib "SQLitening.Dll" alias "slGetErrorNumber" () as Long
  288. '   Calls SQLitening.Dll directly.
  289.  
  290. '============================<[ Get File ]>============================
  291. Declare Function sluGetFile lib "SQLiteningU.Dll" alias "sluGetFile" ( _
  292.                                  byval FileName as Long, _
  293.                                  byval FileData as Long, _
  294.                                  byref SizeOfFileData as Long, _
  295.                                  byval ModChars as Long) as Long
  296. '   FileName is a pointer to a null-terminated string.
  297. '   FileData is a pointer to the memory which will receive the file data.
  298. '   SizeOfFileData is both passed and returned. Pass the size of FileData.
  299. '                  It must be at least the size of the returning file data.
  300. '                  The actual length of the returing file data is returned.
  301. '                  If the passed size is too small then error -9 will be raised.
  302. '                  and the returning length will be set to -1.
  303.  
  304. '===========================<[ Get Handle ]>===========================
  305. Declare Function sluGetHandle lib "SQLiteningU.Dll" alias "sluGetHandle" ( _
  306.                                  byval ModChars as Long, _
  307.                                  byval SetNumber as Long) as Long
  308. '   ModChars is a pointer to a null-terminated string.  If not needed
  309. '            you may pass a zero.
  310.  
  311. '=========================<[ Get Insert ID ]>==========================
  312. Declare Function sluGetInsertID lib "SQLitening.Dll" alias "slGetInsertID" as Quad
  313. '   Calls SQLitening.Dll directly.   Returning a 64 bit integer.
  314.  
  315. '============================<[ Get Row ]>=============================
  316. Declare Function sluGetRow lib "SQLiteningU.Dll" alias "sluGetRow" ( _
  317.                                  byval SetNumber as Long, _
  318.                                  byval ModChars as Long) as Long
  319. '   ModChars is a pointer to a null-terminated string. If not needed you
  320. '            may pass a zero.
  321.  
  322. '===========================<[ Get Status ]>===========================
  323. Declare Sub      sluGetStatus lib "SQLiteningU.Dll" alias "sluGetStatus" ( _
  324.                                  byval rlRequest as Long, _
  325.                                  byval Status as Long, _
  326.                                  byref SizeOfStatus as Long)
  327. '   Status is a pointer to the memory which will receive the status
  328. '          data. The data is returned as a delimited text string.
  329. '   SizeOfStatus is both passed and returned. Pass the size of Status.
  330. '                It must be at least the size of the returning status data.
  331. '                The actual length of the returing status data is returned.
  332. '                If the passed size is too small then error -13 will be raised
  333. '                and the returning length will be set to -1.
  334.  
  335. '=====================<[ Get Table Column Names ]>=====================
  336. Declare Sub      sluGetTableColumnNames lib "SQLiteningU.Dll" alias "sluGetTableColumnNames" ( _
  337.                                  byval TableName as Long, _
  338.                                  byval ColumnNames as Long, _
  339.                                  byref SizeOfColumnNames as Long)
  340. '   TableName is a pointer to a null-terminated string.
  341. '   ColumnNames is a pointer to the memory which will receive the column
  342. '               names. The names are returned as a delimited text string
  343. '               which is $NUL seperated.
  344. '   SizeOfColumnNames is both passed and returned. Pass the size of ColumnName.
  345. '                     It must be at least the size of the returning column names.
  346. '                     The actual length of the returing column names is returned.
  347. '                     If the passed size is too small then error -13 will be raised
  348. '                     and the returning length will be set to -1.
  349.  
  350. '========================<[ Get Table Names ]>=========================
  351. Declare Sub      sluGetTableNames lib "SQLiteningU.Dll" alias "sluGetTableNames" (_
  352.                                  byval DataBase as Long, _
  353.                                  byval TableNames as Long, _
  354.                                  byref SizeOfTableNames as Long)
  355. '   DataBase is a pointer to a null-terminated string.
  356. '   TableNames is a pointer to the memory which will receive the table
  357. '              names. The names are returned as a delimited text string
  358. '              which is $NUL seperated.
  359. '   SizeOfTableNames is both passed and returned. Pass the size of TableName.
  360. '                    It must be at least the size of the returning table names.
  361. '                    The actual length of the returing table names is returned.
  362. '                    If the passed size is too small then error -13 will be raised
  363. '                    and the returning length will be set to -1.
  364.  
  365. '=====================<[ Get Unused Set Number ]>======================
  366. Declare Function sluGetUnusedSetNumber lib "SQLitening.Dll" alias "slGetUnusedSetNumber" as Long
  367. '   Calls SQLitening.Dll directly.
  368.  
  369. '======================<[ Is Column Name Valid ]>======================
  370. Declare Function sluIsColumnNameValid lib "SQLiteningU.Dll" alias "sluIsColumnNameValid" ( _
  371.                                  byval ColumnName as Long, _
  372.                                  byval SetNumber as Long) as Long
  373. '   ColumnName is a pointer to a null-terminated string.
  374.  
  375. '=====================<[ Is Column Number Valid ]>=====================
  376. Declare Function sluIsColumnNumberValid lib "SQLitening.Dll" alias "slIsColumnNumberValid" (_
  377.                                  byval ColumnNumber as Long, _
  378.                                  byval SetNumber as Long) as Long
  379. '   Calls SQLitening.Dll directly.
  380.  
  381. '============================<[ Is Open ]>=============================
  382. Declare Function sluIsOpen lib "SQLitening.Dll" alias "slIsOpen" as Long
  383. '   Calls SQLitening.Dll directly.
  384.  
  385. '=========================<[ Is Field Null ]>==========================
  386. Declare Function sluIsFieldNull lib "SQLitening.Dll" alias "slIsFieldNull" ( _
  387.                                  byval ColumnNumber as Long, _
  388.                                  byval SetNumber as Long) as Long
  389. '   Calls SQLitening.Dll directly.
  390.  
  391. '======================<[ Is Set Number Valid ]>=======================
  392. Declare Function sluIsSetNumberValid lib "SQLitening.Dll" alias "slIsSetNumberValid" ( _
  393.                                  byval SetNumber as Long) as Long
  394. '   Calls SQLitening.Dll directly.
  395.  
  396. '==========================<[ Pop Database ]>==========================
  397. Declare Sub      sluPopDatabase lib "SQLiteningU.Dll" alias "sluPopDatabase" ( _
  398.                                  byval Save as Long)
  399. '   Save is a pointer to the 21 byte save area set by slPushDatabase.
  400. '        If not needed you may pass a zero.
  401.  
  402. '============================<[ Pop Set ]>=============================
  403. Declare Sub      sluPopSet lib "SQLiteningU.Dll" alias "sluPopSet" ( _
  404.                                  byval SetNumber as Long, _
  405.                                  byval Save as Long, _
  406.                                  byval LenghtOfSave as Long)
  407. '   Save is a pointer to the save area set by slPushSet. If not needed you
  408. '        may pass a zero.
  409. '   LengthOfSave contains the length of the save area. If not needed you
  410. '        may pass a zero.
  411.  
  412. '=========================<[ Push Database ]>==========================
  413. Declare Sub      sluPushDatabase lib "SQLiteningU.Dll" alias "sluPushDatabase" ( _
  414.                                  byval Save as Long)
  415. '   Save is a pointer to a 21 byte area to receive the save data. If not
  416. '        needed you may pass a zero.
  417.  
  418. '============================<[ Push Set ]>============================
  419. Declare Sub      sluPushSet lib "SQLiteningU.Dll" alias "sluPushSet" ( _
  420.                                  byval SetNumber as Long, _
  421.                                  byval Save as Long, _
  422.                                  byref SizeOfSave as Long)
  423. '   Save is a pointer to the save area set by slPushSet. If not needed you
  424. '        may pass a zero.
  425. '   SizeOfSave is both passed and returned. Pass the size of Save. It must
  426. '              be at least the size of the returning save data. This varies
  427. '              depending on the number of columns in the set and the size of
  428. '              the column names.  The actual length of the retured save data
  429. '              is returned. If the passed size is too small then returning
  430. '              length will be set to -1.
  431.  
  432. '============================<[ Put File ]>============================
  433. Declare Function sluPutFile lib "SQLiteningU.Dll" alias "sluPutFile" ( _
  434.                                  byval FileName as Long, _
  435.                                  byval FileData as Long, _
  436.                                  byval LengthOfFileData as Long, _
  437.                                  byval ModChars as Long) as Long
  438. '   FileName is a pointer to a null-terminated string.
  439. '   FileData is a pointer to the memory which will contains the file data.
  440. '   LengthOfFileData contains the length of the file data.
  441.  
  442. '============================<[ Run Proc ]>============================
  443. Declare Function sluRunProc lib "SQLiteningU.Dll" alias "sluRunProc" ( _
  444.                                  byval ProcName as Long, _
  445.                                  byref Parm1 as Long, _
  446.                                  byref Parm2 as Long, _
  447.                                  byval Parm3 as Long, _
  448.                                  byval LengthOfParm3 as Long, _
  449.                                  byref SizeOfParm3 as Long, _
  450.                                  byval Parm4 as Dword, _
  451.                                  byval LengthOfParm4 as Long, _
  452.                                  byref SizeOfParm4 as Long, _
  453.                                  byval ModChars as Long) as Long
  454. '   ProcName is a pointer to a null-terminated string.
  455. '   Parm3 is a pointer to the memory which will contain the parm 3 data.
  456. '   LengthOfParm2 contains the length of the passed parm 3 data.
  457. '   SizeOfParm2 is both passed and returned. Pass the size of Parm3.
  458. '                    It must be at least the size of the returning parm 3 data.
  459. '                    The actual length of the returing parm 3 data is returned.
  460. '                    If the passed size is too small then the returning length will
  461. '                    be set to -1.
  462. '   Parm4 is a pointer to the memory which will contain the parm 4 data.
  463. '   LengthOfParm4 contains the length of the passed parm 4 data.
  464. '   SizeOfParm4 is both passed and returned. Pass the size of Parm4.
  465. '                    It must be at least the size of the returning parm 4 data.
  466. '                    The actual length of the returing parm 4 data is returned.
  467. '                    If the passed size is too small then the returning length will
  468. '                    be set to -1.
  469. '   ModChars is a pointer to a null-terminated string. If not needed you
  470. '            may pass a zero.
  471.  
  472. '==============================<[ Open ]>==============================
  473. Declare Function sluOpen lib "SQLiteningU.Dll" alias "sluOpen" ( _
  474.                                  byval FileName as Long, _
  475.                                  byval ModChars as Long) as Long
  476. '   FileName is a pointer to a null-terminated string. If not needed you
  477. '            may pass a zero.
  478. '   ModChars is a pointer to a null-terminated string. If not needed you
  479. '            may pass a zero.
  480.  
  481. '==============================<[ Sel ]>===============================
  482. Declare Function sluSel lib "SQLiteningU.Dll" alias "sluSel" ( _
  483.                                  byval Statement as Long, _
  484.                                  byval SetNumber as Long, _
  485.                                  byval ModChars as Long) as Long
  486. '   Statement is a pointer to a null-terminated string.
  487. '   ModChars is a pointer to a null-terminated string. If not needed you
  488. '            may pass a zero.
  489. '
  490.  
  491. '========================<[ Set Process Mods ]>========================
  492. Declare Sub      sluSetProcessMods lib "SQLiteningU.Dll" alias "sluSetProcessMods" ( _
  493.                                 byval ModChars as Long)
  494. '   ModChars is a pointer to a null-terminated string.
  495.  
  496. '======================<[ Sel Rel Named Locks ]>=======================
  497. Declare Function sluSetRelNamedLocks lib "SQLiteningU.Dll" alias "sluSetRelNamedLocks" ( _
  498.                                 byval LockNames as Long, _
  499.                                 byval ModChars as Long, _
  500.                                 byval SelStatement as Long, _
  501.                                 byval SelSetNumber as Long, _
  502.                                 byval SelModChars as Long) as Long
  503. '   LockNames is a pointer to a null-terminated string.
  504. '   ModChars is a pointer to a null-terminated string. If not needed you
  505. '            may pass a zero.
  506. '   SelStatement is a pointer to a null-terminated string. If not needed you
  507. '                may pass a zero.
  508. '   SelModChars is a pointer to a null-terminated string. If not needed you
  509. '               may pass a zero.
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!