1,216
社区成员
发帖
与我相关
我的任务
分享怎样设置数据库文件的路么？
请问一下ADO的相对路径设置的格式。为了避免打包后出现问题，我使用的是DSN。但是使用了DSN后，我的打包程序在其它机器上时都需要手工设置一下DSN。请问怎样才能用命令给系统加上DSN，还有就是设置相对路径，以解决安装路径的问题。
...全文
请发表友善的回复…
发表回复
aiguo25 2003-09-12
- 打赏
- 举报
data1.databasename=app.path & "\?.mdb"
data1.tecordsourse="select * from 表"
data1.refresh
其余的空间
data1.tecordsourse="select * from 表"
data1.refresh
其余的空间
yijiansong 2003-09-12
- 打赏
- 举报
UP
战箫 2003-09-12
- 打赏
- 举报
程序中用app.path取相对路径名。
lihonggen0 2003-09-12
- 打赏
- 举报
在程序中建立DSN数据源：
http://support.microsoft.com/default.aspx?scid=kb;EN-US;171146
http://support.microsoft.com/default.aspx?scid=kb;EN-US;171146
lihonggen0 2003-09-12
- 打赏
- 举报
在程序中建立DSN数据源：
http://support.microsoft.com/default.aspx?scid=kb;EN-US;171146
http://support.microsoft.com/default.aspx?scid=kb;EN-US;171146
lihonggen0 2003-09-12
- 打赏
- 举报
一般情况下用相对路径app.path
工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）
Dim CN As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\student.mdb"
CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic
工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）
Dim CN As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\student.mdb"
CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic
