Public Sub connectiondata(pcusername As String)
Dim cnnstr As String
Set cnn = New ADODB.Connection
   cnnstr = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=\\" & pcusername & "\公共信息\Member.mdb"
   cnn.Open cnnstr
End Sub这是我的代码,,pcusername为局域网中机器名
现在的问题是"公共信息"文件夹需要设置密码,
请问该 如何做呀
十分急!!!!!!!!!!!!!!!!!!!!!!!!!!!!1!

解决方案 »

  1.   

    回复人: xmczm(高仁) (  ) 信誉:100  你说的"系统共享"什么意思?
    怎么实现,,我现在是只要能实现,管它什么方法都行后天交货,,明天是最后一天,,问题解决了就行
      

  2.   

    我的系统是WIN98的在代享名前加$我试过了没用后面我现在试一试,还有人有高见吗?
      

  3.   

    TO:
    回复人: zhenhao(轻松) (  ) 信誉:100 我都试过了,还是没有用的
    共享文件夹名为"公共信息$"cnnstr = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=\\" & pcusername & "\公共信息$\Member.mdb"找不到,,虽然多了一个手,局域网中也看不到共享,可是访问进找不到这个文件夹呀,有什么用呀?
      

  4.   

    我也知道,可是,,,
    前台程序是别人写的而且是用DAO控件我是用ADO写,,,,所以我需要对文件夹操作才能解决实际的问题。
      

  5.   

    cnnstr = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=\\" & pcusername & "\公共信息\Member.mdb"
    不行吗???
      

  6.   

    WNetAddConnection
    创建同一个网络资源的永久性连接
    然后,再操作数据库,行吗?这样就没有安全性可言了,是吧,我感觉这个答案不行,可也贴出来,算是帮你up了!
      

  7.   

    用ADODC生成的连接字符串不行吗?