MDBファイルにパスワードを設定する

環境/言語:[VB.NET]
分類:[.NET]

VB.NETでMDBファイルに共有パスワードを設定する方法をおしえて

■No16524に返信(与作さんの記事)
> VB.NETでMDBファイルに共有パスワードを設定する方法をおしえて

CompactDatabaseで検索して

そうすれば、少しは自分で調べられると思う。

2006/07/07(Fri) 14:00:55 編集(投稿者)

『ALTER DATABASE PASSWORD 新パスワード 旧パスワード』ですね。


' *** VB2005 ***

Dim connectionString As String = ""
With New OleDbConnectionStringBuilder()
    .Provider = "Microsoft.JET.OLEDB.4.0"
    .DataSource = "C:\db1.mdb"
    .Item("Mode") = "Share Exclusive" '排他モードで開く
    '.Item("Jet OLEDB:Database Password") = "" 'パスワード付きの時に指定
    connectionString = .ConnectionString
End With

Using mdbConnection As New OleDbConnection(connectionString)
    mdbConnection.Open()
    'パスワードなし の mdb に、「NewPass」というパスワードを指定
    Dim SQL As String = "ALTER DATABASE PASSWORD NewPass NULL"
    Using cmd As New System.Data.OleDb.OleDbCommand(Sql, mdbConnection)
        cmd.ExecuteNonQuery()
    End Using
    mdbConnection.Close()
End Using

なんと「CompactDatabase」にパスワードの設定あるとは知りませんでした。

Dim JRO_JetEngine As New JRO.JetEngine()
JRO_JetEngine.CompactDatabase(SrcConnectString, DstConnectString)

で試したらうまくいきました。

「はいこーん 軍団」さん、「魔界の仮面弁士」さん
ありがとうございました。