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

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
请问数据库连接怎样变为相对路径 帮忙修改原码
...全文
46 回复 点赞 打赏 收藏 举报
写回复
回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
相关推荐
发帖
VB基础类
加入

7547

社区成员

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