7449
社区成员
- 主页
运行时错误 '-2147417848 (80010108) Automation 错误
調試時候沒有問題的，但是編譯後再運行就會出現這個錯誤了，然後就關閉程式了
运行时错误 '-2147417848 (80010108)':
Automation 错误
运行时错误 '-2147417848 (80010108)':
Automation 错误
...全文
请发表友善的回复…
发表回复
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>
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来保存的。。。
如果数据库保存在与程序相同或子目录下运行就没有问题了
但是如果是保存在其它目录就有问题了。。
不知道什么原因啊。。
我把数据库的路径用XML来保存的。。。
如果数据库保存在与程序相同或子目录下运行就没有问题了
但是如果是保存在其它目录就有问题了。。
不知道什么原因啊。。
tianhuo_soft 2007-12-02
源代码写出来 大家帮你分析
gyear 2007-12-01
太难解决了，自己删部分代码然后慢慢试吧