modconst.bas

sql的实例源码

Attribute VB_Name = "modConst"
'数据源信息常量
Public Const DATASOURCE As String = "127.0.0.1"   '数据源
Public Const DBNAME As String = "BookManage"      '数据库
Public Const DBUSER As String = "sa"              '用户
Public Const CONSTR As String = "Provider=SQLOLEDB.1;Trusted_Connection=Yes;Data Source=" _
                              + DATASOURCE + ";User ID=" + DBUSER + ";Password=;Initial Catalog=" _
                              + DBNAME + ";"
'定义树结点常量
Public Const TREENAME As String = "tvw"