home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4609 / vbisam / vbis23dm.bas < prev    next >
BASIC Source File  |  1994-07-08  |  4KB  |  103 lines
  1.  
  2. ' VBIS23DM.BAS
  3. '
  4. '*********************************************************************************
  5. '
  6. ' THIS .BAS FILE CORRESPONDS TO THE VBIS23DM.DLL FILE -- A DEMONSTRATION VERSION
  7. ' OF VB/ISAM FOR WINDOWS.
  8. '
  9. '*********************************************************************************
  10. '
  11. ' VB/ISAM MX for Windows Version 2.3
  12. ' Copyright (c) Software Source 1991-1994.  All rights
  13. ' reserved.  VB/ISAM is a proprietary computer software product provided by
  14. ' its copyright holder, Software Source (42808 Christy St., Fremont,
  15. ' California); both the software and its documentation are copyrighted, and
  16. ' you may not copy or use either except as expressly provided in the VB/ISAM
  17. ' Software License.
  18.  
  19. '******************* Global Constants and Typedefs *******************************
  20.  
  21. Global Const VIS_OK = 0
  22. Global Const VIS_NOT_FOUND = 1
  23. Global Const VIS_UPDATE_VIOLATION = 2
  24. Global Const VIS_ACCESS_DENIED = 3
  25. Global Const VIS_BAD_DATASET_NUMBER = 4
  26. Global Const VIS_BAD_FORMAT = 5
  27. Global Const VIS_INVALID_KEY = 6
  28. Global Const VIS_BAD_PARAMETER_VALUE = 7
  29. Global Const VIS_BAD_FILE = 8
  30. Global Const VIS_ALREADY_EXISTS = 9
  31. Global Const VIS_NO_ROOM = 10
  32. Global Const VIS_DISK_FULL = 11
  33. Global Const VIS_OUT_OF_MEMORY = 12
  34. Global Const VIS_DOS_ERROR = 13
  35. Global Const VIS_DISK_ERROR = 14
  36. Global Const VIS_DATA_VALIDITY_CHECK = 15
  37. Global Const VIS_INVALID_SECONDARY_KEY = 16
  38. Global Const VIS_SEQUENCE_ERROR = 17
  39. Global Const VIS_OUT_OF_FILE_HANDLES = 18
  40. Global Const VIS_SPECIAL_DEMO_LIMITATION = 99
  41.  
  42. Global Const ADD_OR_REPLACE = 0
  43. Global Const ADD_ONLY = 1
  44. Global Const REPLACE_ONLY = 2
  45.  
  46. Global Const XLOOKUP = 1
  47. Global Const XNEXT = 2
  48. Global Const XPREVIOUS = 4
  49. Global Const XCURRENT = 8
  50.  
  51. Global Const XANY = 16
  52. Global Const XEQ = 32
  53. Global Const XBEGINS = 64
  54. Global Const XNOT = 128
  55. Global Const XLT = 256
  56. Global Const XGT = 512
  57. Global Const XLE = 1024
  58. Global Const XGE = 2048
  59.  
  60. Global Const XGET_DATA = 4096
  61. Global Const XNO_DATA = 8192
  62.  
  63. Type VBISAMInfo
  64.     RecordsInFile           As Long
  65.     GroupsUsed              As Integer
  66.     AllocatedGpsAvail       As Integer
  67.     MaxPrimaryKeyLen        As Integer
  68.     GroupSize               As Long
  69.     InitialAllocation       As Integer
  70.     IncrementalAllocation   As Integer
  71.     FreeFileNoteSpace       As Integer
  72.     StandardFormat          As String
  73.     Reserved                As String
  74. End Type
  75.  
  76. '******************* Function Declarations ***************************************
  77.  
  78. Declare Function VmxCreate Lib "VBIS23DM.DLL" (DatasetName$, MaxPrimaryKeyLength%, StandardFormat$) As Integer
  79. Declare Function VmxKill Lib "VBIS23DM.DLL" (DatasetName$) As Integer
  80.  
  81. Declare Function VmxOpen Lib "VBIS23DM.DLL" (DatasetName$, RDatasetNumber%) As Integer
  82. Declare Function VmxClose Lib "VBIS23DM.DLL" (DatasetNumber%) As Integer
  83.  
  84. Declare Function VmxGet Lib "VBIS23DM.DLL" (DatasetNumber%, IndexFieldNum%, Options%, SelectorKey$, RIndexEntry$, RPrimaryKey$, RRecordVariable As Any) As Integer
  85. Declare Function VmxPut Lib "VBIS23DM.DLL" (DatasetNumber%, PrimaryKey$, RecordVariable As Any, UpdateMode%) As Integer
  86. Declare Function VmxDelete Lib "VBIS23DM.DLL" (DatasetNumber%, PrimaryKey$) As Integer
  87.  
  88. Declare Function VmxBOF Lib "VBIS23DM.DLL" (DatasetNumber%, Indx%) As Integer
  89. Declare Function VmxEOF Lib "VBIS23DM.DLL" (DatasetNumber%, Indx%) As Integer
  90.  
  91. Declare Function VmxWriteNote Lib "VBIS23DM.DLL" (DatasetNumber%, NoteName$, NoteContents$) As Integer
  92. Declare Function VmxReadNote Lib "VBIS23DM.DLL" (DatasetNumber%, NoteName$, RNoteContents$) As Integer
  93.  
  94. Declare Function VmxFlush Lib "VBIS23DM.DLL" (DatasetNumber%) As Integer
  95. Declare Function VMXInfo Lib "VBIS23DM.DLL" (DatasetNumber%, RInfoStructure As VBISAMInfo) As Integer
  96. Declare Function VmxReturnCode Lib "VBIS23DM.DLL" (FunctionReturnCode%) As String
  97.  
  98. Declare Function VmxEncode Lib "VBIS23DM.DLL" (InStructure As Any, Frmat$, ROutString$) As Integer
  99. Declare Function VmxDecode Lib "VBIS23DM.DLL" (InString$, Frmat$, ROutStructure As Any) As Integer
  100.  
  101. ' End VBIS23DM.BAS
  102.  
  103.