一个小问题

Question

vb中要为后台的access数据库设置密码应该用哪一个函数。求高手指点。不胜感谢！

Answer 1

access的密码是 起先设立好的。请你别发多帖VB做的最多是修改密码

Answer 2

修改的密码Private   Sub   Command1_Click()   
      Dim   cnn   As   New   ADODB.Connection   
      cnn.Open   "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source="   &   App.Path   &   "\DBWithPW.mdb;"   &   "Mode=Share   Deny   Read|Share   Deny   Write;Persist   Security   Info=False;Jet   OLEDB:Database   Password=888"   
      cnn.Execute   "Alter   Database   password   999   888"   
      MsgBox   "修改完毕"   
  End   Sub