运行时错误 '-2147417848 (80010108) Automation 错误

z_kai 2007-12-01 05:34:22
調試時候沒有問題的,但是編譯後再運行就會出現這個錯誤了,然後就關閉程式了




运行时错误 '-2147417848 (80010108)':

Automation 错误
...全文
1003 点赞 收藏 5
写回复
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
z_kai 2007-12-03
Dim MdbPath As String
MdbPath = GetXmlValue("MdbPath")

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MdbPath & ";Persist Security Info=False"
Adodc1.CommandType = adCmdText



我把数据库路径保存到XML文件中的,,可以读出来,但是目录不同,不能改,,目录改成子录或者同目录就可以用了。。
VB程序目录 D:\VB Program Design\
数据库目录 D:\inetpub\wwwroot\Project


XML文件
<?xml version="1.0" encoding="gb2312" ?>
<UserConfig>
<Setup>
<MdbPath>D:\inetpub\wwwroot\Project\list.mdb</MdbPath>
</Setup>
</UserConfig>
回复
clear_zero 2007-12-03
你用了app.path了?

回复
z_kai 2007-12-03
知道错在哪了。。。
我把数据库的路径用XML来保存的。。。

如果数据库保存在与程序相同或子目录下运行就没有问题了

但是如果是保存在其它目录就有问题了。。

不知道什么原因啊。。
回复
tianhuo_soft 2007-12-02
源代码写出来 大家帮你分析
回复
gyear 2007-12-01
太难解决了,自己删部分代码然后慢慢试吧
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7449

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告