home *** CD-ROM | disk | FTP | other *** search
/ Datatid 1999 #6 / Datatid_1999-06.iso / internet / Tango352Promo / P.SQL / PTKPKG.1 / BTR32VB.BAS < prev    next >
Encoding:
BASIC Source File  |  1998-09-15  |  3.3 KB  |  113 lines
  1. Attribute VB_Name = "BTR32VB"
  2. '{*************************************************************************
  3. '**
  4. '**  Copyright 1998 Pervasive Software Inc. All Rights Reserved
  5. '**
  6. '*************************************************************************}
  7. '{*************************************************************************
  8. '**
  9. '**  BTR32VB.bas
  10. '**
  11. '**  This software is part of the Pervasive Software Developer Kit.
  12. '**
  13. '**  This source code is only intended as a supplement to the
  14. '**  Pervasive.SQL documentation; see that documentation for detailed
  15. '**  information regarding the use of Pervasive.SQL.
  16. '**
  17. '*************************************************************************}
  18.  
  19.  
  20. ' **************************************************************************
  21. '                      Data Types
  22. ' **************************************************************************
  23. Option Explicit
  24.  
  25. DefInt A-Z
  26. Global Const BOPEN = 0
  27. Global Const BCLOSE = 1
  28. Global Const BINSERT = 2
  29. Global Const BUPDATE = 3
  30. Global Const BDELETE = 4
  31. Global Const BGETEQUAL = 5
  32. Global Const BGETNEXT = 6
  33. Global Const BGETPREVIOUS = 7
  34. Global Const BGETGREATEROREQUAL = 9
  35. Global Const BGETFIRST = 12
  36. Global Const BGETLAST = 13
  37. Global Const BCREATE = 14
  38. Global Const BSTAT = 15
  39. Global Const BBEGINTRANS = 19
  40. Global Const BTRANSSEND = 20
  41. Global Const BABORTTRANS = 21
  42. Global Const BGETPOSITION = 22
  43. Global Const BGETRECORD = 23
  44. Global Const BSTOP = 25
  45. Global Const BVERSION = 26
  46. Global Const BRESET = 28
  47. Global Const BGETNEXTEXTENDED = 36
  48. Global Const BGETKEY = 50
  49.  
  50. Global Const KEY_BUF_LEN = 255
  51.  
  52. Rem  Key Flags
  53. Global Const DUP = 1
  54. Global Const MODIFIABLE = 2
  55. Global Const BIN = 4
  56. Global Const NUL = 8
  57. Global Const SEGMENT = 16
  58. Global Const SEQ = 32
  59. Global Const DEC = 64
  60. Global Const SUP = 128
  61.  
  62. Rem  Key Types
  63. Global Const EXTTYPE = 256
  64. Global Const MANUAL = 512
  65. Global Const BSTRING = 0
  66. Global Const BINTEGER = 1
  67. Global Const BFLOAT = 2
  68. Global Const BDATE = 3
  69. Global Const BTIME = 4
  70. Global Const BDECIMAL = 5
  71. Global Const BNUMERIC = 8
  72. Global Const BZSTRING = 11
  73. Global Const BAUTOINC = 15
  74.  
  75. Global Const B_NO_ERROR = 0
  76. Global Const B_END_OF_FILE = 9
  77.  
  78. Global Const VAR_RECS = &H1
  79. Global Const BLANK_TRUNC = &H2
  80. Global Const PRE_ALLOC = &H4
  81. Global Const DATA_COMP = &H8
  82. Global Const KEY_ONLY = &H10
  83. Global Const BALANCED_KEYS = &H20
  84. Global Const FREE_10 = &H40
  85. Global Const FREE_20 = &H80
  86.  
  87. Global Const FREE_30 = &HC0
  88. Global Const DUP_PTRS = &H100
  89. Global Const INCLUDE_SYSTEM_DATA = &H200
  90. Global Const NO_INCLUDE_SYSTEM_DATA = &H1200
  91. Global Const SPECIFY_KEY_NUMS = &H400
  92. Global Const VATS_SUPPORT = &H800
  93.  
  94. Global Const FLD_STRING = 0
  95. Global Const FLD_INTEGER = 1
  96. Global Const FLD_IEEE = 2
  97. Global Const FLD_DATE = 3
  98. Global Const FLD_TIME = 4
  99. Global Const FLD_MONEY = 6
  100. Global Const FLD_LOGICAL = 7
  101. Global Const FLD_BYTE = 19
  102. Global Const FLD_UNICODE = 20
  103.  
  104. Declare Function BTRCALL Lib "w3btrv7.dll" (ByVal OP, Pb As Any, Db As Any, DL As Integer, ByRef Kb As Any, ByVal Kl, ByVal Kn) As Integer
  105. Declare Function BTRCALLID Lib "w3btrv7.dll" (ByVal OP, Pb As Any, Db As Any, DL As Long, Kb As Any, ByVal Kl, ByVal Kn, ID As Any) As Integer
  106.  
  107.                 
  108.  
  109. Sub SetField(ByRef fld As FieldMap, dataType As Long, Size As Long)
  110.     fld.dataType = dataType
  111.     fld.Size = Size
  112. End Sub
  113.