7,785
社区成员
发帖
与我相关
我的任务
分享请问数据库连接怎样变为相对路径 帮忙修改原码
Dim str As String
Dim conn As New ADODB.Connection
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Application\db1.mdb;Persist Security Info=False"
conn.Open str
Dim rs As New ADODB.Recordset
rs.Open "select * from main", conn, adOpenDynamic, adLockOptimistic
请问数据库连接怎样变为相对路径 帮忙修改原码
Dim conn As New ADODB.Connection
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Application\db1.mdb;Persist Security Info=False"
conn.Open str
Dim rs As New ADODB.Recordset
rs.Open "select * from main", conn, adOpenDynamic, adLockOptimistic
请问数据库连接怎样变为相对路径 帮忙修改原码
...全文
请发表友善的回复…
发表回复
