const.bas

来自「售后服务管理系统,采用VB+SQL实现,包含源程序及数据库备份,完美运行,完整无」· BAS 代码 · 共 14 行

Attribute VB_Name = "Const"
'版本号
Public Const VerNum As String = "版本 1.0"
'生成日期
Public Const GenDate As String = "日期 2005-11-28"
'定义数据库连接字符串
Public Const Conn As String = "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;" _
                                + "User ID=sa;Initial Catalog=Service;Data Source=127.0.0.1"
 '一次执行connect操作可以访问数据库的次数
Public Const CONNECT_LOOP_MAX = 10