修改数据库密码（求救高手）

Question

我现在知道access数据库密码，在vb的程序中能不能修改ACCESS数据库的密码   求救高手！

Answer 1

access 数据库原来有密码，我现在想更换密码，在vb中用程序实现，不知道可不可以？

Answer 2

'工程->引用->Microsoft ActiveX Data Objects 2.X LibraryPublic cnn As ADODB.Connection   
Public rss As ADODB.Recordset '连接数据库
 strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名称.mdb;Persist Security Info=False;Jet OLEDB:Database Password=密码;"
 Set cnn = New ADODB.Connection
 cnn.Open strcn这是连接数据库的，但具我所知：好象不可以在ＶＢ中写程序修改密码．

Answer 3

可以的,用cat
  Dim jt As New JRO.JetEngine  YourFile = 含路径的文件
      NewFile = YourFile & ".new"
      BakFile = YourFile & ".bak"
      If Dir$(NewFile) <> "" Then Kill NewFile
      If Dir$(BakFile) <> "" Then Kill BakFile
      FileCopy YourFile , BakFile
      jt.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & YourFile & ";Jet OLEDB:Database Password=旧密码", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & NewFile & ";Jet OLEDB:Database Password=新密码;Engine Type=4"
      Kill YourFile 
      FileCopy NewFile, YourFile 
      Kill NewFile
      Kill BakFile
      Set jt = Nothing