请教连ACCESS如果有密码如何做？

Dim strFile As String
    strFile = App.Path & "\Attend.mdb"
    ConnectString1 = "Provider=Microsoft.Jet.OLEDB.4.0;Password=12345;Data Source=" & strFile & ""
我如果把ACCESS里面的密码删除可以正常连接，可设定好密码就无法连接，说找不到文件或者正在被别人调用。请教高手谢谢

解决方案 »

  1.   

    dim cn  As  New  ADODB.Connection  cn.ConnectionString  =  "Provider=Microsoft.Jet.OLEDB.4.0;Data  Source=c:\trade.mdb;Jet  OLEDB:Database  Password=a;"  cn.open
      

  2.   

    ConnectString1 = "Provider=Microsoft.Jet.OLEDB.4.0;Database  Password=12345;Data Source=" & strFile & ""
      

  3.   

    Could not find installable ISAM是什么意思还是不行
      

  4.   

    添加一个ADO组件Dim conn As ADODB.Connection
    Dim sql As String
    Set conn = New ADODB.Connection
    sql = "dbq=" & App.Path & "\db.mdb;Pwd=你的密码;Driver={Microsoft Access Driver (*.mdb)}"
    conn.Open sql
      

  5.   

    组件有添加，公司买的一套刷卡机是ACCESS的，现在打算把ACCESS里面的相应部分转到SQL里面（需要天天自动），在程序中SQL部分没问题可通过。现在就这个连ACCESS的部分不行，我如果删除ACCESS的密码就没问题。可不能删除，否则刷卡机自带的系统不要用就不能把卡机里面的资料写入到ACCESS！
      

  6.   

    to demo001 非常感谢，可为什么前面的连接方式不行，用这种可以，能否解释一二。谢谢！非常感谢！
      

  7.   

    用我自己的代码的话问题我已经写出来了，如果用二楼的话，出现Could not find installable ISAM
    用你这个可以很奇怪
      

  8.   

    将你的access文件格式转化为access97的就行了不信你试试
      

  9.   

    是因为你没有安装新的Mdac_typ.exe
    微软数据访问引擎
      

  10.   

    TO sword281() 这个也许可以，我删除密码都可以，但这个主动权不在我这里，人家的系统已经把密码写进去了，我要是改了人家读了刷卡机后资料写不进去了就更麻烦了！呵呵