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

[z_kai]

調試時候沒有問題的，但是編譯後再運行就會出現這個錯誤了，然後就關閉程式了




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

Automation 错误

[gyear]

太难解决了，自己删部分代码然后慢慢试吧

[tianhuo_soft]

源代码写出来　大家帮你分析

[z_kai]

知道错在哪了。。。
我把数据库的路径用XML来保存的。。。

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

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

不知道什么原因啊。。

[clear_zero]

你用了app.path了？

[z_kai]

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>