| 投稿日 | ： 2006/09/05(Tue) 14:16 |
| 投稿者 | ： matsu |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: パスワード付きMDBファイルを起動する方法 |
> 説明が不足していたようで申し訳ありません。
> 実際のデータ操作はACCESSで行っているのですが
> 長いパスワードが付いたmdbファイルが複数あり、
> それぞれパスワードが異なります。
> mdbファイルを開くたびパスワードを入力するのが大変なので
> 例えばVBのフォームにテキストボックスを置いて
> エクスプローラからmdbファイルをテキストボックスにドラッグ＆ドロップすることで
> パスワードを入力せずにACCESSを起動できないかと思いました。
> おそらくShell関数でmdbファイルを開くことは可能と思いますが
> パスワードの入力まではできないと思ったので
> このような質問を書き込みました。
> 「面倒と思わずパスワードを入力しろ」「パスワードを短くしろ」
> と言われてしまうとそれまでなのですが。。。
>
> よろしくお願いします。
Access2000以前の場合、OpenCurrentDatabaseでパスワードを指定できないので
以下のようになると思います。
objAccessはモジュールレベルで定義してください。
VBから開く場合でもパスワードの指定は必要ですが。
ファイルとパスワードの対応はどのように考えているのでしょうか？
Dim objDb As Object
Dim strPath As String
strPath = "C:\hoge.mdb"
Set objAccess = CreateObject("Access.Application")
Set objDb = objAccess.DBEngine.OpenDatabase(strPath, False, False, "MS Access;PWD=パスワード")
objAccess.OpenCurrentDatabase (strPath)
objDb.Close
Set objDb = Nothing
objAccess.Visible = True