ASSCEE数据库的密码问题！急

怎么用vb撤消一个加密的ASSCEE数据库？

解决方案 »

  1.   

    http://expert.csdn.net/Expert/topic/2333/2333768.xml?temp=.3459436
      

  2.   

    Dim db As Database
        
            Set db = OpenDatabase(App.Path & "\数据\红外数据库.mdb", True, False, ";pwd=HWS-VEIC")
            db.NewPassword "HWS-VEIC", ""
            db.Close
      

  3.   

    同意
    Dim db As Database
        
            Set db = OpenDatabase(App.Path & "\数据\红外数据库.mdb", True, False, ";pwd=HWS-VEIC")
            db.NewPassword "HWS-VEIC", ""
            db.Close