home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / q / quasrsql.zip / EXAMPLEB.GBL < prev    next >
Text File  |  1991-12-06  |  9KB  |  218 lines
  1. '
  2. '  SQL.GBL - Header file for Quasar SQL Application Programming Interface
  3. '
  4. '  LANGUAGE      : Microsoft Visual Basic 1.00
  5. '  MODEL         : N/A
  6. '  ENVIRONMENT   : Microsoft Windows 3.0
  7. '
  8. '  Developed by:
  9. '    Philip Roll
  10. '    Ming-Li Wang
  11. '
  12. '  (C) Copyright 1991
  13. '  Stellar Industries
  14. '  3335 S. Falcon Ridge Road
  15. '  Diamond Bar  CA 91765
  16. '  (714) 861-7885
  17.  
  18. '  Data classes:
  19.  
  20. Global Const SqlDataClassAPPROXIMATE = 0
  21. Global Const SqlDataClassBINARY = 1
  22. Global Const SqlDataClassCHAR = 2
  23. Global Const SqlDataClassEXACT = 3
  24. Global Const SqlDataClassINVALID = 4
  25.  
  26. '  Data types:
  27.  
  28. Global Const SqlDataTypeBINARY = 0
  29. Global Const SqlDataTypeCHAR = 1
  30. Global Const SqlDataTypeDECIMAL = 2
  31. Global Const SqlDataTypeDOUBLE = 3
  32. Global Const SqlDataTypeFLOAT = 4
  33. Global Const SqlDataTypeINTEGER = 5
  34. Global Const SqlDataTypeNUMERIC = 6
  35. Global Const SqlDataTypeREAL = 7
  36. Global Const SqlDataTypeSMALLINT = 8
  37. Global Const SqlDataTypeVARCHAR = 9
  38. Global Const SqlDataTypeINVALID = 10
  39.  
  40. '  Error codes:
  41.  
  42. Global Const SqlErrorAmbiguousColumn = 1
  43. Global Const SqlErrorBadEnvironment = 2
  44. Global Const SqlErrorBinaryNotAllowed = 3
  45. Global Const SqlErrorCannotCloseDataFile = 4
  46. Global Const SqlErrorCannotCloseFile = 5
  47. Global Const SqlErrorCannotCloseKeyFile = 6
  48. Global Const SqlErrorCannotCloseLog = 7
  49. Global Const SqlErrorCannotCreateDataFile = 8
  50. Global Const SqlErrorCannotCreateDumpFile = 9
  51. Global Const SqlErrorCannotCreateFile = 10
  52. Global Const SqlErrorCannotCreateKeyFile = 11
  53. Global Const SqlErrorCannotCreateLog = 12
  54. Global Const SqlErrorCannotDeleteFile = 13
  55. Global Const SqlErrorCannotDropSystemAdmin = 14
  56. Global Const SqlErrorCannotDropTable = 15
  57. Global Const SqlErrorCannotOpenDataFile = 16
  58. Global Const SqlErrorCannotOpenFile = 17
  59. Global Const SqlErrorCannotOpenKeyFile = 18
  60. Global Const SqlErrorCannotOpenLog = 19
  61. Global Const SqlErrorCannotReadDataFile = 20
  62. Global Const SqlErrorCannotReadKeyFile = 21
  63. Global Const SqlErrorCannotRemoveDataFile = 22
  64. Global Const SqlErrorCannotRemoveKeyFile = 23
  65. Global Const SqlErrorCannotRemoveTable = 24
  66. Global Const SqlErrorCannotRevokeByColumn = 25
  67. Global Const SqlErrorCannotWriteDataFile = 26
  68. Global Const SqlErrorCannotWriteKeyFile = 27
  69. Global Const SqlErrorCharNotAllowed = 28
  70. Global Const SqlErrorCheckpointDetected = 29
  71. Global Const SqlErrorDataFileCorrupted = 30
  72. Global Const SqlErrorDatabaseCorrupt = 31
  73. Global Const SqlErrorDbaNotAvailable = 32
  74. Global Const SqlErrorDivideByZero = 33
  75. Global Const SqlErrorDuplicateColumn = 34
  76. Global Const SqlErrorDuplicateRecord = 35
  77. Global Const SqlErrorExistingDataFile = 36
  78. Global Const SqlErrorExistingKeyFile = 37
  79. Global Const SqlErrorFileReadFailed = 38
  80. Global Const SqlErrorFileWriteFailed = 39
  81. Global Const SqlErrorGlobalAllocFailed = 40
  82. Global Const SqlErrorGlobalFreeFailed = 41
  83. Global Const SqlErrorGlobalLockFailed = 42
  84. Global Const SqlErrorGlobalUnlockFailed = 43
  85. Global Const SqlErrorImportParseError = 44
  86. Global Const SqlErrorIncompatibleTypes = 45
  87. Global Const SqlErrorIndexExists = 46
  88. Global Const SqlErrorIndexUndoFailed = 47
  89. Global Const SqlErrorInitializationFailed = 48
  90. Global Const SqlErrorInsufficientBuffer = 49
  91. Global Const SqlErrorInternalError = 50
  92. Global Const SqlErrorInvalidColumnSpec = 51
  93. Global Const SqlErrorInvalidColumnType = 52
  94. Global Const SqlErrorInvalidCursor = 53
  95. Global Const SqlErrorInvalidData = 54
  96. Global Const SqlErrorInvalidEscapeChar = 55
  97. Global Const SqlErrorInvalidPattern = 56
  98. Global Const SqlErrorInvalidUser = 57
  99. Global Const SqlErrorKeyFileCorrupted = 58
  100. Global Const SqlErrorListSizesUnequal = 59
  101. Global Const SqlErrorLockTableFailure = 60
  102. Global Const SqlErrorMaximumKeySizeExceeded = 61
  103. Global Const SqlErrorMultipleSelects = 62
  104. Global Const SqlErrorNoColumnExists = 63
  105. Global Const SqlErrorNoIndexExists = 64
  106. Global Const SqlErrorNoOldRecord = 65
  107. Global Const SqlErrorNoTableExists = 66
  108. Global Const SqlErrorNoUserExists = 67
  109. Global Const SqlErrorNodeSizeTooSmall = 68
  110. Global Const SqlErrorNotAggregate = 69
  111. Global Const SqlErrorNotGroupingColumn = 70
  112. Global Const SqlErrorNotInGroupedTable = 71
  113. Global Const SqlErrorNotSingleRecord = 72
  114. Global Const SqlErrorNoUserSlotsAvailable = 73
  115. Global Const SqlErrorNullInNotNullCol = 74
  116. Global Const SqlErrorNullNotAllowed = 75
  117. Global Const SqlErrorParserSyntaxError = 76
  118. Global Const SqlErrorParserStackOverflow = 77
  119. Global Const SqlErrorPrecisionConflict = 78
  120. Global Const SqlErrorResultTableExists = 79
  121. Global Const SqlErrorScaleOverflow = 80
  122. Global Const SqlErrorSecurityViolation = 81
  123. Global Const SqlErrorSeekOnDataFileFailed = 82
  124. Global Const SqlErrorSeekOnKeyFileFailed = 83
  125. Global Const SqlErrorSetFunctionsNested = 84
  126. Global Const SqlErrorStarNotAllowed = 85
  127. Global Const SqlErrorSubqueryNotOneColumn = 86
  128. Global Const SqlErrorSystemAdminRequired = 87
  129. Global Const SqlErrorTableConflict = 88
  130. Global Const SqlErrorTableExists = 89
  131. Global Const SqlErrorTooManyColumnNames = 90
  132. Global Const SqlErrorTooManyTablesOpen = 91
  133. Global Const SqlErrorTrialSizeExceeded = 92
  134. Global Const SqlErrorVariableHeaderMark = 93
  135. Global Const SqlErrorVariableHeaderSize = 94
  136. Global Const SqlErrorVariableHeaderWrong = 95
  137. Global Const SqlErrorVariableHeaderZero = 96
  138. Global Const SqlErrorWrongVersion = 97
  139.  
  140. '  Record structure formats:
  141.  
  142. Global Const SqlFlagFormatPadded = 0
  143. Global Const SqlFlagFormatString = 1
  144. Global Const SqlFlagFormatStructure = 2
  145.  
  146. '  Auto commit options:
  147.  
  148. Global Const SqlFlagAutoCommitOnLogout = 16
  149.  
  150. '  Maximum number of characters in a key:
  151.  
  152. Global Const SqlMaximumKeySize = 192
  153.  
  154. '  Maximum number of significant characters in named entity:
  155.  
  156. Global Const SqlMaximumNameLength = 32
  157.  
  158. '  Global types:
  159.  
  160. Type SqlColumnType
  161.   RightJustified As Integer
  162.   ColumnHeading As String * 33
  163.   ColumnSequenceNumber As Integer
  164.   DataType As Integer
  165.   DataClass As Integer
  166.   FieldWidth As Integer
  167.   Precision As Integer
  168.   Scale As Integer
  169. End Type
  170.  
  171. Type SqlControlType
  172.   ErrorDetail As String * 65
  173.   ErrorMessage As String * 257
  174.   HiLiteLength As Integer
  175.   HiLiteOffset As Integer
  176.   Padding As Integer
  177.   RecordBufferSize As Integer
  178.   ResultCode As Integer
  179.   RecordPosition As Long
  180.   Reserved0 As Long
  181.   Reserved1 As Long
  182.   Reserved2 As Long
  183.   Reserved3 As Long
  184.   Reserved4 As Long
  185.   Flags As Integer
  186. End Type
  187.  
  188. Type SqlStatusType
  189.   NumberOfRecordDeletes As Long
  190.   NumberOfRecordInserts As Long
  191.   NumberOfRecordSelects As Long
  192.   NumberOfRecordUpdates As Long
  193.   TimeElapsed As Long
  194. End Type
  195.  
  196. Type SqlTableType
  197.   NumberOfColumns As Integer
  198.   RecordSize As Integer
  199.   NumberOfRecords As Long
  200. End Type
  201.  
  202. '  Function prototypes:
  203.  
  204. Declare Function SqlCursorClose Lib "sql.dll" (ByVal User As Integer, ByVal Cursor As Integer, SqlControl As SqlControlType) As Integer
  205. Declare Function SqlCursorOpen Lib "sql.dll" (ByVal User As Integer, SqlControl As SqlControlType) As Integer
  206. Declare Function SqlDescribeColumn Lib "sql.dll" (ByVal User As Integer, ByVal Cursor As Integer, SqlControl As SqlControlType, ByVal ColumnNumber As Integer, SqlColumn As SqlColumnType) As Integer
  207. Declare Function SqlDescribeTable Lib "sql.dll" (ByVal User As Integer, ByVal Cursor As Integer, SqlControl As SqlControlType, SqlTable As SqlTableType) As Integer
  208. Declare Function SqlExecute Lib "sql.dll" (ByVal User As Integer, ByVal Cursor As Integer, SqlControl As SqlControlType, ByVal QueryText As String) As Integer
  209. Declare Function SqlFetchFirst Lib "sql.dll" (ByVal User As Integer, ByVal Cursor As Integer, SqlControl As SqlControlType, ByVal RecordBuffer As String) As Integer
  210. Declare Function SqlFetchLast Lib "sql.dll" (ByVal User As Integer, ByVal Cursor As Integer, SqlControl As SqlControlType, ByVal RecordBuffer As String) As Integer
  211. Declare Function SqlFetchNext Lib "sql.dll" (ByVal User As Integer, ByVal Cursor As Integer, SqlControl As SqlControlType, ByVal RecordBuffer As String) As Integer
  212. Declare Function SqlFetchPositioned Lib "sql.dll" (ByVal User As Integer, ByVal Cursor As Integer, SqlControl As SqlControlType, ByVal RecordPosition As Long, ByVal RecordBuffer As String) As Integer
  213. Declare Function SqlFetchPrevious Lib "sql.dll" (ByVal User As Integer, ByVal Cursor As Integer, SqlControl As SqlControlType, ByVal RecordBuffer As String) As Integer
  214. Declare Function SqlGetStatus Lib "sql.dll" (ByVal User As Integer, ByVal Cursor As Integer, SqlControl As SqlControlType, SqlStatus As SqlStatusType) As Integer
  215. Declare Function SqlLogin Lib "sql.dll" (SqlControl As SqlControlType, ByVal UserName As String, ByVal UserPassword As String) As Integer
  216. Declare Function SqlLogout Lib "sql.dll" (ByVal User As Integer, SqlControl As SqlControlType) As Integer
  217.  
  218.