Category : Windows 3.X Files
Archive   : QWNSQL2C.ZIP
Filename : SQL.GBL

'
' SQL.GBL - Header file for Quasar SQL Application Programming Interface
'
' LANGUAGE : Microsoft Visual Basic 1.00
' MODEL : N/A
' ENVIRONMENT : Microsoft Windows 3.0
'
' Developed by:
' Philip Roll
' Ming-Li Wang
'
' (C) Copyright 1991
' Stellar Industries
' 3335 S. Falcon Ridge Road
' Diamond Bar CA 91765
' (714) 861-7885

' Data classes:

Global Const SqlDataClassAPPROXIMATE = 0
Global Const SqlDataClassBINARY = 1
Global Const SqlDataClassCHAR = 2
Global Const SqlDataClassEXACT = 3
Global Const SqlDataClassINVALID = 4

' Data types:

Global Const SqlDataTypeBINARY = 0
Global Const SqlDataTypeCHAR = 1
Global Const SqlDataTypeDECIMAL = 2
Global Const SqlDataTypeDOUBLE = 3
Global Const SqlDataTypeFLOAT = 4
Global Const SqlDataTypeINTEGER = 5
Global Const SqlDataTypeNUMERIC = 6
Global Const SqlDataTypeREAL = 7
Global Const SqlDataTypeSMALLINT = 8
Global Const SqlDataTypeVARCHAR = 9
Global Const SqlDataTypeINVALID = 10

' Error codes:


Global Const SqlErrorAmbiguousColumn = 1
Global Const SqlErrorBadEnvironment = 2
Global Const SqlErrorBinaryNotAllowed = 3
Global Const SqlErrorCannotActivateFile = 4
Global Const SqlErrorCannotCloseFile = 5
Global Const SqlErrorCannotCloseLog = 6
Global Const SqlErrorCannotCreateDataFile = 7
Global Const SqlErrorCannotCreateDumpFile = 8
Global Const SqlErrorCannotCreateFile = 9
Global Const SqlErrorCannotCreateKeyFile = 10
Global Const SqlErrorCannotCreateLog = 11
Global Const SqlErrorCannotDeleteFile = 12
Global Const SqlErrorCannotDropTable = 13
Global Const SqlErrorCannotOpenDataFile = 14
Global Const SqlErrorCannotOpenFile = 15
Global Const SqlErrorCannotOpenKeyFile = 16
Global Const SqlErrorCannotOpenLog = 17
Global Const SqlErrorCannotRemoveTable = 18
Global Const SqlErrorCharNotAllowed = 19
Global Const SqlErrorCheckpointDetected = 20
Global Const SqlErrorDataFileCorrupted = 21
Global Const SqlErrorDatabaseCorrupt = 22
Global Const SqlErrorDbaNotAvailable = 23
Global Const SqlErrorDivideByZero = 24
Global Const SqlErrorDuplicateColumn = 25
Global Const SqlErrorDuplicateRecord = 26
Global Const SqlErrorExistingDataFile = 27
Global Const SqlErrorExistingKeyFile = 28
Global Const SqlErrorFileReadFailed = 29
Global Const SqlErrorFileSeekFailed = 30
Global Const SqlErrorFileWriteFailed = 31
Global Const SqlErrorGlobalLockFailed = 32
Global Const SqlErrorGlobalUnlockFailed = 33
Global Const SqlErrorImportParseError = 34
Global Const SqlErrorIncompatibleTypes = 35
Global Const SqlErrorIndexExists = 36
Global Const SqlErrorIndexUndoFailed = 37
Global Const SqlErrorInitializationFailed = 38
Global Const SqlErrorInsufficientBuffer = 39
Global Const SqlErrorInternalError = 40
Global Const SqlErrorInvalidColumnSpec = 41
Global Const SqlErrorInvalidColumnType = 42
Global Const SqlErrorInvalidCursor = 43
Global Const SqlErrorInvalidData = 44
Global Const SqlErrorInvalidEscapeChar = 45
Global Const SqlErrorInvalidPattern = 46
Global Const SqlErrorInvalidTableID = 47
Global Const SqlErrorInvalidUser = 48
Global Const SqlErrorKeyFileCorrupted = 49
Global Const SqlErrorListSizesUnequal = 50
Global Const SqlErrorMultipleSelects = 51
Global Const SqlErrorNoColumnExists = 52
Global Const SqlErrorNoIndexExists = 53
Global Const SqlErrorNoOldRecord = 54
Global Const SqlErrorNoTableExists = 55
Global Const SqlErrorNoUserExists = 56
Global Const SqlErrorNodeSizeTooSmall = 57
Global Const SqlErrorNotAggregate = 58
Global Const SqlErrorNotGroupingColumn = 59
Global Const SqlErrorNotInGroupedTable = 60
Global Const SqlErrorNotSingleRecord = 61
Global Const SqlErrorNullInNotNullCol = 62
Global Const SqlErrorNullNotAllowed = 63
Global Const SqlErrorParserSyntaxError = 64
Global Const SqlErrorParserStackOverflow = 65
Global Const SqlErrorPrecisionConflict = 66
Global Const SqlErrorResultTableExists = 67
Global Const SqlErrorScaleOverflow = 68
Global Const SqlErrorSecurityViolation = 69
Global Const SqlErrorSetFunctionsNested = 70
Global Const SqlErrorStarNotAllowed = 71
Global Const SqlErrorSubqueryNotOneColumn = 72
Global Const SqlErrorTableConflict = 73
Global Const SqlErrorTableExists = 74
Global Const SqlErrorTooManyColumnNames = 75
Global Const SqlErrorTooManyTablesOpen = 76
Global Const SqlErrorTrialSizeExceeded = 77
Global Const SqlErrorVariableHeaderMark = 78
Global Const SqlErrorVariableHeaderSize = 79
Global Const SqlErrorVariableHeaderWrong = 80
Global Const SqlErrorVariableHeaderZero = 81
Global Const SqlErrorWrongVersion = 82

' Record structure formats:

Global Const SqlFlagFormatPadded = 0
Global Const SqlFlagFormatString = 1
Global Const SqlFlagFormatStructure = 2

' Auto commit options:

Global Const SqlFlagAutoCommitOnLogout = 16

' Maximum number of significant characters in named entity:

Global Const SqlMaximumNameLength = 32

' Global types:

Type SqlColumnType
RightJustified As Integer
ColumnHeading As String * 33
ColumnSequenceNumber As Integer
DataType As Integer
DataClass As Integer
FieldWidth As Integer
Precision As Integer
Scale As Integer
End Type

Type SqlControlType
ErrorDetail As String * 65
ErrorMessage As String * 257
HiLiteLength As Integer
HiLiteOffset As Integer
Padding As Integer
RecordBufferSize As Integer
ResultCode As Integer
RecordPosition As Long
Reserved0 As Long
Reserved1 As Long
Reserved2 As Long
Reserved3 As Long
Reserved4 As Long
Flags As Integer
End Type

Type SqlStatusType
NumberOfRecordDeletes As Long
NumberOfRecordInserts As Long
NumberOfRecordSelects As Long
NumberOfRecordUpdates As Long
TimeElapsed As Long
End Type

Type SqlTableType
NumberOfColumns As Integer
RecordSize As Integer
NumberOfRecords As Long
End Type

' Function prototypes:

Declare Function SqlCursorClose Lib "sql.dll" (ByVal User As Integer, ByVal Cursor As Integer, SqlControl As SqlControlType) As Integer
Declare Function SqlCursorOpen Lib "sql.dll" (ByVal User As Integer, SqlControl As SqlControlType) As Integer
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
Declare Function SqlDescribeTable Lib "sql.dll" (ByVal User As Integer, ByVal Cursor As Integer, SqlControl As SqlControlType, SqlTable As SqlTableType) As Integer
Declare Function SqlExecute Lib "sql.dll" (ByVal User As Integer, ByVal Cursor As Integer, SqlControl As SqlControlType, ByVal QueryText As String) As Integer
Declare Function SqlFetchFirst Lib "sql.dll" (ByVal User As Integer, ByVal Cursor As Integer, SqlControl As SqlControlType, ByVal RecordBuffer As String) As Integer
Declare Function SqlFetchLast Lib "sql.dll" (ByVal User As Integer, ByVal Cursor As Integer, SqlControl As SqlControlType, ByVal RecordBuffer As String) As Integer
Declare Function SqlFetchNext Lib "sql.dll" (ByVal User As Integer, ByVal Cursor As Integer, SqlControl As SqlControlType, ByVal RecordBuffer As String) As Integer
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
Declare Function SqlFetchPrevious Lib "sql.dll" (ByVal User As Integer, ByVal Cursor As Integer, SqlControl As SqlControlType, ByVal RecordBuffer As String) As Integer
Declare Function SqlGetStatus Lib "sql.dll" (ByVal User As Integer, ByVal Cursor As Integer, SqlControl As SqlControlType, SqlStatus As SqlStatusType) As Integer
Declare Function SqlLogin Lib "sql.dll" (SqlControl As SqlControlType, ByVal UserName As String, ByVal UserPassword As String) As Integer
Declare Function SqlLogout Lib "sql.dll" (ByVal User As Integer, SqlControl As SqlControlType) As Integer