UC知道VB 怎么在模块中设置相对路径
来源：百度知道 编辑：UC知道 时间：2024/06/01 04:09:22
我用VB 做的一个小程序,没有用控件,用模块连接的数据库,数据库是ACCESS的,请问怎么用模块编写相对路径,模块代码如下
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public Const constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\VB\员工管理系统.mdb;Persist Security Info=False"
Public strsql As String
Public userID As String
Public userpow As String
求高手帮忙解决下
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public Const constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\VB\员工管理系统.mdb;Persist Security Info=False"
Public strsql As String
Public userID As String
Public userpow As String
求高手帮忙解决下
如果你编译好的VB程序和数据库在同一个目录下（比如都在D:\VB下），那么将绝对路径改成App.Path即可。
Public Const 后不能跟变量，所以你要在运行时赋值：
'将Public Const constr 这句改成以下代码
Public constr As String
'将一下代码粘贴到初始化的过程里
constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& App.Path &"\员工管理系统.mdb;Persist Security Info=False"
只知道excel中是：THISWORKBOOK.PATH
将数据库文件与工程文件放在同一目录下,将连接字符串中的路径删除:即Public Const constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=员工管理系统.mdb;Persist Security Info=False"