300分一题，一个关于数据库的简单问题....

在程序启动时判断用户有没有安装Access2000或者MDAC,最好简单一点的方法 

解决方案 »

  1.   

    MDAC：呵呵，好像除了95，系统都有，只不过版本不一定罢了。
      

  2.   

    不想把MDAC_TYP.EXE打包进去,如果用户没有装就给一个提示
      

  3.   

      你使用一个access2000的object不就可以了吗？
      

  4.   

    单MDAC_TYP.EXE就有7.4M,很多人都有，没这个必要打包吧？
      

  5.   

        Dim x As Object
        On Error Resume Next
        Set x = CreateObject("Access.Application")
        If Err.Number <> 0 Then
            '没有安装Access.
        Else
            '安装了,,但不知道版本,我没仔细找.
        End If
      

  6.   

        Dim x As Object
        On Error Resume Next
        Set x = CreateObject("Access.Application")
        If Err.Number <> 0 Then
            '没有安装Access.
        Else
            if x.Version="8" then
               msgbox "Access97"
            else if x.Version="9"
               msgbox "Access2000"
            else
               msgbox "Access" & x.Version
            end if
        End If
      

  7.   

    不知道版本不行啊，我想知道是否支持access2000 jet4.0否则不能解决问题，我再试试看
      

  8.   

    谢谢 uguess(uguess) 刚才没看到，我再试试
      

  9.   

    Access.Application没有version属性,我刚才已经查过了.所以我说不知道.
      

  10.   

    你用对象浏览器看一下,那里有version我没找到.
      

  11.   

    我这是装的是Access2000,Access.Application.dbengine.version有这样一个属性,返回值是3.6.
      

  12.   

    Access.Application.VBE.version是内置VB编译环境的版本号,我这是6.0.
      

  13.   

    对不起，确实没有，是Excel。我搞错了。
      

  14.   

    我试了没有，也查了对象浏览器也没有，而且最重要的是要知道ADO的版本
      

  15.   

    仅供参考:
    HOWTO: Ensure Jet 3.5 Is Installed Correctly (Part I) (Q240377) 
    http://support.microsoft.com/default.aspx?scid=kb;en-us;Q240377HOWTO: Ensure Jet 3.5 Is Installed Correctly (Part II) (Q245524) 
    http://support.microsoft.com/default.aspx?scid=kb;en-us;Q245524INFO: Deploy Database Applications with the Package and Deployment Wizard (PDW) (Q213846) 
    http://support.microsoft.com/default.aspx?scid=kb;en-us;Q213846另外你可以搜索
    Setup1.vbp 工程内
    查找 "MDAC_TYPE.EXE" 附近的代码
      

  16.   

    想知道ADO的版本到容易.
     Dim x As Object
     Set x = CreateObject("ADODB.connection")
     debug.print x.version
     我的机子上是2.6的,如果有多个版本,一般都显示最高的版本.
      

  17.   

    谢谢 ljren_t(立志)这个方法行的，我就是要知道ado的版本，如果对方是2.1以下，程序就自动连接到微软下载ado2.5,然后再自动执行安装.........这样设计的
    ---------------
    没有必要让已经有这个组件的用户浪费时间下载7M多的东西
    ---------------
    好象2.6不支持jet 4.0 是这样吗？如果显示最高的版本，就不知道能不能支持jet 4.0我也是在别的地方看到的，不知道2.6以上如何连接Access数据库
    ---------------
    问题不大，基本上解决了,给分给分