连接数据库用相对路径,怎么弄?
各位老师,代码如下:'版本号
Public Const VerNum As String = "版本 1.0"
'生成日期
Public Const GenDate As String = "日期 2005-11-25"
'定义数据库连接字符串
'Public Const Conn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=CRM.mdb;" '设置连接字符串ConnectionString属性
'Public Const Conn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\vb\vbstudy\源码01 客户资源管理系统\CRM.mdb;" '设置连接字符串ConnectionString属性
Public Const Conn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "crm.mdb" '设置连接字符串ConnectionString属性"
'一次执行connect操作可以访问数据库的次数
Public Const CONNECT_LOOP_MAX = 10