VB程序打包在别的机子运行提示运行时错误430：类不支持自动化或不支持期望接口

我在winxp sp3+vb6写了一个程序访问access 2003，本地运行都没有问题，用setup factory打包到别的机子运行就出现“运行时错误430：类不支持自动化或不支持期望接口”，应该怎么解决啊？Dim con As ADODB.Connection     
Dim rst As ADODB.Recordset          
Set con = New ADODB.Connection
Set rst = New ADODB.Recordset
      
    con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\xishu.mdb;Persist Security Info=False"
    rst.ActiveConnection = con
    
    rst.Open "select * from leixing where id=" & idp

解决方案 »

  1.   

    引用的某个部件没有正确注册！
    但是似乎不是ADODB没有注册，因为ADODB在XP中是自带的；
      

  2.   

    我装的VB6 SP6，引用的是Microsoft   ActiveX   Data   Objects   2.8   Library，在其他XP上运行就报这个错，实在是不明白什么原因啊，很多解释都说要装MDAC，但是XP上不是已经自带了么？
      

  3.   

    XP自带了 MDACTyp2.8,你要安装也安装不了！
    你的问题应该是别控件或者引用没有注册。
      

  4.   

    我只用到数据库访问的Microsoft ActiveX Data Objects 2.8 Library，其他的都没用
      

  5.   


    那你XP系统应该有问题咯，这个部件是XP自带的（sp1好像没有带）将xp升级到sp3试试吧
      

  6.   

    我之前也碰到这个问题，查了不少资料，都解决不了，最终知道是VB编译下的XP版本有问题，现在网络上的GHOST版本，有些就会出错，后来我换了个版本重新安装，一切都好，你可以朝这个方向试试，现在下载个系统也不用多少时间
      

  7.   

    真的没别的办法了么？我原来的系统编译的都好好的，重装系统是网上下载的“雨林木风”的GHOST安装的，就出现了这个问题。真麻烦。
      

  8.   

    C:\Program Files\Common Files\System\ado  里面的文件版本问题  我一般吧自己的机器上这个文件夹用低版本的
      

  9.   

    Dim con As Object
    Dim rst As Object
    Set con = CreateObject("ADODB.Connection")
    Set rst = CreateObject("ADODB.Recordset")
        
      con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\xishu.mdb;Persist Security Info=False"
      rst.ActiveConnection = con
        
      rst.Open "select * from leixing where id=" & idp
    ...
    rst.Close
    con.closeset rst=nothing
    set con=nothing
    '**********************************
    主要原因还是因为两台机子上的ADO接口的问题,只有用后期绑定才能解决问题,
    据说是微软强制编程者改用Win7,因为Win7下ADO的接口与XP下ADO的接口不一致造成
    的,起始我发现就算是在XP下,只要你安装了VS2010sp1,在编译到未安装的机子上去运行
    一样还是不行,所以究其原因可能还是ado版本造成的接口改变,没办法,只能用后期绑定
      

  10.   

    要是win7 的sp1，就把那个糟心的sp1 拿下另外试试看2.6或者2.7版本的adodb
      

  11.   

    Microsoft ActiveX Data Objects 2.8 Library
    换用2.7的!同样问题,我就是这么解决的
      

  12.   


    刚开始只要不安装sp1就可以,现在即使不安装sp1,还会有其他补丁影响到,所以干脆还是在xp下编译算了
      

  13.   

    今儿打包的程序也在xp sp2上遇到改问题了，开发的平台的win7 sp1。
      

  14.   


    不打这个补丁之前，主程序能运行，但有局部报错，专门打了sp3和这个补丁后，程序已启动就报错(automation 错误)，更悲催。
      

  15.   

    用Windows Virtual PC模拟了一个xp sp3环境，在里面安装了VB6 sp6，把win7下编译的form全部移植过去，重新编译并打包，自己运行无问题，但打包程序在另外的xp+sp3或win2003 sp2上有只要用到adodb语句就报430错误，先后换了2.0～2.8不同版本的msado.tlb打包过去安装问题依旧，我要崩溃了，哪位出出主意啊！！！
      

  16.   

    C:\Program Files\Common Files\System\ado 
    这个文件夹里面的问题 我在出现那个问题的电脑里把这个文件夹里的东西覆盖掉我开发的机器上的文件 再次编译 即可解决问题 开发机器上的ADO版本低一点 其它的就无所谓了
      

  17.   

    我用WIN7 编译后到别的机器上运行也是同样问题。
    把工程放到别的装了VB6的机器上重新编译才正常。
      

  18.   

    我也碰到这个问题，不是控件注册问题，是ADO版本问题
    1. 在部分xp下报错；
    2. 在win7和visit下不能用；是这么解决的，
    1. 使用低版本的ADO2.5版本
    2. 在C:\Program Files\Common Files\System\ado  文件夹下和C:\WINDOWS\system32 文件夹下有ADO文件，
       msado25.tlb，版本号2.81.3012.0，大小80KB。
       打包的时候用这个就可以。
      

  19.   

    我也曾遇到过这个问题.可以是操作系统的原因，我把源代码放到其另外一台XP电脑上重新生成EXE就解决了。这个问题应该解决了吧，这么长时间了。不过我还是想和大家分享下。
      

  20.   

    让大家参考下我的解决方法吧：
    1.装VB
    2.上源码
    3.生成EXE
    4.打开这个EXE运行正常了
    感觉我的方法比较2，但绝对解决问题
      

  21.   


    为了版本兼容的问题，我以前都是在 Win98 下打包的（用 VB 自带的打包工具）。现在的机器不能安装 Win98 了，就在本地打包后，将原来在 Win98 下打包的 Support 文件夹下的旧版本系统文件覆盖新生成的 Support 下的同名文件，然后运行 Support 下 <安装文件名>.BAT 文件重新生成压缩包。