const.bas

来自「电脑销售管理系统是典型的信息管理系统（MIS）」· BAS 代码 · 共 21 行

Attribute VB_Name = "const"
'此模块用来管理工程中的常量


'数据库访问常量
Public Const SQL_C_CHAR As Long = 1                          '在SQL语句中使用C语言的CHAR数据类型
Public Const SQL_COLUMN_LABEL As Long = 18                   '列标签
Public Const SQL_DROP As Long = 1                            '释放SQL语句句柄
Public Const SQL_DRROR As Long = -1                          'SQL_DRROR可能是SQL_ERROR SQL语句返回错误信息
Public Const SQL_NO_DATA_FOUND As Long = 100                  '结果集为空
Public Const SQL_SUCCESS As Long = 0                          '语句执行成功
Public Const SQL_SUCCESS_WITH_INFO As Long = 1                '执行SQL语句返回一个警告信息
Public Const SQL_ATTR_MAX_LENGTH As Long = 100
'数据源信息常量
Public Const DATABASE As String = "Stocks"
Public Const DSN As String = "Stocks"
Public Const DB_USER_NAME As String = "sa"
Public Const DB_PASSWORD As String = "sa"
 '一次执行connect操作可以访问数据库的次数
Public Const CONNECT_LOOP_MAX = 10                           '一次执行connect操作可以访问数据库的次数