const.bas

来自「VB和Oracle结合的程序」· BAS 代码 · 共 23 行

Attribute VB_Name = "Const"
'数据库访问常量
Public Const SQL_C_CHAR As Long = 1
Public Const SQL_COLUMN_LABEL As Long = 18
Public Const SQL_DROP As Long = 1
Public Const SQL_DRROR As Long = -1
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
Public Const SQL_ATTR_MAX_LENGTH As Long = 100
'版本号
Public Const VerNum As String = "版本 1.0.01"
'生成日期
Public Const GenDate As String = "日期 2003-03-26"
'数据源信息常量
Public Const DATABASE As String = "BOOKMAN"
Public Const DSN As String = "BookSys"
Public Const DB_USER_NAME As String = "bookman"
Public Const DB_PASSWORD As String = "bookman"
 '一次执行connect操作可以访问数据库的次数
Public Const CONNECT_LOOP_MAX = 10