ADOX.Catalogで暗号化ファイルを作成するには？

解決

Dragon 2006-06-22 05:47:27 No: 95816

Dim Cat As ADOX.Catalog
Dim ConnectionString As String
Set Cat = New ADOX.Catalog
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Cat.Create ConnectionString & "C:\SampleDataBase.mdb" ' --- A
上記のようにファイルを作成すると普通のファイルが作成させますが
暗号化されたファイルを作成するにはどうすればよろしいのでしょうか？

魔界の仮面弁士 2006-06-22 07:29:12 No: 95817

> 普通のファイルが作成させますが
……あれ? 指定しているパラメータはそれだけですか?

それだと、データベースの照合順序の指定がありませんので、
標準の設定(言語指定:英語)の mdb として作成されてしまうかと。

> 暗号化されたファイルを作成するにはどうすればよろしいのでしょうか？
ConnectString 引数に、
"Jet OLEDB:Encrypt Database=True;"
という文字列を加えてみましょう。

Dragon 2006-06-23 05:39:06 No: 95818

魔界の仮面弁士さん
前回に引き続き回答ありがとうございます。
参考となりました。
今後もよろしくお願いいたします。