我用vb做了一个连接数据库的程序,数据库是Access2000,用ADODC控件连接数据库,用vb6自带的打包程序打包后,数据库路径是固定的,安装到别的机子上就没法用了。
请问:怎样动态的设置数据库路径才能使我安装在任意路径时
能调用打在包里的数据库。下面是我的数据库连接路径,数据表是f48.mdb
cn = " Provider=Microsoft.Jet.OLEDB.4.0
Data Source=" & "D:\Program Files\Microsoft Visual Studio\VB98\f48.mdb" 恳请各位大虾指点一二!!!
请问:怎样动态的设置数据库路径才能使我安装在任意路径时
能调用打在包里的数据库。下面是我的数据库连接路径,数据表是f48.mdb
cn = " Provider=Microsoft.Jet.OLEDB.4.0
Data Source=" & "D:\Program Files\Microsoft Visual Studio\VB98\f48.mdb" 恳请各位大虾指点一二!!!
解决方案 »
- 求关于VAB开发的一些代码,大概就是几个if,when语句,请进!
- 关于数据库信息修改!
- 求助:在网上开商店,怎么统计销售额?
- 如何用vb在excel中插入分页符?
- 请问如何让一个文件夹里的图片名全部加上几个字母?
- 求vb高手:给定两组已按升序排列的整数数据,使用过程编写程序把它们合并为一组仍能按升序排列的数据!
- 那位有关于Excel,Word对象的教程??详细点的~~
- 紧急问题,如何对access数据库加解密???
- 怎样捕获键盘与鼠标消息?急
- 请问使用webbroser时如何禁止脚本调试
- 急!!!!!!!!!!!!! 对象 'Open' 方法 '_RecordSet' 失败 (救命啊!)
- 简单问题,希望大家解决啊?
把这个路径放到数据库中,或放入TEXT文本中,再从中读出就可以了,
Dim conn As New ADODB.Connection
Dim rs As New ADODB.RecordsetModule1.ss = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database\dbs.mdb "
conn.Open Module1.ss
rs.Open "select * from Table", conn, adOpenKeyset, adLockPessimistic
module1 是定义在模块中的,把连接字符串直接放在模块中,方便其他地方的调用
Table是你所要打开的表
Data Source=app.path & "\f48.mdb"
Data Source=" & app.path & "\f48.mdb"
'将数据库放到你的VB文件的目录下就可以了.