请问数据库连接怎样变为相对路径 帮忙修改原码

guowise 2004-03-08 06:05:30
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
请问数据库连接怎样变为相对路径 帮忙修改原码
...全文
45 点赞 收藏 回复
写回复
回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7521

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2004-03-08 06:05
社区公告
暂无公告