Guidance
指路人
g.yi.org
software / rapidq / Examples / Database / RQ-ADS / ACE32.INC

Register 
新用户注册
Search 搜索
首页 
Home Home
Software
Upload

  
'/*******************************************************************************
'* Source File  : ace32.bas
'* Copyright    : 1997-2002 Extended Systems, Inc.
'* Description  : This an Advantage Client Engine header file.  It contains the
'*                type definitions and prototypes for all the APIs for use
'*                with Visual Basic
'*******************************************************************************/

'/* Logical constants */
     CONST ADS_FALSE = 0
     CONST ADS_TRUE = 1

'/* This is for parameters to routines that accept a default setting */
     CONST ADS_DEFAULT = 0

'/* character set types */
     CONST ADS_ANSI = 1
     CONST ADS_OEM = 2

'/* rights checking options */
     CONST ADS_CHECKRIGHTS = 1
     CONST ADS_IGNORERIGHTS = 2

'/* options for connecting to Advantage servers */
     CONST ADS_INC_USERCOUNT = &H1
     CONST ADS_STORED_PROC_CONN = &H2
     CONST ADS_COMPRESS_ALWAYS = &H4
     CONST ADS_COMPRESS_NEVER = &H8
     CONST ADS_COMPRESS_INTERNET = &HC
     CONST ADS_TABLE_PERM_READ = &H10
     CONST ADS_TABLE_PERM_UPDATE = &H20
     CONST ADS_TABLE_PERM_INSERT = &H40
     CONST ADS_TABLE_PERM_DELETE = &H80
     CONST ADS_REINDEX_ON_COLLATION_MISMATCH = &H100
     CONST ADS_IGNORE_COLLATION_MISMATCH = &H200

'/* options for opening tables - can be ORed together */
     CONST ADS_EXCLUSIVE = &H1
     CONST ADS_READONLY = &H2
     CONST ADS_SHARED = &H4
     CONST ADS_CLIPPER_MEMOS = &H8

'/* Options for creating indexes - can be ORed together */
     CONST ADS_ASCENDING = &H0
     CONST ADS_UNIQUE = &H1
     CONST ADS_COMPOUND = &H2
     CONST ADS_CUSTOM = &H4
     CONST ADS_DESCENDING = &H8
     CONST ADS_USER_DEFINED = &H10

'/* Options for returning string values */
     CONST ADS_NONE = &H0
     CONST ADS_LTRIM = &H1
     CONST ADS_RTRIM = &H2
     CONST ADS_TRIM = &H3

'/* this is for passing null terminated strings */
' CONST ADS_NTS = ((UNSIGNED16) - 1)

'/* locking compatibility */
     CONST ADS_COMPATIBLE_LOCKING = 0
     CONST ADS_PROPRIETARY_LOCKING = 1

'/* settings for seeks */
     CONST ADS_SOFTSEEK = &H1
     CONST ADS_HARDSEEK = &H2
     CONST ADS_SEEKGT = &H4

'/* data types for seeks (and scopes) */
     CONST ADS_RAWKEY = 1   '/* no conversion performed on given data */
     CONST ADS_STRINGKEY = 2   '/* data given as a string */
     CONST ADS_DOUBLEKEY = 4   '/* data is a pointer to 8 byte double */

'/* For retrieving scope settings */
     CONST ADS_TOP = 1
     CONST ADS_BOTTOM = 2

'/* for calls that can optionally use filters */
     CONST ADS_RESPECTFILTERS = &H1
     CONST ADS_IGNOREFILTERS = &H2
     CONST ADS_RESPECTSCOPES = &H3
'/*
' * This value is only used with GetRecordCount:  It can be ORed in with the
' * ignore filter value to force a read from the table header to get the most
' * current record count.
' */
     CONST ADS_REFRESHCOUNT = &H4

'/* Server type constants */
     CONST ADS_LOCAL_SERVER = &H1
     CONST ADS_REMOTE_SERVER = &H2
     CONST ADS_AIS_SERVER = &H4

'/* ACE handle types */
     CONST ADS_CONNECTION = 1
     CONST ADS_TABLE = 2
     CONST ADS_INDEX_ORDER = 3
     CONST ADS_STATEMENT = 4
     CONST ADS_CURSOR = 5
     CONST ADS_DICTIONARY_CONNECTION = 6
     CONST ADS_DICTIONARY = 7

'/* ACE Cursor ReadOnly settings */
     CONST ADS_CURSOR_READONLY = 1
     CONST ADS_CURSOR_READWRITE = 2

'/* ACE Cursor CONSTrain settings */
     CONST ADS_CONSTRAIN = 1
     CONST ADS_NO_CONSTRAIN = 2

' Select Field Read settings
     CONST ADS_READ_ALL_COLUMNS = 1
     CONST ADS_READ_SELECT_COLUMNS = 2

'/* Disable server query optimization */
     CONST ADS_NO_OPTIMIZATION = 1

'/* Data dictionary new contraint property validation options */
     CONST ADS_NO_VALIDATE = 0             '/* Do not validate records against the new constraint */
     CONST ADS_VALIDATE_NO_SAVE = 1        '/* Delete record not meeting the constraint from the table, no save */
     CONST ADS_VALIDATE_WRITE_FAIL = 2     '/* Validate the records against the new constraint and overwrite
                                      '/* the fail table with records not meeting the constraint. */
     CONST ADS_VALIDATE_APPEND_FAIL = 3    '/* Validate the records against the new constraint and append
                                      '/* the failed records into the fail table */
     CONST ADS_VALIDATE_RETURN_ERROR = 4   '/* Validate the records against the new constraint and return
                                      '/* error if there is any record not meeting the constraint */

'/* Possible result values from AdsCompareBookmarks. */
     CONST ADS_CMP_LESS = -1
     CONST ADS_CMP_EQUAL = 0
     CONST ADS_CMP_GREATER = 1

'/* Success return code */
     CONST AE_SUCCESS = 0
     CONST AE_ALLOCATION_FAILED = 5001
     CONST AE_COMM_MISMATCH = 5002
     CONST AE_DATA_TOO_LONG = 5003
     CONST AE_FILE_NOT_FOUND = 5004
     CONST AE_INSUFFICIENT_BUFFER = 5005
     CONST AE_INVALID_BOOKMARK = 5006
     CONST AE_INVALID_CALLBACK = 5007
     CONST AE_INVALID_CENTURY = 5008
     CONST AE_INVALID_DATEFORMAT = 5009
     CONST AE_INVALID_DECIMALS = 5010
     CONST AE_INVALID_EXPRESSION = 5011
     CONST AE_INVALID_FIELDDEF = 5012
     CONST AE_INVALID_FILTER_OPTION = 5013
     CONST AE_INVALID_INDEX_HANDLE = 5014
     CONST AE_INVALID_INDEX_NAME = 5015
     CONST AE_INVALID_INDEX_ORDER_NAME = 5016
     CONST AE_INVALID_INDEX_TYPE = 5017
     CONST AE_INVALID_HANDLE = 5018
     CONST AE_INVALID_OPTION = 5019
     CONST AE_INVALID_PATH = 5020
     CONST AE_INVALID_POINTER = 5021
     CONST AE_INVALID_RECORD_NUMBER = 5022
     CONST AE_INVALID_TABLE_HANDLE = 5023
     CONST AE_INVALID_CONNECTION_HANDLE = 5024
     CONST AE_INVALID_TABLETYPE = 5025
     CONST AE_INVALID_WORKAREA = 5026
     CONST AE_INVALID_CHARSETTYPE = 5027
     CONST AE_INVALID_LOCKTYPE = 5028
     CONST AE_INVALID_RIGHTSOPTION = 5029
     CONST AE_INVALID_FIELDNUMBER = 5030
     CONST AE_INVALID_KEY_LENGTH = 5031
     CONST AE_INVALID_FIELDNAME = 5032
     CONST AE_NO_DRIVE_CONNECTION = 5033
     CONST AE_FILE_NOT_ON_SERVER = 5034
     CONST AE_LOCK_FAILED = 5035
     CONST AE_NO_CONNECTION = 5036
     CONST AE_NO_FILTER = 5037
     CONST AE_NO_SCOPE = 5038
     CONST AE_NO_TABLE = 5039
     CONST AE_NO_WORKAREA = 5040
     CONST AE_NOT_FOUND = 5041
     CONST AE_NOT_IMPLEMENTED = 5042
     CONST AE_MAX_THREADS_EXCEEDED = 5043
     CONST AE_START_THREAD_FAIL = 5044
     CONST AE_TOO_MANY_INDEXES = 5045
     CONST AE_TOO_MANY_TAGS = 5046
     CONST AE_TRANS_OUT_OF_SEQUENCE = 5047
     CONST AE_UNKNOWN_ERRCODE = 5048
     CONST AE_UNSUPPORTED_LANGUAGE = 5049
     CONST AE_NAME_TOO_LONG = 5050
     CONST AE_DUPLICATE_ALIAS = 5051
     CONST AE_TABLE_CLOSED_IN_TRANSACTION = 5053
     CONST AE_PERMISSION_DENIED = 5054
     CONST AE_STRING_NOT_FOUND = 5055
     CONST AE_UNKNOWN_CHAR_SET = 5056
     CONST AE_INVALID_OEM_CHAR_FILE = 5057
     CONST AE_INVALID_MEMO_BLOCK_SIZE = 5058
     CONST AE_NO_FILE_FOUND = 5059
     CONST AE_NO_INF_LOCK = 5060
     CONST AE_INF_FILE_ERROR = 5061
     CONST AE_RECORD_NOT_LOCKED = 5062
     CONST AE_ILLEGAL_COMMAND_DURING_TRANS = 5063
     CONST AE_TABLE_NOT_SHARED = 5064
     CONST AE_INDEX_ALREADY_OPEN = 5065
     CONST AE_INVALID_FIELD_TYPE = 5066
     CONST AE_TABLE_NOT_EXCLUSIVE = 5067
     CONST AE_NO_CURRENT_RECORD = 5068
     CONST AE_PRECISION_LOST = 5069
     CONST AE_INVALID_DATA_TYPE = 5070
     CONST AE_DATA_TRUNCATED = 5071
     CONST AE_TABLE_READONLY = 5072
     CONST AE_INVALID_RECORD_LENGTH = 5073
     CONST AE_NO_ERROR_MESSAGE = 5074
     CONST AE_INDEX_SHARED = 5075
     CONST AE_INDEX_EXISTS = 5076
     CONST AE_CYCLIC_RELATION = 5077
     CONST AE_INVALID_RELATION = 5078
     CONST AE_INVALID_DAY = 5079
     CONST AE_INVALID_MONTH = 5080
     CONST AE_CORRUPT_TABLE = 5081
     CONST AE_INVALID_BINARY_OFFSET = 5082
     CONST AE_BINARY_FILE_ERROR = 5083
     CONST AE_INVALID_DELETED_BYTE_VALUE = 5084
     CONST AE_NO_PENDING_UPDATE = 5085
     CONST AE_PENDING_UPDATE = 5086
     CONST AE_TABLE_NOT_LOCKED = 5087
     CONST AE_CORRUPT_INDEX = 5088
     CONST AE_AUTOOPEN_INDEX = 5089
     CONST AE_SAME_TABLE = 5090
     CONST AE_INVALID_IMAGE = 5091
     CONST AE_COLLATION_SEQUENCE_MISMATCH = 5092
     CONST AE_INVALID_INDEX_ORDER = 5093
     CONST AE_TABLE_CACHED = 5094
     CONST AE_INVALID_DATE = 5095
     CONST AE_ENCRYPTION_NOT_ENABLED = 5096
     CONST AE_INVALID_PASSWORD = 5097
     CONST AE_TABLE_ENCRYPTED = 5098
     CONST AE_SERVER_MISMATCH = 5099
     CONST AE_INVALID_USERNAME = 5100
     CONST AE_INVALID_VALUE = 5101
     CONST AE_INVALID_CONTINUE = 5102
     CONST AE_UNRECOGNIZED_VERSION = 5103
     CONST AE_RECORD_ENCRYPTED = 5104
     CONST AE_UNRECOGNIZED_ENCRYPTION = 5105
     CONST AE_INVALID_SQLSTATEMENT_HANDLE = 5106
     CONST AE_INVALID_SQLCURSOR_HANDLE = 5107
     CONST AE_NOT_PREPARED = 5108
     CONST AE_CURSOR_NOT_CLOSED = 5109
     CONST AE_INVALID_SQL_PARAM_NUMBER = 5110
     CONST AE_INVALID_SQL_PARAM_NAME = 5111
     CONST AE_INVALID_COLUMN_NUMBER = 5112
     CONST AE_INVALID_COLUMN_NAME = 5113
     CONST AE_INVALID_READONLY_OPTION = 5114
     CONST AE_IS_CURSOR_HANDLE = 5115
     CONST AE_INDEX_EXPR_NOT_FOUND = 5116
     CONST AE_NOT_DML = 5117
     CONST AE_INVALID_CONSTRAIN_TYPE = 5118
     CONST AE_INVALID_CURSORHANDLE = 5119
     CONST AE_OBSOLETE_FUNCTION = 5120
     CONST AE_TADSDATASET_GENERAL = 5121
     CONST AE_UDF_OVERWROTE_BUFFER = 5122
     CONST AE_INDEX_UDF_NOT_SET = 5123
     CONST AE_CONCURRENT_PROBLEM = 5124
     CONST AE_INVALID_DICTIONARY_HANDLE = 5125
     CONST AE_INVALID_PROPERTY_ID = 5126
     CONST AE_INVALID_PROPERTY = 5127
     CONST AE_DICTIONARY_ALREADY_EXISTS = 5128
     CONST AE_INVALID_FIND_HANDLE = 5129
     CONST AE_DD_REQUEST_NOT_COMPLETED = 5130
     CONST AE_INVALID_OBJECT_ID = 5131
     CONST AE_INVALID_OBJECT_NAME = 5132
     CONST AE_INVALID_PROPERTY_LENGTH = 5133
     CONST AE_INVALID_KEY_OPTIONS = 5134
     CONST AE_CONSTRAINT_VALIDATION_ERROR = 5135
     CONST AE_INVALID_OBJECT_TYPE = 5136
     CONST AE_NO_OBJECT_FOUND = 5137
     CONST AE_PROPERTY_NOT_SET = 5138
     CONST AE_NO_PRIMARY_KEY_EXISTS = 5139
     CONST AE_LOCAL_CONN_DISABLED = 5140
     CONST AE_RI_RESTRICT = 5141
     CONST AE_RI_CASCADE = 5142
     CONST AE_RI_FAILED = 5143
     CONST AE_RI_CORRUPTED = 5144
     CONST AE_RI_UNDO_FAILED = 5145
     CONST AE_RI_RULE_EXISTS = 5146
     CONST AE_COLUMN_CANNOT_BE_NULL = 5147
     CONST AE_MIN_CONSTRAINT_VIOLATION = 5148
     CONST AE_MAX_CONSTRAINT_VIOLATION = 5149
     CONST AE_RECORD_CONSTRAINT_VIOLATION = 5150
     CONST AE_CANNOT_DELETE_TEMP_INDEX = 5151
     CONST AE_RESTRUCTURE_FAILED = 5152
     CONST AE_INVALID_STATEMENT = 5153
     CONST AE_STORED_PROCEDURE_FAILED = 5154
     CONST AE_INVALID_DICTIONARY_FILE = 5155
     CONST AE_NOT_MEMBER_OF_GROUP = 5156
     CONST AE_ALREADY_MEMBER_OF_GROUP = 5157
     CONST AE_INVALID_OBJECT_RIGHT = 5158
     CONST AE_CANNOT_OPEN_DATABASE_TABLE = 5159
     CONST AE_INVALID_CONSTRAINT = 5160
     CONST AE_NOT_ADMINISTRATOR = 5161
     CONST AE_NO_TABLE_ENCRYPTION_PASSWORD = 5162
     CONST AE_TABLE_NOT_ENCRYPTED = 5163
     CONST AE_INVALID_ENCRYPTION_VERSION = 5164
     CONST AE_NO_STORED_PROC_EXEC_RIGHTS = 5165
     CONST AE_DD_UNSUPPORTED_DEPLOYMENT = 5166
     CONST AE_INFO_AUTO_CREATION_OCCURRED = 5168
     CONST AE_INFO_COPY_MADE_BY_CLIENT = 5169
     CONST AE_DATABASE_REQUIRES_NEW_SERVER = 5170
     CONST AE_COLUMN_PERMISSION_DENIED = 5171
     CONST AE_DATABASE_REQUIRES_NEW_CLIENT = 5172
     CONST AE_INVALID_LINK_NUMBER = 5173
     CONST AE_LINK_ACTIVATION_FAILED = 5174
     CONST AE_INDEX_COLLATION_MISMATCH = 5175
     CONST AE_ILLEGAL_USER_OPERATION = 5176

'/* Available OEM Languages (for Clipper compatibility) */
     CONST ADS_LANG_USA = "USA"
     CONST ADS_LANG_DANISH = "DANISH"
     CONST ADS_LANG_DUTCH = "DUTCH"
     CONST ADS_LANG_FINNISH = "FINNISH"
     CONST ADS_LANG_FRENCH = "FRENCH"
     CONST ADS_LANG_GERMAN = "GERMAN"
     CONST ADS_LANG_GREEK437 = "GREEK437"
     CONST ADS_LANG_GREEK851 = "GREEK851"
     CONST ADS_LANG_ICELD850 = "ICELD850"
     CONST ADS_LANG_ICELD861 = "ICELD861"
     CONST ADS_LANG_ITALIAN = "ITALIAN"
     CONST ADS_LANG_NORWEGN = "NORWEGN"
     CONST ADS_LANG_PORTUGUE = "PORTUGUE"
     CONST ADS_LANG_SPANISH = "SPANISH"
     CONST ADS_LANG_SWEDISH = "SWEDISH"
     CONST ADS_LANG_MAZOVIA = "MAZOVIA"
     CONST ADS_LANG_PC_LATIN = "PC_LATIN"
     CONST ADS_LANG_ISOLATIN = "ISOLATIN"
     CONST ADS_LANG_RUSSIAN = "RUSSIAN"
     CONST ADS_LANG_NTXCZ852 = "NTXCZ852"
     CONST ADS_LANG_NTXCZ895 = "NTXCZ895"
     CONST ADS_LANG_NTXSL852 = "NTXSL852"
     CONST ADS_LANG_NTXSL895 = "NTXSL895"
     CONST ADS_LANG_NTXHU852 = "NTXHU852"

'/* Supported file types */
     CONST ADS_DATABASE_TABLE = ADS_DEFAULT
     CONST ADS_NTX = 1
     CONST ADS_CDX = 2
     CONST ADS_ADT = 3

'/* for retrieving file names of tables */
     CONST ADS_BASENAME = 1
     CONST ADS_BASENAMEANDEXT = 2
     CONST ADS_FULLPATHNAME = 3
     CONST ADS_DATADICTIONARY_NAME = 4

'/* indication of bitmap filter optimization */
     CONST ADS_OPTIMIZED_FULL = 1
     CONST ADS_OPTIMIZED_PART = 2
     CONST ADS_OPTIMIZED_NONE = 3

'/* Advantage Optimized Filter (AOF) filter resolution options */
     CONST ADS_RESOLVE_IMMEDIATE = 1
     CONST ADS_RESOLVE_DYNAMIC = 2

'/* Advantage Optimized Filter (AOF) customization options */
     CONST ADS_AOF_ADD_RECORD = 1
     CONST ADS_AOF_REMOVE_RECORD = 2
     CONST ADS_AOF_TOGGLE_RECORD = 3

'/* Stored procedure or trigger type */
     CONST ADS_STORED_PROC = 1

     CONST ADS_MAX_USER_NAME = 50
     CONST ADS_MAX_ADDRESS_SIZE = 30

'/* some maximum values used by the client */
'/* NOTE:  constants meant for string length exclude space for null terminator */
     CONST ADS_MAX_DATEMASK = 12
     CONST ADS_MAX_ERROR_LEN = 600
     CONST ADS_MAX_INDEX_EXPR_LEN = 510 '/* this is only accurate for index expressions */
     CONST ADS_MAX_KEY_LENGTH = 256     '/* maximum key value length */
     CONST ADS_MAX_FIELD_NAME = 128
     CONST ADS_MAX_DBF_FIELD_NAME = 10  '/* maximum length of field name in a DBF */
     CONST ADS_MAX_INDEXES = 15         '/* physical index files, NOT index orders */
     CONST ADS_MAX_PATH = 260
     CONST ADS_MAX_TABLE_NAME = 255     '/* long file name */
     CONST ADS_MAX_TAG_NAME = 128
     CONST ADS_MAX_TAGS = 50            '/* maximum for CDX/ADI file */
     CONST ADS_MAX_OBJECT_NAME = 200    '/* maximum length of DD object name */

'/* Valid range of page sizes for ADI indexes.  The default page size is 512
' * bytes.  Before using another page size, please read the section titled
' * "Index Page Size" in the Advantage Client Engine help file (ace.hlp) */
     CONST ADS_MIN_ADI_PAGESIZE = 512
     CONST ADS_MAX_ADI_PAGESIZE = 8192

'/* data types */
     CONST ADS_TYPE_UNKNOWN = 0
     CONST ADS_LOGICAL = 1          '/* 1 byte logical value */
     CONST ADS_NUMERIC = 2          '/* DBF character style numeric */
     CONST ADS_DATE = 3             '/* Date field.  With ADS_NTX and ADS_CDX,
                               ' * this is an 8 byte field of the form
                               ' * CCYYMMDD.  With ADS_ADT, it is a
                               ' * 4 byte Julian date. */
     CONST ADS_STRING = 4           '/* Character data */
     CONST ADS_MEMO = 5             '/* Variable length character data */
     CONST ADS_BINARY = 6           '/* BLOB - any data */
     CONST ADS_IMAGE = 7            '/* BLOB - bitmap */
     CONST ADS_VARCHAR = 8          '/* variable length character field */
     CONST ADS_COMPACTDATE = 9      '/* DBF date represented with 3 bytes */
     CONST ADS_DOUBLE = 10          '/* IEEE 8 byte floating point */
     CONST ADS_INTEGER = 11         '/* IEEE 4 byte signed long integer */

'/* the following are supported with the ADT file only */
     CONST ADS_SHORTINT = 12        '/* IEEE 2 byte signed short integer */
     CONST ADS_TIME = 13            '/* 4 byte long integer representing
                               ' * milliseconds since midnight */
     CONST ADS_TIMESTAMP = 14       '/* 8 bytes.  High order 4 bytes are a
                               ' * long integer representing Julian date.
                               ' * Low order 4 bytes are a long integer
                               ' * representing milliseconds since
                               ' * midnight */
     CONST ADS_AUTOINC = 15         '/* 4 byte auto-increment value */
     CONST ADS_RAW = 16             '/* Untranslated data */
     CONST ADS_CURDOUBLE = 17       '/* IEEE 8 byte floating point currency */

'/* Supported User Defined Function types to be used with AdsRegisterUDF */
     CONST ADS_INDEX_UDF = 1

'/* Data dictionary properties related constants */
     CONST ADS_DD_PROPERTY_NOT_AVAIL = &HFFFF
     CONST ADS_DD_MAX_PROPERTY_LEN = &HFFFE
     CONST ADS_DD_MAX_OBJECT_NAME_LEN = 200

     CONST ADS_DD_TABLE_OBJECT = 1
     CONST ADS_DD_RELATION_OBJECT = 2
     CONST ADS_DD_INDEX_FILE_OBJECT = 3
     CONST ADS_DD_FIELD_OBJECT = 4
     CONST ADS_DD_COLUMN_OBJECT = 4
     CONST ADS_DD_INDEX_OBJECT = 5
     CONST ADS_DD_VIEW_OBJECT = 6
     CONST ADS_DD_VIEW_OR_TABLE_OBJECT = 7
     CONST ADS_DD_USER_OBJECT = 8
     CONST ADS_DD_USER_GROUP_OBJECT = 9
     CONST ADS_DD_PROCEDURE_OBJECT = 10
     CONST ADS_DD_DATABASE_OBJECT = 11
     CONST ADS_DD_LINK_OBJECT = 12
     CONST ADS_DD_TABLE_VIEW_OR_LINK_OBJECT = 13

'/* Common properties numbers < 100 */
     CONST ADS_DD_COMMENT = 1
     CONST ADS_DD_VERSION = 2
     CONST ADS_DD_USER_DEFINED_PROP = 3

'/* Database properties between 100 and 199 */
     CONST ADS_DD_DEFAULT_TABLE_PATH = 100
     CONST ADS_DD_ADMIN_PASSWORD = 101
     CONST ADS_DD_TEMP_TABLE_PATH = 102
     CONST ADS_DD_LOG_IN_REQUIRED = 103
     CONST ADS_DD_VERIFY_ACCESS_RIGHTS = 104
     CONST ADS_DD_ENCRYPT_TABLE_PASSWORD = 105
     CONST ADS_DD_ENCRYPT_NEW_TABLE = 106
     CONST ADS_DD_ENABLE_INTERNET = 107
     CONST ADS_DD_INTERNET_SECURITY_LEVEL = 108
     CONST ADS_DD_MAX_FAILED_ATTEMPTS = 109
     CONST ADS_DD_ALLOW_ADSSYS_NET_ACCESS = 110
     CONST ADS_DD_VERSION_MAJOR = 111
     CONST ADS_DD_VERSION_MINOR = 112

'/* Table properties between 200 and 299 */
     CONST ADS_DD_TABLE_VALIDATION_EXPR = 200
     CONST ADS_DD_TABLE_VALIDATION_MSG = 201
     CONST ADS_DD_TABLE_PRIMARY_KEY = 202
     CONST ADS_DD_TABLE_AUTO_CREATE = 203
     CONST ADS_DD_TABLE_TYPE = 204
     CONST ADS_DD_TABLE_PATH = 205
     CONST ADS_DD_TABLE_FIELD_COUNT = 206
     CONST ADS_DD_TABLE_RI_GRAPH = 207
     CONST ADS_DD_TABLE_OBJ_ID = 208
     CONST ADS_DD_TABLE_IS_RI_PARENT = 210
     CONST ADS_DD_TABLE_RELATIVE_PATH = 211
     CONST ADS_DD_TABLE_CHAR_TYPE = 212
     CONST ADS_DD_TABLE_DEFAULT_INDEX = 213
     CONST ADS_DD_TABLE_ENCRYPTION = 214
     CONST ADS_DD_TABLE_MEMO_BLOCK_SIZE = 215
     CONST ADS_DD_TABLE_PERMISSION_LEVEL = 216

'/* Field properties between 300 - 399 */
     CONST ADS_DD_FIELD_DEFAULT_VALUE = 300
     CONST ADS_DD_FIELD_CAN_NULL = 301
     CONST ADS_DD_FIELD_MIN_VALUE = 302
     CONST ADS_DD_FIELD_MAX_VALUE = 303
     CONST ADS_DD_FIELD_VALIDATION_MSG = 304
     CONST ADS_DD_FIELD_DEFINITION = 305
     CONST ADS_DD_FIELD_TYPE = 306
     CONST ADS_DD_FIELD_LENGTH = 307
     CONST ADS_DD_FIELD_DECIMAL = 308

'/* Index tag properties between 400 - 499 */
     CONST ADS_DD_INDEX_FILE_NAME = 400
     CONST ADS_DD_INDEX_EXPRESSION = 401
     CONST ADS_DD_INDEX_CONDITION = 402
     CONST ADS_DD_INDEX_OPTIONS = 403
     CONST ADS_DD_INDEX_KEY_LENGTH = 404
     CONST ADS_DD_INDEX_KEY_TYPE = 405

'/* RI properties between 500-599 */
     CONST ADS_DD_RI_PARENT_GRAPH = 500
     CONST ADS_DD_RI_PRIMARY_TABLE = 501
     CONST ADS_DD_RI_PRIMARY_INDEX = 502
     CONST ADS_DD_RI_FOREIGN_TABLE = 503
     CONST ADS_DD_RI_FOREIGN_INDEX = 504
     CONST ADS_DD_RI_UPDATERULE = 505
     CONST ADS_DD_RI_DELETERULE = 506
     CONST ADS_DD_RI_NO_PKEY_ERROR = 507
     CONST ADS_DD_RI_CASCADE_ERROR = 508

'/* User properties between 600-699 */
     CONST ADS_DD_USER_GROUP_NAME = 600

'/* View properties between 700-749 */
     CONST ADS_DD_VIEW_STMT = 700
     CONST ADS_DD_VIEW_STMT_LEN = 701

'/* Stored procedure properties 800-899 */
     CONST ADS_DD_PROC_INPUT = 800
     CONST ADS_DD_PROC_OUTPUT = 801
     CONST ADS_DD_PROC_DLL_NAME = 802
     CONST ADS_DD_PROC_DLL_FUNCTION_NAME = 803
     CONST ADS_DD_PROC_INVOKE_OPTION = 804

'/* Index file properties 900-999 */
     CONST ADS_DD_INDEX_FILE_PATH = 900
     CONST ADS_DD_INDEX_FILE_PAGESIZE = 901

'/* Object rights properties 1001 - 1099 .  They can be used
' * with either user or user group objects. */
     CONST ADS_DD_TABLES_RIGHTS = 1001
     CONST ADS_DD_VIEWS_RIGHTS = 1002
     CONST ADS_DD_PROCS_RIGHTS = 1003
     CONST ADS_DD_OBJECTS_RIGHTS = 1004
     CONST ADS_DD_FREE_TABLES_RIGHTS = 1005

'/* User Properties 1101 - 1199 */
     CONST ADS_DD_USER_PASSWORD = 1101
     CONST ADS_DD_USER_GROUP_MEMBERSHIP = 1102
     CONST ADS_DD_USER_BAD_LOGINS = 1103

'/* User group Properties 1201 - 1299 */
'/* None at this moment. */

'/* Link properties 1301 - 1399 */
     CONST ADS_DD_LINK_PATH = 1300
     CONST ADS_DD_LINK_OPTIONS = 1301
     CONST ADS_DD_LINK_USERNAME = 1302

     CONST ADS_DD_LEVEL_0 = 0
     CONST ADS_DD_LEVEL_1 = 1
     CONST ADS_DD_LEVEL_2 = 2

'/* Referential Integrity (RI) update and delete rules */
     CONST ADS_DD_RI_CASCADE = 1
     CONST ADS_DD_RI_RESTRICT = 2
     CONST ADS_DD_RI_SETNULL = 3
     CONST ADS_DD_RI_SETDEFAULT = 4

'/* Default Field Value Options */
     CONST ADS_DD_DFV_UNKNOWN = 1
     CONST ADS_DD_DFV_NONE = 2
     CONST ADS_DD_DFV_VALUES_STORED = 3

'/* Supported permissions in the data dictionary */
     CONST ADS_PERMISSION_READ = &H1
     CONST ADS_PERMISSION_UPDATE = &H2
     CONST ADS_PERMISSION_EXECUTE = &H4
     CONST ADS_PERMISSION_INHERIT = &H8
     CONST ADS_PERMISSION_INSERT = &H10
     CONST ADS_PERMISSION_DELETE = &H20
     CONST ADS_PERMISSION_LINK_ACCESS = &H40

'/* Link DD options */
     CONST ADS_LINK_GLOBAL = &H1
     CONST ADS_LINK_AUTH_ACTIVE_USER = &H2
     CONST ADS_LINK_PATH_IS_STATIC = &H4

'/* Table permission verification levels.
' * level 1 is all columns searchable, even those without permission.
' * level 2 is default. Permission to the column is required to search or filter on a column.
' * level 3 is most restricted. Only static SQL cursor is allowed. */
     CONST ADS_DD_TABLE_PERMISSION_LEVEL_1 = 1
     CONST ADS_DD_TABLE_PERMISSION_LEVEL_2 = 2
     CONST ADS_DD_TABLE_PERMISSION_LEVEL_3 = 3

     DECLARE FUNCTION AdsAddCustomKey LIB "ACE32.DLL" ALIAS "AdsAddCustomKey" (BYVAL hIndex AS LONG) AS LONG
     DECLARE FUNCTION AdsAppendRecord LIB "ACE32.DLL" ALIAS "AdsAppendRecord" (BYVAL hTable AS LONG) AS LONG
     DECLARE FUNCTION AdsApplicationExit LIB "ACE32.DLL" ALIAS "AdsApplicationExit" () AS LONG
     DECLARE FUNCTION AdsAtBOF LIB "ACE32.DLL" ALIAS "AdsAtBOF" (BYVAL hTable AS LONG, pbBof AS INTEGER) AS LONG
     DECLARE FUNCTION AdsAtEOF LIB "ACE32.DLL" ALIAS "AdsAtEOF" (BYVAL hTable AS LONG, pbEof AS INTEGER) AS LONG
     DECLARE FUNCTION AdsBeginTransaction LIB "ACE32.DLL" ALIAS "AdsBeginTransaction" (BYVAL hConnect AS LONG) AS LONG
     DECLARE FUNCTION AdsBinaryToFile LIB "ACE32.DLL" ALIAS "AdsBinaryToFile" (BYVAL hTable AS LONG, BYVAL pucFldName AS STRING, BYVAL pucFileName AS STRING) AS LONG
     DECLARE FUNCTION AdsCacheOpenTables LIB "ACE32.DLL" ALIAS "AdsCacheOpenTables" (BYVAL usOpen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsCacheOpenCursors LIB "ACE32.DLL" ALIAS "AdsCacheOpenCursors" (BYVAL usOpen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsCacheRecords LIB "ACE32.DLL" ALIAS "AdsCacheRecords" (BYVAL hTable AS LONG, BYVAL usNumRecords AS INTEGER) AS LONG
     DECLARE FUNCTION AdsCancelUpdate LIB "ACE32.DLL" ALIAS "AdsCancelUpdate" (BYVAL hTable AS LONG) AS LONG
     DECLARE FUNCTION AdsCheckExistence LIB "ACE32.DLL" ALIAS "AdsCheckExistence" (BYVAL hConnect AS LONG, BYVAL pucFileName AS STRING, pusOnDisk AS INTEGER) AS LONG
     DECLARE FUNCTION AdsClearAllScopes LIB "ACE32.DLL" ALIAS "AdsClearAllScopes" (BYVAL hTable AS LONG) AS LONG
     DECLARE FUNCTION AdsClearDefault LIB "ACE32.DLL" ALIAS "AdsClearDefault" () AS LONG
     DECLARE FUNCTION AdsClearFilter LIB "ACE32.DLL" ALIAS "AdsClearFilter" (BYVAL hTable AS LONG) AS LONG
     DECLARE FUNCTION AdsClearRelation LIB "ACE32.DLL" ALIAS "AdsClearRelation" (BYVAL hTableParent AS LONG) AS LONG
     DECLARE FUNCTION AdsClearScope LIB "ACE32.DLL" ALIAS "AdsClearScope" (BYVAL hIndex AS LONG, BYVAL usScopeOption AS INTEGER) AS LONG
     DECLARE FUNCTION AdsCloneTable LIB "ACE32.DLL" ALIAS "AdsCloneTable" (BYVAL hTable AS LONG, phClone AS LONG) AS LONG
     DECLARE FUNCTION AdsCloseAllIndexes LIB "ACE32.DLL" ALIAS "AdsCloseAllIndexes" (BYVAL hTable AS LONG) AS LONG
     DECLARE FUNCTION AdsCloseAllTables LIB "ACE32.DLL" ALIAS "AdsCloseAllTables" () AS LONG
     DECLARE FUNCTION AdsCloseIndex LIB "ACE32.DLL" ALIAS "AdsCloseIndex" (BYVAL hIndex AS LONG) AS LONG
     DECLARE FUNCTION AdsCloseTable LIB "ACE32.DLL" ALIAS "AdsCloseTable" (BYVAL hTable AS LONG) AS LONG
     DECLARE FUNCTION AdsCommitTransaction LIB "ACE32.DLL" ALIAS "AdsCommitTransaction" (BYVAL hConnect AS LONG) AS LONG
     DECLARE FUNCTION AdsConnect LIB "ACE32.DLL" ALIAS "AdsConnect" (BYVAL pucServerName AS STRING, phConnect AS LONG) AS LONG
     DECLARE FUNCTION AdsConnect26 LIB "ACE32.DLL" ALIAS "AdsConnect26" (BYVAL pucServerName AS STRING, BYVAL usServerTypes AS INTEGER, phConnect AS LONG) AS LONG
     DECLARE FUNCTION AdsConnect60 LIB "ACE32.DLL" ALIAS "AdsConnect60" (BYVAL pucServerName AS STRING, BYVAL usServerTypes AS INTEGER, BYVAL pucUserName AS STRING, BYVAL pucPassword AS STRING, BYVAL ulOptions AS LONG, phConnect AS LONG) AS LONG
     DECLARE FUNCTION AdsContinue LIB "ACE32.DLL" ALIAS "AdsContinue" (BYVAL hTable AS LONG, pbFound AS INTEGER) AS LONG
     DECLARE FUNCTION AdsConvertTable LIB "ACE32.DLL" ALIAS "AdsConvertTable" (BYVAL hObj AS LONG, BYVAL usFilterOption AS INTEGER, BYVAL pucFile AS STRING, BYVAL usTableType AS INTEGER) AS LONG
     DECLARE FUNCTION AdsCopyTable LIB "ACE32.DLL" ALIAS "AdsCopyTable" (BYVAL hObj AS LONG, BYVAL usFilterOption AS INTEGER, BYVAL pucFile AS STRING) AS LONG
     DECLARE FUNCTION AdsCopyTableContents LIB "ACE32.DLL" ALIAS "AdsCopyTableContents" (BYVAL hObjFrom AS LONG, BYVAL hTableTo AS LONG, BYVAL usFilterOption AS INTEGER) AS LONG
     DECLARE FUNCTION AdsCopyTableStructure LIB "ACE32.DLL" ALIAS "AdsCopyTableStructure" (BYVAL hTable AS LONG, BYVAL pucFile AS STRING) AS LONG
     DECLARE FUNCTION AdsCreateIndex LIB "ACE32.DLL" ALIAS "AdsCreateIndex" (BYVAL hObj AS LONG, BYVAL pucFileName AS STRING, BYVAL pucTag AS STRING, BYVAL pucExpr AS STRING, BYVAL pucCondition AS STRING, BYVAL pucWhile AS STRING, BYVAL ulOptions AS LONG, phIndex AS LONG) AS LONG
     DECLARE FUNCTION AdsCreateIndex61 LIB "ACE32.DLL" ALIAS "AdsCreateIndex61" (BYVAL hObj AS LONG, BYVAL pucFileName AS STRING, BYVAL pucTag AS STRING, BYVAL pucExpr AS STRING, BYVAL pucCondition AS STRING, BYVAL pucWhile AS STRING, BYVAL ulOptions AS LONG, BYVAL ulPageSize AS LONG, phIndex AS LONG) AS LONG
     DECLARE FUNCTION AdsCreateTable LIB "ACE32.DLL" ALIAS "AdsCreateTable" (BYVAL hConnection AS LONG, BYVAL pucName AS STRING, BYVAL pucAlias AS STRING, BYVAL usTableType AS INTEGER, BYVAL usCharType AS INTEGER, BYVAL usLockType AS INTEGER, BYVAL usCheckRights AS INTEGER, BYVAL usMemoSize AS INTEGER, BYVAL pucFields AS STRING, phTable AS LONG) AS LONG
     DECLARE FUNCTION AdsDDCreate LIB "ACE32.DLL" ALIAS "AdsDDCreate" (BYVAL pucDictionaryPath AS STRING, BYVAL usEncrypt AS INTEGER, BYVAL pucDescription AS STRING, phDictionary AS LONG) AS LONG
     DECLARE FUNCTION AdsDDCreateRefIntegrity LIB "ACE32.DLL" ALIAS "AdsDDCreateRefIntegrity" (BYVAL hDictionary AS LONG, BYVAL pucRIName AS STRING, BYVAL pucFailTable AS STRING, BYVAL pucParentTableName AS STRING, BYVAL pucParentTagName AS STRING, BYVAL pucChildTableName AS STRING, BYVAL pucChildTagName AS STRING, BYVAL usUpdateRule AS INTEGER, BYVAL usDeleteRule AS INTEGER) AS LONG
     DECLARE FUNCTION AdsDDCreateRefIntegrity62 LIB "ACE32.DLL" ALIAS "AdsDDCreateRefIntegrity62" (BYVAL hDictionary AS LONG, BYVAL pucRIName AS STRING, BYVAL pucFailTable AS STRING, BYVAL pucParentTableName AS STRING, BYVAL pucParentTagName AS STRING, BYVAL pucChildTableName AS STRING, BYVAL pucChildTagName AS STRING, BYVAL usUpdateRule AS INTEGER, BYVAL usDeleteRule AS INTEGER, BYVAL pucNoPrimaryError AS STRING, BYVAL pucCascadeError AS STRING) AS LONG
     DECLARE FUNCTION AdsDDRemoveRefIntegrity LIB "ACE32.DLL" ALIAS "AdsDDRemoveRefIntegrity" (BYVAL hDictionary AS LONG, BYVAL pucRefName AS STRING) AS LONG
     DECLARE FUNCTION AdsDDGetDatabaseProperty LIB "ACE32.DLL" ALIAS "AdsDDGetDatabaseProperty" (BYVAL hObject AS LONG, BYVAL usPropertyID AS INTEGER, pvProperty, pusPropertyLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsDDGetFieldProperty LIB "ACE32.DLL" ALIAS "AdsDDGetFieldProperty" (BYVAL hObject AS LONG, BYVAL pucTableName AS STRING, BYVAL pucFieldName AS STRING, BYVAL usPropertyID AS INTEGER, pvProperty, pusPropertyLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsDDGetIndexFileProperty LIB "ACE32.DLL" ALIAS "AdsDDGetIndexFileProperty" (BYVAL hObject AS LONG, BYVAL pucTableName AS STRING, BYVAL pucIndexFileName AS STRING, BYVAL usPropertyID AS INTEGER, pvProperty, pusPropertyLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsDDGetIndexProperty LIB "ACE32.DLL" ALIAS "AdsDDGetIndexProperty" (BYVAL hObject AS LONG, BYVAL pucTableName AS STRING, BYVAL pucIndexFileName AS STRING, BYVAL usPropertyID AS INTEGER, pvProperty, pusPropertyLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsDDGetTableProperty LIB "ACE32.DLL" ALIAS "AdsDDGetTableProperty" (BYVAL hObject AS LONG, BYVAL pucTableName AS STRING, BYVAL usPropertyID AS INTEGER, pvProperty, pusPropertyLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsDDGetUserGroupProperty LIB "ACE32.DLL" ALIAS "AdsDDGetUserGroupProperty" (BYVAL hObject AS LONG, BYVAL pucUserGroupName AS STRING, BYVAL usPropertyID AS INTEGER, pvProperty, pusPropertyLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsDDGetUserProperty LIB "ACE32.DLL" ALIAS "AdsDDGetUserProperty" (BYVAL hObject AS LONG, BYVAL pucUserName AS STRING, BYVAL usPropertyID AS INTEGER, pvProperty, pusPropertyLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsDDGetViewProperty LIB "ACE32.DLL" ALIAS "AdsDDGetViewProperty" (BYVAL hObject AS LONG, BYVAL pucViewName AS STRING, BYVAL usPropertyID AS INTEGER, pvProperty, pusPropertyLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsDDGetProcedureProperty LIB "ACE32.DLL" ALIAS "AdsDDGetProcedureProperty" (BYVAL hObject AS LONG, BYVAL pucProcName AS STRING, BYVAL usPropertyID AS INTEGER, pvProperty, pusPropertyLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsDDGetRefIntegrityProperty LIB "ACE32.DLL" ALIAS "AdsDDGetRefIntegrityProperty" (BYVAL hObject AS LONG, BYVAL pucRefName AS STRING, BYVAL usPropertyID AS INTEGER, BYVAL pucProperty AS STRING, pusPropertyLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsDDSetDatabaseProperty LIB "ACE32.DLL" ALIAS "AdsDDSetDatabaseProperty" (BYVAL hDictionary AS LONG, BYVAL usPropertyID AS INTEGER, pvProperty, BYVAL usPropertyLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsDDSetFieldProperty LIB "ACE32.DLL" ALIAS "AdsDDSetFieldProperty" (BYVAL hDictionary AS LONG, BYVAL pucTableName AS STRING, BYVAL pucFieldName AS STRING, BYVAL usPropertyID AS INTEGER, pvProperty, BYVAL usPropertyLen AS INTEGER, BYVAL usValidateOption AS INTEGER, BYVAL pucFailTable AS STRING) AS LONG
     DECLARE FUNCTION AdsDDSetTableProperty LIB "ACE32.DLL" ALIAS "AdsDDSetTableProperty" (BYVAL hDictionary AS LONG, BYVAL pucTableName AS STRING, BYVAL usPropertyID AS INTEGER, pvProperty, BYVAL usPropertyLen AS INTEGER, BYVAL usValidateOption AS INTEGER, BYVAL pucFailTable AS STRING) AS LONG
     DECLARE FUNCTION AdsDDSetUserGroupProperty LIB "ACE32.DLL" ALIAS "AdsDDSetUserGroupProperty" (BYVAL hDictionary AS LONG, BYVAL pucUserGroupName AS STRING, BYVAL usPropertyID AS INTEGER, pvProperty, BYVAL usPropertyLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsDDSetUserProperty LIB "ACE32.DLL" ALIAS "AdsDDSetUserProperty" (BYVAL hDictionary AS LONG, BYVAL pucUserName AS STRING, BYVAL usPropertyID AS INTEGER, pvProperty, BYVAL usPropertyLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsDDSetObjectAccessRights LIB "ACE32.DLL" ALIAS "AdsDDSetObjectAccessRights" (BYVAL hDictionary AS LONG, BYVAL pucObjectName AS STRING, BYVAL pucAccessorName AS STRING, BYVAL pucAllowedAccess AS STRING) AS LONG
     DECLARE FUNCTION AdsDDAddTable LIB "ACE32.DLL" ALIAS "AdsDDAddTable" (BYVAL hDictionary AS LONG, BYVAL pucTableName AS STRING, BYVAL pucTablePath AS STRING, BYVAL usTableType AS INTEGER, BYVAL usCharType AS INTEGER, BYVAL pucIndexFiles AS STRING, BYVAL pucComment AS STRING) AS LONG
     DECLARE FUNCTION AdsDDAddView LIB "ACE32.DLL" ALIAS "AdsDDAddView" (BYVAL hDictionary AS LONG, BYVAL pucName AS STRING, BYVAL pucComments AS STRING, BYVAL pucSQL AS STRING) AS LONG
     DECLARE FUNCTION AdsDDAddIndexFile LIB "ACE32.DLL" ALIAS "AdsDDAddIndexFile" (BYVAL hDictionary AS LONG, BYVAL pucTableName AS STRING, BYVAL pucIndexFilePath AS STRING, BYVAL pucComment AS STRING) AS LONG
     DECLARE FUNCTION AdsDDCreateUser LIB "ACE32.DLL" ALIAS "AdsDDCreateUser" (BYVAL hDictionary AS LONG, BYVAL pucGroupName AS STRING, BYVAL pucUserName AS STRING, BYVAL pucPassword AS STRING, BYVAL pucDescription AS STRING) AS LONG
     DECLARE FUNCTION AdsDDAddUserToGroup LIB "ACE32.DLL" ALIAS "AdsDDAddUserToGroup" (BYVAL hDictionary AS LONG, BYVAL pucGroupName AS STRING, BYVAL pucUserName AS STRING) AS LONG
     DECLARE FUNCTION AdsDDRemoveUserFromGroup LIB "ACE32.DLL" ALIAS "AdsDDRemoveUserFromGroup" (BYVAL hDictionary AS LONG, BYVAL pucGroupName AS STRING, BYVAL pucUserName AS STRING) AS LONG
     DECLARE FUNCTION AdsDDDeleteUser LIB "ACE32.DLL" ALIAS "AdsDDDeleteUser" (BYVAL hDictionary AS LONG, BYVAL pucUserName AS STRING) AS LONG
     DECLARE FUNCTION AdsDDCreateUserGroup LIB "ACE32.DLL" ALIAS "AdsDDCreateUserGroup" (BYVAL hDictionary AS LONG, BYVAL pucGroupName AS STRING, BYVAL pucDescription AS STRING) AS LONG
     DECLARE FUNCTION AdsDDDeleteUserGroup LIB "ACE32.DLL" ALIAS "AdsDDDeleteUserGroup" (BYVAL hDictionary AS LONG, BYVAL pucGroupName AS STRING) AS LONG
     DECLARE FUNCTION AdsDDDeleteIndex LIB "ACE32.DLL" ALIAS "AdsDDDeleteIndex" (BYVAL hDictionary AS LONG, BYVAL pucTableName AS STRING, BYVAL pucIndexName AS STRING) AS LONG
     DECLARE FUNCTION AdsDDRemoveIndexFile LIB "ACE32.DLL" ALIAS "AdsDDRemoveIndexFile" (BYVAL hDictionary AS LONG, BYVAL pucTableName AS STRING, BYVAL pucIndexFileName AS STRING, BYVAL usDeleteFile AS INTEGER) AS LONG
     DECLARE FUNCTION AdsDDRemoveTable LIB "ACE32.DLL" ALIAS "AdsDDRemoveTable" (BYVAL hObject AS LONG, BYVAL pucTableName AS STRING, BYVAL usDeleteFile AS INTEGER) AS LONG
     DECLARE FUNCTION AdsDDRemoveView LIB "ACE32.DLL" ALIAS "AdsDDRemoveView" (BYVAL hDictionary AS LONG, BYVAL pucName AS STRING) AS LONG
     DECLARE FUNCTION AdsDDFindFirstObject LIB "ACE32.DLL" ALIAS "AdsDDFindFirstObject" (BYVAL hObject AS LONG, BYVAL usFindObjectType AS INTEGER, BYVAL pucParentName AS STRING, BYVAL pucObjectName AS STRING, pusObjectNameLen AS INTEGER, phFindHandle AS LONG) AS LONG
     DECLARE FUNCTION AdsDDFindNextObject LIB "ACE32.DLL" ALIAS "AdsDDFindNextObject" (BYVAL hObject AS LONG, BYVAL hFindHandle AS LONG, BYVAL pucObjectName AS STRING, pusObjectNameLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsDDFindClose LIB "ACE32.DLL" ALIAS "AdsDDFindClose" (BYVAL hObject AS LONG, BYVAL hFindHandle AS LONG) AS LONG
     DECLARE FUNCTION AdsDDGetPermissions LIB "ACE32.DLL" ALIAS "AdsDDGetPermissions" (BYVAL hDBConn AS LONG, BYVAL pucGrantee AS STRING, BYVAL usObjectType AS INTEGER, BYVAL pucObjectName AS STRING, BYVAL pucParentName AS STRING, BYVAL usGetInherited AS INTEGER, pulPermissions AS LONG ) AS LONG
     DECLARE FUNCTION AdsDDGrantPermission LIB "ACE32.DLL" ALIAS "AdsDDGrantPermission" (BYVAL hAdminConn AS LONG, BYVAL usObjectType AS INTEGER, BYVAL pucObjectName AS STRING, BYVAL pucParentName AS STRING, BYVAL pucGrantee AS STRING, BYVAL ulPermissions AS INTEGER ) AS LONG
     DECLARE FUNCTION AdsDDRevokePermission LIB "ACE32.DLL" ALIAS "AdsDDRevokePermission" (BYVAL hAdminConn AS LONG, BYVAL usObjectType AS INTEGER, BYVAL pucObjectName AS STRING, BYVAL pucParentName AS STRING, BYVAL pucGrantee AS STRING, BYVAL ulPermissions AS INTEGER ) AS LONG
     DECLARE FUNCTION AdsDDGetLinkProperty LIB "ACE32.DLL" ALIAS "AdsDDGetLinkProperty" (BYVAL hConnect AS LONG, BYVAL pucLinkName AS STRING, BYVAL usPropertyID AS INTEGER, pvProperty, pusPropertyLen AS INTEGER ) AS LONG
     DECLARE FUNCTION AdsDDCreateLink LIB "ACE32.DLL" ALIAS "AdsDDCreateLink" (BYVAL hDBConn AS LONG, BYVAL pucLinkAlias AS STRING, BYVAL pucLinkedDDPath AS STRING, BYVAL pucUserName AS STRING, BYVAL pucPassword AS STRING, BYVAL ulOptions AS LONG ) AS LONG
     DECLARE FUNCTION AdsDDDropLink LIB "ACE32.DLL" ALIAS "AdsDDDropLink" (BYVAL hDBConn AS LONG, BYVAL pucLinkedDD AS STRING, BYVAL usDrop AS INTEGER ) AS LONG
     DECLARE FUNCTION AdsDecryptRecord LIB "ACE32.DLL" ALIAS "AdsDecryptRecord" (BYVAL hTable AS LONG) AS LONG
     DECLARE FUNCTION AdsDecryptTable LIB "ACE32.DLL" ALIAS "AdsDecryptTable" (BYVAL hTable AS LONG) AS LONG
     DECLARE FUNCTION AdsDeleteCustomKey LIB "ACE32.DLL" ALIAS "AdsDeleteCustomKey" (BYVAL hIndex AS LONG) AS LONG
     DECLARE FUNCTION AdsDeleteIndex LIB "ACE32.DLL" ALIAS "AdsDeleteIndex" (BYVAL hIndex AS LONG) AS LONG
     DECLARE FUNCTION AdsDeleteRecord LIB "ACE32.DLL" ALIAS "AdsDeleteRecord" (BYVAL hTable AS LONG) AS LONG
     DECLARE FUNCTION AdsDisableEncryption LIB "ACE32.DLL" ALIAS "AdsDisableEncryption" (BYVAL hTable AS LONG) AS LONG
     DECLARE FUNCTION AdsDisableLocalConnections LIB "ACE32.DLL" ALIAS "AdsDisableLocalConnections" () AS LONG
     DECLARE FUNCTION AdsDisconnect LIB "ACE32.DLL" ALIAS "AdsDisconnect" (BYVAL hConnect AS LONG) AS LONG
     DECLARE FUNCTION AdsEnableEncryption LIB "ACE32.DLL" ALIAS "AdsEnableEncryption" (BYVAL hTable AS LONG, BYVAL pucPassword AS STRING) AS LONG
     DECLARE FUNCTION AdsEncryptRecord LIB "ACE32.DLL" ALIAS "AdsEncryptRecord" (BYVAL hTable AS LONG) AS LONG
     DECLARE FUNCTION AdsEncryptTable LIB "ACE32.DLL" ALIAS "AdsEncryptTable" (BYVAL hTable AS LONG) AS LONG
     DECLARE FUNCTION AdsEvalLogicalExpr LIB "ACE32.DLL" ALIAS "AdsEvalLogicalExpr" (BYVAL hTable AS LONG, BYVAL pucExpr AS STRING, pbResult AS INTEGER) AS LONG
     DECLARE FUNCTION AdsEvalNumericExpr LIB "ACE32.DLL" ALIAS "AdsEvalNumericExpr" (BYVAL hTable AS LONG, BYVAL pucExpr AS STRING, pdResult AS DOUBLE) AS LONG
     DECLARE FUNCTION AdsEvalStringExpr LIB "ACE32.DLL" ALIAS "AdsEvalStringExpr" (BYVAL hTable AS LONG, BYVAL pucExpr AS STRING, BYVAL pucResult AS STRING, pusLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsEvalTestExpr LIB "ACE32.DLL" ALIAS "AdsEvalTestExpr" (BYVAL hTable AS LONG, BYVAL pucExpr AS STRING, pusType AS INTEGER) AS LONG
     DECLARE FUNCTION AdsExtractKey LIB "ACE32.DLL" ALIAS "AdsExtractKey" (BYVAL hIndex AS LONG, BYVAL pucKey AS STRING, pusLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsFailedTransactionRecovery LIB "ACE32.DLL" ALIAS "AdsFailedTransactionRecovery" (BYVAL pucServer AS STRING) AS LONG
     DECLARE FUNCTION AdsFileToBinary LIB "ACE32.DLL" ALIAS "AdsFileToBinary" (BYVAL hTable AS LONG, BYVAL pucFldName AS STRING, BYVAL usBinaryType AS INTEGER, BYVAL pucFileName AS STRING) AS LONG
     DECLARE FUNCTION AdsFindConnection LIB "ACE32.DLL" ALIAS "AdsFindConnection" (BYVAL pucServerName AS STRING, phConnect AS LONG) AS LONG
     DECLARE FUNCTION AdsFindConnection25 LIB "ACE32.DLL" ALIAS "AdsFindConnection25" (BYVAL pucServerName AS STRING, phConnect AS LONG) AS LONG
     DECLARE FUNCTION AdsGetAllIndexes LIB "ACE32.DLL" ALIAS "AdsGetAllIndexes" (BYVAL hTable AS LONG, ahIndex AS LONG, pusArrayLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetAllLocks LIB "ACE32.DLL" ALIAS "AdsGetAllLocks" (BYVAL hTable AS LONG, aulLocks AS LONG, pusArrayLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetAllTables LIB "ACE32.DLL" ALIAS "AdsGetAllTables" (ahTable AS LONG, pusArrayLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetBinary LIB "ACE32.DLL" ALIAS "AdsGetBinary" (BYVAL hTable AS LONG, BYVAL pucFldName AS STRING, BYVAL ulOffset AS LONG, BYVAL pucBuf AS STRING, pulLen AS LONG) AS LONG
     DECLARE FUNCTION AdsGetBinaryLength LIB "ACE32.DLL" ALIAS "AdsGetBinaryLength" (BYVAL hTable AS LONG, BYVAL pucFldName AS STRING, pulLength AS LONG) AS LONG
     DECLARE FUNCTION AdsGetBookmark LIB "ACE32.DLL" ALIAS "AdsGetBookmark" (BYVAL hTable AS LONG, phBookmark AS LONG) AS LONG
     DECLARE FUNCTION AdsGetCollationLang LIB "ACE32.DLL" ALIAS "AdsGetCollationLang" (BYVAL pucLang AS STRING, pusLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetConnectionType LIB "ACE32.DLL" ALIAS "AdsGetConnectionType" (BYVAL hConnect AS LONG, pusConnectType AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetDate LIB "ACE32.DLL" ALIAS "AdsGetDate" (BYVAL hTable AS LONG, BYVAL pucFldName AS STRING, BYVAL pucBuf AS STRING, pusLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetDateFormat LIB "ACE32.DLL" ALIAS "AdsGetDateFormat" (BYVAL pucFormat AS STRING, pusLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetDecimals LIB "ACE32.DLL" ALIAS "AdsGetDecimals" (pusDecimals AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetDefault LIB "ACE32.DLL" ALIAS "AdsGetDefault" (BYVAL pucDefault AS STRING, pusLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetDeleted LIB "ACE32.DLL" ALIAS "AdsGetDeleted" (pbUseDeleted AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetDouble LIB "ACE32.DLL" ALIAS "AdsGetDouble" (BYVAL hTable AS LONG, BYVAL pucFldName AS STRING, pdValue AS DOUBLE) AS LONG
     DECLARE FUNCTION AdsGetEpoch LIB "ACE32.DLL" ALIAS "AdsGetEpoch" (pusCentury AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetErrorString LIB "ACE32.DLL" ALIAS "AdsGetErrorString" (BYVAL ulErrCode AS LONG, BYVAL pucBuf AS STRING, pusBufLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetExact LIB "ACE32.DLL" ALIAS "AdsGetExact" (pbExact AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetExact22 LIB "ACE32.DLL" ALIAS "AdsGetExact22" (BYVAL hObj AS LONG, pbExact AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetField LIB "ACE32.DLL" ALIAS "AdsGetField" (BYVAL hTable AS LONG, BYVAL pucFldName AS STRING, BYVAL pucBuf AS STRING, pulLen AS LONG, BYVAL usOption AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetFieldDecimals LIB "ACE32.DLL" ALIAS "AdsGetFieldDecimals" (BYVAL hTable AS LONG, BYVAL pucFldName AS STRING, pusDecimals AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetFieldLength LIB "ACE32.DLL" ALIAS "AdsGetFieldLength" (BYVAL hTable AS LONG, BYVAL pucFldName AS STRING, pulLength AS LONG) AS LONG
     DECLARE FUNCTION AdsGetFieldName LIB "ACE32.DLL" ALIAS "AdsGetFieldName" (BYVAL hTable AS LONG, BYVAL usFld AS INTEGER, BYVAL pucName AS STRING, pusBufLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetFieldNum LIB "ACE32.DLL" ALIAS "AdsGetFieldNum" (BYVAL hTable AS LONG, BYVAL pucFldName AS STRING, pusNum AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetFieldOffset LIB "ACE32.DLL" ALIAS "AdsGetFieldOffset" (BYVAL hTable AS LONG, BYVAL pucFldName AS STRING, pulOffset AS LONG) AS LONG
     DECLARE FUNCTION AdsGetFieldType LIB "ACE32.DLL" ALIAS "AdsGetFieldType" (BYVAL hTable AS LONG, BYVAL pucFldName AS STRING, pusType AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetFilter LIB "ACE32.DLL" ALIAS "AdsGetFilter" (BYVAL hTable AS LONG, BYVAL pucFilter AS STRING, pusLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetHandleLong LIB "ACE32.DLL" ALIAS "AdsGetHandleLong" (BYVAL hObj AS LONG, pulVal AS LONG) AS LONG
     DECLARE FUNCTION AdsGetHandleType LIB "ACE32.DLL" ALIAS "AdsGetHandleType" (BYVAL hObj AS LONG, pusType AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetHandleByExpression LIB "ACE32.DLL" ALIAS "AdsGetHandleByExpression" (BYVAL hTable AS LONG, BYVAL pucExpr AS STRING, BYVAL ulDescending AS LONG, pulVal AS LONG) AS LONG
     DECLARE FUNCTION AdsGetIndexCondition LIB "ACE32.DLL" ALIAS "AdsGetIndexCondition" (BYVAL hIndex AS LONG, BYVAL pucExpr AS STRING, pusLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetIndexExpr LIB "ACE32.DLL" ALIAS "AdsGetIndexExpr" (BYVAL hIndex AS LONG, BYVAL pucExpr AS STRING, pusLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetIndexFilename LIB "ACE32.DLL" ALIAS "AdsGetIndexFilename" (BYVAL hIndex AS LONG, BYVAL usOption AS INTEGER, BYVAL pucName AS STRING, pusLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetIndexHandle LIB "ACE32.DLL" ALIAS "AdsGetIndexHandle" (BYVAL hTable AS LONG, BYVAL pucIndexOrder AS STRING, phIndex AS LONG) AS LONG
     DECLARE FUNCTION AdsGetIndexHandleByOrder LIB "ACE32.DLL" ALIAS "AdsGetIndexHandleByOrder" (BYVAL hTable AS LONG, BYVAL usIndexOrder AS INTEGER, phIndex AS LONG) AS LONG
     DECLARE FUNCTION AdsGetIndexHandleByExpr LIB "ACE32.DLL" ALIAS "AdsGetIndexHandleByExpr" (BYVAL hTable AS LONG, BYVAL pucExpr AS STRING, BYVAL ulDescending AS LONG, phIndex AS LONG) AS LONG
     DECLARE FUNCTION AdsGetIndexName LIB "ACE32.DLL" ALIAS "AdsGetIndexName" (BYVAL hIndex AS LONG, BYVAL pucName AS STRING, pusLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetIndexOrderByHandle LIB "ACE32.DLL" ALIAS "AdsGetIndexOrderByHandle" (BYVAL hhIndex AS LONG, pusIndexOrder AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetJulian LIB "ACE32.DLL" ALIAS "AdsGetJulian" (BYVAL hTable AS LONG, BYVAL pucFldName AS STRING, plDate AS LONG) AS LONG
     DECLARE FUNCTION AdsGetKeyCount LIB "ACE32.DLL" ALIAS "AdsGetKeyCount" (BYVAL hIndex AS LONG, BYVAL usFilterOption AS INTEGER, pulCount AS LONG) AS LONG
     DECLARE FUNCTION AdsGetKeyNum LIB "ACE32.DLL" ALIAS "AdsGetKeyNum" (BYVAL hIndex AS LONG, BYVAL usFilterOption AS INTEGER, pulKey AS LONG) AS LONG
     DECLARE FUNCTION AdsGetKeyLength LIB "ACE32.DLL" ALIAS "AdsGetKeyLength" (BYVAL hIndex AS LONG, pusKeyLength AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetKeyType LIB "ACE32.DLL" ALIAS "AdsGetKeyType" (BYVAL hIndex AS LONG, pusKeyType AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetLastError LIB "ACE32.DLL" ALIAS "AdsGetLastError" (pulErrCode AS LONG, BYVAL pucBuf AS STRING, pusBufLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetLastTableUpdate LIB "ACE32.DLL" ALIAS "AdsGetLastTableUpdate" (BYVAL hTable AS LONG, BYVAL pucDate AS STRING, pusDateLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetLogical LIB "ACE32.DLL" ALIAS "AdsGetLogical" (BYVAL hTable AS LONG, BYVAL pucFldName AS STRING, pbValue AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetLong LIB "ACE32.DLL" ALIAS "AdsGetLong" (BYVAL hTable AS LONG, BYVAL pucFldName AS STRING, plValue AS LONG) AS LONG
     DECLARE FUNCTION AdsGetMemoLength LIB "ACE32.DLL" ALIAS "AdsGetMemoLength" (BYVAL hTable AS LONG, BYVAL pucFldName AS STRING, pulLength AS LONG) AS LONG
     DECLARE FUNCTION AdsGetMemoDataType LIB "ACE32.DLL" ALIAS "AdsGetMemoDataType" (BYVAL hTable AS LONG, BYVAL pucFldName AS STRING, pusType AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetMilliseconds LIB "ACE32.DLL" ALIAS "AdsGetMilliseconds" (BYVAL hTable AS LONG, BYVAL pucFldName AS STRING, plTime AS LONG) AS LONG
     DECLARE FUNCTION AdsGetNumFields LIB "ACE32.DLL" ALIAS "AdsGetNumFields" (BYVAL hTable AS LONG, pusCount AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetNumIndexes LIB "ACE32.DLL" ALIAS "AdsGetNumIndexes" (BYVAL hTable AS LONG, pusNum AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetNumLocks LIB "ACE32.DLL" ALIAS "AdsGetNumLocks" (BYVAL hTable AS LONG, pulNum AS LONG) AS LONG
     DECLARE FUNCTION AdsGetNumOpenTables LIB "ACE32.DLL" ALIAS "AdsGetNumOpenTables" (pusNum AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetRecord LIB "ACE32.DLL" ALIAS "AdsGetRecord" (BYVAL hTable AS LONG, BYVAL pucRec AS STRING, pulLen AS LONG) AS LONG
     DECLARE FUNCTION AdsGetRecordCount LIB "ACE32.DLL" ALIAS "AdsGetRecordCount" (BYVAL hTable AS LONG, BYVAL usFilterOption AS INTEGER, pulCount AS LONG) AS LONG
     DECLARE FUNCTION AdsGetRecordNum LIB "ACE32.DLL" ALIAS "AdsGetRecordNum" (BYVAL hTable AS LONG, BYVAL usFilterOption AS INTEGER, pulRec AS LONG) AS LONG
     DECLARE FUNCTION AdsGetRecordLength LIB "ACE32.DLL" ALIAS "AdsGetRecordLength" (BYVAL hTable AS LONG, pulLength AS LONG) AS LONG
     DECLARE FUNCTION AdsGetRelKeyPos LIB "ACE32.DLL" ALIAS "AdsGetRelKeyPos" (BYVAL hIndex AS LONG, pdPos AS DOUBLE) AS LONG
     DECLARE FUNCTION AdsGetScope LIB "ACE32.DLL" ALIAS "AdsGetScope" (BYVAL hIndex AS LONG, BYVAL usScopeOption AS INTEGER, BYVAL pucScope AS STRING, pusBufLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetSearchPath LIB "ACE32.DLL" ALIAS "AdsGetSearchPath" (BYVAL pucPath AS STRING, pusLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetServerName LIB "ACE32.DLL" ALIAS "AdsGetServerName" (BYVAL hConnect AS LONG, BYVAL pucName AS STRING, pusLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetServerTime LIB "ACE32.DLL" ALIAS "AdsGetServerTime" (BYVAL hConnect AS LONG, BYVAL pucDateBuf AS STRING, pusDateBufLen AS INTEGER, plTime AS LONG, BYVAL pucTimeBuf AS STRING, pusTimeBufLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetShort LIB "ACE32.DLL" ALIAS "AdsGetShort" (BYVAL hTable AS LONG, BYVAL pucFldName AS STRING, psValue AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetString LIB "ACE32.DLL" ALIAS "AdsGetString" (BYVAL hTable AS LONG, BYVAL pucFldName AS STRING, BYVAL pucBuf AS STRING, pulLen AS LONG, BYVAL usOption AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetTableAlias LIB "ACE32.DLL" ALIAS "AdsGetTableAlias" (BYVAL hTable AS LONG, BYVAL pucAlias AS STRING, pusLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetTableCharType LIB "ACE32.DLL" ALIAS "AdsGetTableCharType" (BYVAL hTable AS LONG, pusCharType AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetTableConnection LIB "ACE32.DLL" ALIAS "AdsGetTableConnection" (BYVAL hTable AS LONG, phConnect AS LONG) AS LONG
     DECLARE FUNCTION AdsGetTableFilename LIB "ACE32.DLL" ALIAS "AdsGetTableFilename" (BYVAL hTable AS LONG, BYVAL usOption AS INTEGER, BYVAL pucName AS STRING, pusLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetTableHandle LIB "ACE32.DLL" ALIAS "AdsGetTableHandle" (BYVAL pucName AS STRING, phTable AS LONG) AS LONG
     DECLARE FUNCTION AdsGetTableHandle25 LIB "ACE32.DLL" ALIAS "AdsGetTableHandle25" (BYVAL hConnect AS LONG, BYVAL pucName AS STRING, phTable AS LONG) AS LONG
     DECLARE FUNCTION AdsGetTableLockType LIB "ACE32.DLL" ALIAS "AdsGetTableLockType" (BYVAL hTable AS LONG, pusLockType AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetTableMemoSize LIB "ACE32.DLL" ALIAS "AdsGetTableMemoSize" (BYVAL hTable AS LONG, pusMemoSize AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetTableOpenOptions LIB "ACE32.DLL" ALIAS "AdsGetTableOpenOptions" (BYVAL hTable AS LONG, pulOptions AS LONG) AS LONG
     DECLARE FUNCTION AdsGetTableRights LIB "ACE32.DLL" ALIAS "AdsGetTableRights" (BYVAL hTable AS LONG, pusRights AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetTableType LIB "ACE32.DLL" ALIAS "AdsGetTableType" (BYVAL hTable AS LONG, pusType AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetTime LIB "ACE32.DLL" ALIAS "AdsGetTime" (BYVAL hTable AS LONG, BYVAL pucFldName AS STRING, BYVAL pucBuf AS STRING, pusLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetVersion LIB "ACE32.DLL" ALIAS "AdsGetVersion" (pulMajor AS LONG, pulMinor AS LONG, BYVAL pucLetter AS STRING, BYVAL pucDesc AS STRING, pusDescLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGotoBookmark LIB "ACE32.DLL" ALIAS "AdsGotoBookmark" (BYVAL hTable AS LONG, BYVAL hBookmark AS LONG) AS LONG
     DECLARE FUNCTION AdsGotoBottom LIB "ACE32.DLL" ALIAS "AdsGotoBottom" (BYVAL hObj AS LONG) AS LONG
     DECLARE FUNCTION AdsGotoRecord LIB "ACE32.DLL" ALIAS "AdsGotoRecord" (BYVAL hTable AS LONG, BYVAL ulRec AS LONG) AS LONG
     DECLARE FUNCTION AdsGotoTop LIB "ACE32.DLL" ALIAS "AdsGotoTop" (BYVAL hObj AS LONG) AS LONG
     DECLARE FUNCTION AdsImageToClipboard LIB "ACE32.DLL" ALIAS "AdsImageToClipboard" (BYVAL hTable AS LONG, BYVAL pucFldName AS STRING) AS LONG
     DECLARE FUNCTION AdsInTransaction LIB "ACE32.DLL" ALIAS "AdsInTransaction" (BYVAL hConnect AS LONG, pbInTrans AS INTEGER) AS LONG
     DECLARE FUNCTION AdsIsEmpty LIB "ACE32.DLL" ALIAS "AdsIsEmpty" (BYVAL hTable AS LONG, BYVAL pucFldName AS STRING, pbEmpty AS INTEGER) AS LONG
     DECLARE FUNCTION AdsIsExprValid LIB "ACE32.DLL" ALIAS "AdsIsExprValid" (BYVAL hTable AS LONG, BYVAL pucExpr AS STRING, pbValid AS INTEGER) AS LONG
     DECLARE FUNCTION AdsIsFound LIB "ACE32.DLL" ALIAS "AdsIsFound" (BYVAL hObj AS LONG, pbFound AS INTEGER) AS LONG
     DECLARE FUNCTION AdsIsIndexCompound LIB "ACE32.DLL" ALIAS "AdsIsIndexCompound" (BYVAL hIndex AS LONG, pbCompound AS INTEGER) AS LONG
     DECLARE FUNCTION AdsIsIndexCustom LIB "ACE32.DLL" ALIAS "AdsIsIndexCustom" (BYVAL hIndex AS LONG, pbCustom AS INTEGER) AS LONG
     DECLARE FUNCTION AdsIsIndexDescending LIB "ACE32.DLL" ALIAS "AdsIsIndexDescending" (BYVAL hIndex AS LONG, pbDescending AS INTEGER) AS LONG
     DECLARE FUNCTION AdsIsIndexUnique LIB "ACE32.DLL" ALIAS "AdsIsIndexUnique" (BYVAL hIndex AS LONG, pbUnique AS INTEGER) AS LONG
     DECLARE FUNCTION AdsIsRecordDeleted LIB "ACE32.DLL" ALIAS "AdsIsRecordDeleted" (BYVAL hTable AS LONG, pbDeleted AS INTEGER) AS LONG
     DECLARE FUNCTION AdsIsRecordEncrypted LIB "ACE32.DLL" ALIAS "AdsIsRecordEncrypted" (BYVAL hTable AS LONG, pbEncrypted AS INTEGER) AS LONG
     DECLARE FUNCTION AdsIsRecordLocked LIB "ACE32.DLL" ALIAS "AdsIsRecordLocked" (BYVAL hTable AS LONG, BYVAL ulRec AS LONG, pbLocked AS INTEGER) AS LONG
     DECLARE FUNCTION AdsIsRecordVisable LIB "ACE32.DLL" ALIAS "AdsIsRecordVisable" (BYVAL hTable AS LONG, pbVisable AS INTEGER) AS LONG
     DECLARE FUNCTION AdsIsServerLoaded LIB "ACE32.DLL" ALIAS "AdsIsServerLoaded" (BYVAL pucServer AS STRING, pbLoaded AS INTEGER) AS LONG
     DECLARE FUNCTION AdsIsTableEncrypted LIB "ACE32.DLL" ALIAS "AdsIsTableEncrypted" (BYVAL hTable AS LONG, pbEncrypted AS INTEGER) AS LONG
     DECLARE FUNCTION AdsIsTableLocked LIB "ACE32.DLL" ALIAS "AdsIsTableLocked" (BYVAL hTable AS LONG, pbLocked AS INTEGER) AS LONG
     DECLARE FUNCTION AdsLocate LIB "ACE32.DLL" ALIAS "AdsLocate" (BYVAL hTable AS LONG, BYVAL pucExpr AS STRING, BYVAL bForward AS INTEGER, pbFound AS INTEGER) AS LONG
     DECLARE FUNCTION AdsLockRecord LIB "ACE32.DLL" ALIAS "AdsLockRecord" (BYVAL hTable AS LONG, BYVAL ulRec AS LONG) AS LONG
     DECLARE FUNCTION AdsLockTable LIB "ACE32.DLL" ALIAS "AdsLockTable" (BYVAL hTable AS LONG) AS LONG
     DECLARE FUNCTION AdsLookupKey LIB "ACE32.DLL" ALIAS "AdsLookupKey" (BYVAL hIndex AS LONG, BYVAL pucKey AS STRING, BYVAL usKeyLen AS INTEGER, BYVAL usDataType AS INTEGER, pbFound AS INTEGER) AS LONG
     DECLARE FUNCTION AdsNullTerminateStrings LIB "ACE32.DLL" ALIAS "AdsNullTerminateStrings" (BYVAL bNullTerminate AS INTEGER) AS LONG
     DECLARE FUNCTION AdsOpenIndex LIB "ACE32.DLL" ALIAS "AdsOpenIndex" (BYVAL hTable AS LONG, BYVAL pucName AS STRING, ahIndex AS LONG, pusArrayLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsOpenTable LIB "ACE32.DLL" ALIAS "AdsOpenTable" (BYVAL hConnect AS LONG, BYVAL pucName AS STRING, BYVAL pucAlias AS STRING, BYVAL usTableType AS INTEGER, BYVAL usCharType AS INTEGER, BYVAL usLockType AS INTEGER, BYVAL usCheckRights AS INTEGER, BYVAL ulOptions AS LONG, phTable AS LONG) AS LONG
     DECLARE FUNCTION AdsPackTable LIB "ACE32.DLL" ALIAS "AdsPackTable" (BYVAL hTable AS LONG) AS LONG
     DECLARE FUNCTION AdsRecallRecord LIB "ACE32.DLL" ALIAS "AdsRecallRecord" (BYVAL hTable AS LONG) AS LONG
     DECLARE FUNCTION AdsRefreshRecord LIB "ACE32.DLL" ALIAS "AdsRefreshRecord" (BYVAL hTable AS LONG) AS LONG
     DECLARE FUNCTION AdsClearProgressCallback LIB "ACE32.DLL" ALIAS "AdsClearProgressCallback" () AS LONG

'NOTE: The following functions are not callable from Visual Basic
'DECLARE FUNCTION AdsRegisterProgressCallback Lib "ACE32.DLL" ALIAS "" (lpfnCallback as long)(ByVal usPercent as Integer ) ) as Long
'DECLARE FUNCTION AdsRegisterCallbackFunction Lib "ACE32.DLL" ALIAS "" (lpfnCallback as long)(ByVal usPercent as Integer, ByVal ulCallbackID as Long ) as Long
'DECLARE FUNCTION AdsClearCallbackFunction Lib "ACE32.DLL" ALIAS "" () As Long

     DECLARE FUNCTION AdsReindex LIB "ACE32.DLL" ALIAS "AdsReindex" (BYVAL hTable AS LONG) AS LONG
     DECLARE FUNCTION AdsReindex61 LIB "ACE32.DLL" ALIAS "AdsReindex61" (BYVAL hTable AS LONG, BYVAL ulPageSize AS LONG) AS LONG
     DECLARE FUNCTION AdsRollbackTransaction LIB "ACE32.DLL" ALIAS "AdsRollbackTransaction" (BYVAL hConnect AS LONG) AS LONG
     DECLARE FUNCTION AdsSeek LIB "ACE32.DLL" ALIAS "AdsSeek" (BYVAL hIndex AS LONG, BYVAL pucKey AS STRING, BYVAL usKeyLen AS INTEGER, BYVAL usDataType AS INTEGER, BYVAL usSeekType AS INTEGER, pbFound AS INTEGER) AS LONG
     DECLARE FUNCTION AdsSeekLast LIB "ACE32.DLL" ALIAS "AdsSeekLast" (BYVAL hIndex AS LONG, BYVAL pucKey AS STRING, BYVAL usKeyLen AS INTEGER, BYVAL usDataType AS INTEGER, pbFound AS INTEGER) AS LONG
     DECLARE FUNCTION AdsSetBinary LIB "ACE32.DLL" ALIAS "AdsSetBinary" (BYVAL hTable AS LONG, BYVAL pucFldName AS STRING, BYVAL usBinaryType AS INTEGER, BYVAL ulTotalLength AS LONG, BYVAL ulOffset AS LONG, BYVAL pucBuf AS STRING, BYVAL ulLen AS LONG) AS LONG
     DECLARE FUNCTION AdsSetCollationLang LIB "ACE32.DLL" ALIAS "AdsSetCollationLang" (BYVAL pucLang AS STRING) AS LONG
     DECLARE FUNCTION AdsSetDate LIB "ACE32.DLL" ALIAS "AdsSetDate" (BYVAL hObj AS LONG, BYVAL pucFldName AS STRING, BYVAL pucValue AS STRING, BYVAL usLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsSetDateFormat LIB "ACE32.DLL" ALIAS "AdsSetDateFormat" (BYVAL pucFormat AS STRING) AS LONG
     DECLARE FUNCTION AdsSetDecimals LIB "ACE32.DLL" ALIAS "AdsSetDecimals" (BYVAL usDecimals AS INTEGER) AS LONG
     DECLARE FUNCTION AdsSetDefault LIB "ACE32.DLL" ALIAS "AdsSetDefault" (BYVAL pucDefault AS STRING) AS LONG
     DECLARE FUNCTION AdsShowDeleted LIB "ACE32.DLL" ALIAS "AdsShowDeleted" (BYVAL bShowDeleted AS INTEGER) AS LONG
     DECLARE FUNCTION AdsSetDouble LIB "ACE32.DLL" ALIAS "AdsSetDouble" (BYVAL hObj AS LONG, BYVAL pucFldName AS STRING, BYVAL dValue AS DOUBLE) AS LONG
     DECLARE FUNCTION AdsSetEmpty LIB "ACE32.DLL" ALIAS "AdsSetEmpty" (BYVAL hObj AS LONG, BYVAL pucFldName AS STRING) AS LONG
     DECLARE FUNCTION AdsSetEpoch LIB "ACE32.DLL" ALIAS "AdsSetEpoch" (BYVAL usCentury AS INTEGER) AS LONG
     DECLARE FUNCTION AdsSetExact LIB "ACE32.DLL" ALIAS "AdsSetExact" (BYVAL bExact AS INTEGER) AS LONG
     DECLARE FUNCTION AdsSetExact22 LIB "ACE32.DLL" ALIAS "AdsSetExact22" (BYVAL hObj AS LONG, BYVAL bExact AS INTEGER) AS LONG
     DECLARE FUNCTION AdsSetField LIB "ACE32.DLL" ALIAS "AdsSetField" (BYVAL hObj AS LONG, BYVAL pucFldName AS STRING, BYVAL pucBuf AS STRING, BYVAL ulLen AS LONG) AS LONG
     DECLARE FUNCTION AdsSetFilter LIB "ACE32.DLL" ALIAS "AdsSetFilter" (BYVAL hTable AS LONG, BYVAL pucFilter AS STRING) AS LONG
     DECLARE FUNCTION AdsSetHandleLong LIB "ACE32.DLL" ALIAS "AdsSetHandleLong" (BYVAL hObj AS LONG, BYVAL ulVal AS LONG) AS LONG
     DECLARE FUNCTION AdsSetJulian LIB "ACE32.DLL" ALIAS "AdsSetJulian" (BYVAL hObj AS LONG, BYVAL pucFldName AS STRING, BYVAL lDate AS LONG) AS LONG
     DECLARE FUNCTION AdsSetLogical LIB "ACE32.DLL" ALIAS "AdsSetLogical" (BYVAL hObj AS LONG, BYVAL pucFldName AS STRING, BYVAL bValue AS INTEGER) AS LONG
     DECLARE FUNCTION AdsSetLong LIB "ACE32.DLL" ALIAS "AdsSetLong" (BYVAL hObj AS LONG, BYVAL pucFldName AS STRING, BYVAL lValue AS LONG) AS LONG
     DECLARE FUNCTION AdsSetMilliseconds LIB "ACE32.DLL" ALIAS "AdsSetMilliseconds" (BYVAL hObj AS LONG, BYVAL pucFldName AS STRING, BYVAL lTime AS LONG) AS LONG
     DECLARE FUNCTION AdsSetRecord LIB "ACE32.DLL" ALIAS "AdsSetRecord" (BYVAL hObj AS LONG, BYVAL pucRec AS STRING, BYVAL ulLen AS LONG) AS LONG
     DECLARE FUNCTION AdsSetRelation LIB "ACE32.DLL" ALIAS "AdsSetRelation" (BYVAL hTableParent AS LONG, BYVAL hIndexChild AS LONG, BYVAL pucExpr AS STRING) AS LONG
     DECLARE FUNCTION AdsSetRelKeyPos LIB "ACE32.DLL" ALIAS "AdsSetRelKeyPos" (BYVAL hIndex AS LONG, BYVAL dPos AS DOUBLE) AS LONG
     DECLARE FUNCTION AdsSetScope LIB "ACE32.DLL" ALIAS "AdsSetScope" (BYVAL hIndex AS LONG, BYVAL usScopeOption AS INTEGER, BYVAL pucScope AS STRING, BYVAL usScopeLen AS INTEGER, BYVAL usDataType AS INTEGER) AS LONG
     DECLARE FUNCTION AdsSetScopedRelation LIB "ACE32.DLL" ALIAS "AdsSetScopedRelation" (BYVAL hTableParent AS LONG, BYVAL hIndexChild AS LONG, BYVAL pucExpr AS STRING) AS LONG
     DECLARE FUNCTION AdsSetSearchPath LIB "ACE32.DLL" ALIAS "AdsSetSearchPath" (BYVAL pucPath AS STRING) AS LONG
     DECLARE FUNCTION AdsSetServerType LIB "ACE32.DLL" ALIAS "AdsSetServerType" (BYVAL usServerOptions AS INTEGER) AS LONG
     DECLARE FUNCTION AdsSetShort LIB "ACE32.DLL" ALIAS "AdsSetShort" (BYVAL hObj AS LONG, BYVAL pucFldName AS STRING, BYVAL sValue AS INTEGER) AS LONG
     DECLARE FUNCTION AdsSetString LIB "ACE32.DLL" ALIAS "AdsSetString" (BYVAL hObj AS LONG, BYVAL pucFldName AS STRING, BYVAL pucBuf AS STRING, BYVAL ulLen AS LONG) AS LONG
     DECLARE FUNCTION AdsSetTime LIB "ACE32.DLL" ALIAS "AdsSetTime" (BYVAL hObj AS LONG, BYVAL pucFldName AS STRING, BYVAL pucValue AS STRING, BYVAL usLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsShowError LIB "ACE32.DLL" ALIAS "AdsShowError" (BYVAL pucTitle AS STRING) AS LONG
     DECLARE FUNCTION AdsSkip LIB "ACE32.DLL" ALIAS "AdsSkip" (BYVAL hObj AS LONG, BYVAL lRecs AS LONG) AS LONG
     DECLARE FUNCTION AdsThreadExit LIB "ACE32.DLL" ALIAS "AdsThreadExit" () AS LONG
     DECLARE FUNCTION AdsUnlockRecord LIB "ACE32.DLL" ALIAS "AdsUnlockRecord" (BYVAL hTable AS LONG, BYVAL ulRec AS LONG) AS LONG
     DECLARE FUNCTION AdsUnlockTable LIB "ACE32.DLL" ALIAS "AdsUnlockTable" (BYVAL hTable AS LONG) AS LONG
'/* AdsVerifyPassword is obsolete, retained for backward compatibility.
' * Use AdsIsEncryptionEnabled instead. */
     DECLARE FUNCTION AdsVerifyPassword LIB "ACE32.DLL" ALIAS "AdsVerifyPassword" (BYVAL hTable AS LONG, pusIsValid AS INTEGER) AS LONG
     DECLARE FUNCTION AdsIsEncryptEnabled LIB "ACE32.DLL" ALIAS "AdsIsEncryptEnabled" (BYVAL hTable AS LONG, pusIsValid AS INTEGER) AS LONG
     DECLARE FUNCTION AdsWriteAllRecords LIB "ACE32.DLL" ALIAS "AdsWriteAllRecords" () AS LONG
     DECLARE FUNCTION AdsWriteRecord LIB "ACE32.DLL" ALIAS "AdsWriteRecord" (BYVAL hTable AS LONG) AS LONG
     DECLARE FUNCTION AdsZapTable LIB "ACE32.DLL" ALIAS "AdsZapTable" (BYVAL hTable AS LONG) AS LONG
     DECLARE FUNCTION AdsSetAOF LIB "ACE32.DLL" ALIAS "AdsSetAOF" (BYVAL hTable AS LONG, BYVAL pucFilter AS STRING, BYVAL usResolve AS INTEGER) AS LONG
     DECLARE FUNCTION AdsEvalAOF LIB "ACE32.DLL" ALIAS "AdsEvalAOF" (BYVAL hTable AS LONG, BYVAL pucFilter AS STRING, pusOptLevel AS INTEGER) AS LONG
     DECLARE FUNCTION AdsClearAOF LIB "ACE32.DLL" ALIAS "AdsClearAOF" (BYVAL hTable AS LONG) AS LONG
     DECLARE FUNCTION AdsRefreshAOF LIB "ACE32.DLL" ALIAS "AdsRefreshAOF" (BYVAL hTable AS LONG) AS LONG
     DECLARE FUNCTION AdsGetAOF LIB "ACE32.DLL" ALIAS "AdsGetAOF" (BYVAL hTable AS LONG, BYVAL pucFilter AS STRING, pusLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetAOFOptLevel LIB "ACE32.DLL" ALIAS "AdsGetAOFOptLevel" (BYVAL hTable AS LONG, pusOptLevel AS INTEGER, BYVAL pucNonOpt AS STRING, pusLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsIsRecordInAOF LIB "ACE32.DLL" ALIAS "AdsIsRecordInAOF" (BYVAL hTable AS LONG, BYVAL ulRecord AS LONG, pusIsInAOF AS INTEGER) AS LONG
     DECLARE FUNCTION AdsCustomizeAOF LIB "ACE32.DLL" ALIAS "AdsCustomizeAOF" (BYVAL hTable AS LONG, BYVAL ulNumRecords AS LONG, pulRecords AS LONG, BYVAL usOption AS INTEGER) AS LONG
     DECLARE FUNCTION AdsInitRawKey LIB "ACE32.DLL" ALIAS "AdsInitRawKey" (BYVAL hIndex AS LONG) AS LONG
     DECLARE FUNCTION AdsBuildRawKey LIB "ACE32.DLL" ALIAS "AdsBuildRawKey" (BYVAL hIndex AS LONG, BYVAL pucKey AS STRING, pusLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsCreateSQLStatement LIB "ACE32.DLL" ALIAS "AdsCreateSQLStatement" (BYVAL hConnect AS LONG, phStatement AS LONG) AS LONG
     DECLARE FUNCTION AdsPrepareSQL LIB "ACE32.DLL" ALIAS "AdsPrepareSQL" (BYVAL hStatement AS LONG, BYVAL pucSQL AS STRING) AS LONG
     DECLARE FUNCTION AdsExecuteSQL LIB "ACE32.DLL" ALIAS "AdsExecuteSQL" (BYVAL hStatement AS LONG, phCursor AS LONG) AS LONG
     DECLARE FUNCTION AdsExecuteSQLDirect LIB "ACE32.DLL" ALIAS "AdsExecuteSQLDirect" (BYVAL hStatement AS LONG, BYVAL pucSQL AS STRING, phCursor AS LONG) AS LONG
     DECLARE FUNCTION AdsCloseSQLStatement LIB "ACE32.DLL" ALIAS "AdsCloseSQLStatement" (BYVAL hStatement AS LONG) AS LONG
     DECLARE FUNCTION AdsStmtSetTableRights LIB "ACE32.DLL" ALIAS "AdsStmtSetTableRights" (BYVAL hStatement AS LONG, BYVAL usCheckRights AS INTEGER) AS LONG
     DECLARE FUNCTION AdsStmtSetTableReadOnly LIB "ACE32.DLL" ALIAS "AdsStmtSetTableReadOnly" (BYVAL hStatement AS LONG, BYVAL usReadOnly AS INTEGER) AS LONG
     DECLARE FUNCTION AdsStmtSetTableLockType LIB "ACE32.DLL" ALIAS "AdsStmtSetTableLockType" (BYVAL hStatement AS LONG, BYVAL usLockType AS INTEGER) AS LONG
     DECLARE FUNCTION AdsStmtSetTableCharType LIB "ACE32.DLL" ALIAS "AdsStmtSetTableCharType" (BYVAL hStatement AS LONG, BYVAL usCharType AS INTEGER) AS LONG
     DECLARE FUNCTION AdsStmtSetTableType LIB "ACE32.DLL" ALIAS "AdsStmtSetTableType" (BYVAL hStatement AS LONG, BYVAL usTableType AS INTEGER) AS LONG
     DECLARE FUNCTION AdsStmtCONSTrainUpdates LIB "ACE32.DLL" ALIAS "AdsStmtCONSTrainUpdates" (BYVAL hStatement AS LONG, BYVAL usCONSTrain AS INTEGER) AS LONG
     DECLARE FUNCTION AdsStmtEnableEncryption LIB "ACE32.DLL" ALIAS "AdsStmtEnableEncryption" (BYVAL hStatement AS LONG, BYVAL pucPassword AS STRING) AS LONG
     DECLARE FUNCTION AdsStmtDisableEncryption LIB "ACE32.DLL" ALIAS "AdsStmtDisableEncryption" (BYVAL hStatement AS LONG) AS LONG
     DECLARE FUNCTION AdsStmtSetTablePassword LIB "ACE32.DLL" ALIAS "AdsStmtSetTablePassword" (BYVAL hStatement AS LONG, BYVAL pucTableName AS STRING, BYVAL pucPassword AS STRING) AS LONG
     DECLARE FUNCTION AdsStmtClearTablePasswords LIB "ACE32.DLL" ALIAS "AdsStmtClearTablePasswords" (BYVAL hStatement AS LONG) AS LONG
     DECLARE FUNCTION AdsStmtReadAllColumns LIB "ACE32.DLL" ALIAS "AdsStmtReadAllColumns" (BYVAL hStatement AS LONG, BYVAL usReadColumns AS INTEGER) AS LONG
     DECLARE FUNCTION AdsClearSQLParams LIB "ACE32.DLL" ALIAS "AdsClearSQLParams" (BYVAL hStatement AS LONG) AS LONG
     DECLARE FUNCTION AdsSetTimeStamp LIB "ACE32.DLL" ALIAS "AdsSetTimeStamp" (BYVAL hObj AS LONG, BYVAL pucFldName AS STRING, BYVAL pucBuf AS STRING, BYVAL ulLen AS LONG) AS LONG

'NOTE: The following functions are not callable from Visual Basic
'DECLARE FUNCTION AdsClearSQLAbortFunc Lib "ACE32.DLL" ALIAS "" () as Long
'DECLARE FUNCTION AdsRegisterSQLAbortFunc Lib "ACE32.DLL" ALIAS "" (UNSIGNED32 (WINAPI *lpfnCallback)() ) as Long
'DECLARE FUNCTION AdsRegisterUDF Lib "ACE32.DLL" ALIAS "" (ByVal hObj As Long, ByVal usLen As Integer, UNSIGNED32 (WINAPI *lpfnUDF)() ) as Long

     DECLARE FUNCTION AdsGetNumParams LIB "ACE32.DLL" ALIAS "AdsGetNumParams" (BYVAL hStatement AS LONG, pusNumParams AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetLastAutoinc LIB "ACE32.DLL" ALIAS "AdsGetLastAutoinc" (BYVAL hObj AS LONG, pulAutoIncVal AS LONG) AS LONG
     DECLARE FUNCTION AdsIsIndexUserDefined LIB "ACE32.DLL" ALIAS "AdsIsIndexUserDefined" (BYVAL hIndex AS LONG, pbUserDefined AS INTEGER) AS LONG
     DECLARE FUNCTION AdsFindClose LIB "ACE32.DLL" ALIAS "AdsFindClose" (BYVAL hConnect AS LONG, BYVAL lHandle AS LONG) AS LONG
     DECLARE FUNCTION AdsFindFirstTable LIB "ACE32.DLL" ALIAS "AdsFindFirstTable" (BYVAL hConnect AS LONG, BYVAL pucFileMask AS STRING, BYVAL pucFirstFile AS STRING, pusFileLen AS INTEGER, plHandle AS LONG) AS LONG
     DECLARE FUNCTION AdsFindNextTable LIB "ACE32.DLL" ALIAS "AdsFindNextTable" (BYVAL hConnect AS LONG, BYVAL lHandle AS LONG, BYVAL pucFileName AS STRING, pusFileLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsFindFirstTable62 LIB "ACE32.DLL" ALIAS "AdsFindFirstTable62" (BYVAL hConnect AS LONG, BYVAL pucFileMask AS STRING, BYVAL pucFirstDD AS STRING, pusDDLen AS INTEGER, BYVAL pucFirstFile AS STRING, pusFileLen AS INTEGER, plHandle AS LONG) AS LONG
     DECLARE FUNCTION AdsFindNextTable62 LIB "ACE32.DLL" ALIAS "AdsFindNextTable62" (BYVAL hConnect AS LONG, BYVAL lHandle AS LONG, BYVAL pucDDName AS STRING, pusDDLen AS INTEGER, BYVAL pucFileName AS STRING, pusFileLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsRestructureTable LIB "ACE32.DLL" ALIAS "AdsRestructureTable" (BYVAL hObj AS LONG, BYVAL pucName AS STRING, BYVAL pucAlias AS STRING, BYVAL usTableType AS INTEGER, BYVAL usCharType AS INTEGER, BYVAL usLockType AS INTEGER, BYVAL usCheckRights AS INTEGER, BYVAL pucAddFields AS STRING, BYVAL pucDeleteFields AS STRING, BYVAL pucChangeFields AS STRING) AS LONG
     DECLARE FUNCTION AdsGetSQLStatementHandle LIB "ACE32.DLL" ALIAS "AdsGetSQLStatementHandle" (BYVAL hCursor AS LONG, phStmt AS LONG) AS LONG
     DECLARE FUNCTION AdsGetSQLStatement LIB "ACE32.DLL" ALIAS "AdsGetSQLStatement" (BYVAL hStmt AS LONG, BYVAL pucSQL AS STRING, pusLen AS INTEGER) AS LONG
     DECLARE FUNCTION AdsGetBookmark60 LIB "ACE32.DLL" ALIAS "AdsGetBookmark60" (BYVAL hObj AS LONG, BYVAL pucBookmark AS STRING, pulLength AS LONG) AS LONG
     DECLARE FUNCTION AdsGetBookmarkLength LIB "ACE32.DLL" ALIAS "AdsGetBookmarkLength" (BYVAL hObj AS LONG, pulLength AS LONG) AS LONG
     DECLARE FUNCTION AdsCompareBookmarks LIB "ACE32.DLL" ALIAS "AdsCompareBookmarks" (pucBookmark1 AS STRING, BYVAL pucBookmark2 AS STRING, plResult AS LONG) AS LONG
     DECLARE FUNCTION AdsGotoBookmark60 LIB "ACE32.DLL" ALIAS "AdsGotoBookmark60" (BYVAL hObj AS LONG, BYVAL pucBookmark AS STRING) AS LONG
     DECLARE FUNCTION AdsFlushFileBuffers LIB "ACE32.DLL" ALIAS "AdsFlushFileBuffers" (BYVAL hTable AS LONG) AS LONG
     DECLARE FUNCTION AdsDDDeployDatabase LIB "ACE32.DLL" ALIAS "AdsDDDeployDatabase" (BYVAL pucDestination AS STRING, BYVAL pucDestinationPassword AS STRING, BYVAL pucSource AS STRING, BYVAL pucSourcePassword AS STRING, BYVAL ulServerType AS LONG, BYVAL ulValidateOptions AS LONG, BYVAL usBackupFiles AS INTEGER, BYVAL ulOptions AS LONG) AS LONG
     DECLARE FUNCTION AdsVerifySQL LIB "ACE32.DLL" ALIAS "AdsVerifySQL" (BYVAL hStatement AS LONG, BYVAL pucSQL AS STRING) AS LONG
     DECLARE FUNCTION AdsGetActiveLinkInfo LIB "ACE32.DLL" ALIAS "AdsGetActiveLinkInfo" (BYVAL hDBConn AS LONG, BYVAL usLinkNum AS INTEGER, BYVAL pucLinkInfo AS STRING, pusBufferLen AS INTEGER ) AS LONG
     DECLARE FUNCTION AdsGetNumActiveLinks LIB "ACE32.DLL" ALIAS "AdsGetNumActiveLinks" (BYVAL hDBConn AS LONG, pusNumLinks AS INTEGER ) AS LONG
     DECLARE FUNCTION AdsEnableUniqueEnforcement LIB "ACE32.DLL" ALIAS "AdsEnableUniqueEnforcement" (BYVAL hConnect AS LONG ) AS LONG
     DECLARE FUNCTION AdsDisableUniqueEnforcement LIB "ACE32.DLL" ALIAS "AdsDisableUniqueEnforcement" (BYVAL hConnect AS LONG ) AS LONG
     DECLARE FUNCTION AdsEnableRI LIB "ACE32.DLL" ALIAS "AdsEnableRI" (BYVAL hConnect AS LONG ) AS LONG
     DECLARE FUNCTION AdsDisableRI LIB "ACE32.DLL" ALIAS "AdsDisableRI" (BYVAL hConnect AS LONG ) AS LONG
     DECLARE FUNCTION AdsEnableAutoIncEnforcement LIB "ACE32.DLL" ALIAS "AdsEnableAutoIncEnforcement" (BYVAL hConnect AS LONG ) AS LONG
     DECLARE FUNCTION AdsDisableAutoIncEnforcement LIB "ACE32.DLL" ALIAS "AdsDisableAutoIncEnforcement" (BYVAL hConnect AS LONG ) AS LONG
'/* EOF */

掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Sat 2019-7-20  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2003-02-18 16:14:04