你可以在程序当中判断一下APP.PATH
如果是根目录
就这样写
data1.databasename=app.path & "数据库名"
否则
data1.databasename=app.path & "\数据库名"
如果是根目录
就这样写
data1.databasename=app.path & "数据库名"
否则
data1.databasename=app.path & "\数据库名"
解决方案 »
- 谁能告诉我这段代码那里错了?
- VB自带控件SSTAB问题(紧急求救!)
- 如何让VB窗体运行时充满全屏的问题
- 用sqloledb方式连接sql2000数据库的语句
- 如何实现VB和VC联调?
- 如何用VB提取数据库的脚本
- ado + access , recordset型,让rs1 和 rs2 相等怎么做? 就是将一个数据集赋值给另一个数据集的那样,rs1 = rs2 不行呀~~~
- 同一个DATAREPORT,是否可以设置多个DATASOURCE
- 寻找好的报表控件,尤其是导出成html功能要强?请大家指教!
- 在Vb 中怎么把标题栏放到状态栏中?
- 请教:已知对方的ip,如何在vb中知道本机与对方是连通的?
- vb中如何得到其他程序的返回信息??
子目录App.path返回:"C:\子目录"
相差一个"\"
if Right(DataPath,1)<>"\" then DataPath=DataPath & "\"
DataPath=DataPath & "数据库名"
data1.databasename=DataPath