VBからAccess2003のレポートプレビュー (ID:147622)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > まずは、ご教授ありがとうございました。 http://www.tt.rim.or.jp/~rudyard/torii009.html > msaccess.exe /ro "D:\Sdata.mdb" /pwd aaaa で実行してみたのですが /pwd に指定するのは、JET のユーザーレベルセキュリティのパスワードでしたね。 mdb 自体にかけられたパスワードの方を指定する場合は、 > OpenCurrentDatabase メソッドを利用しているかと思いますが、その > 第3引数にて、パスワードを指定することができます。 を用いてみてください。 たとえば、 Dim acc As Object = CreateObject("Access.Application") acc.Visible = True acc.OpenCurrentDatabase("C:\temp\test.mdb", , "aaaa") MsgBox("レポートを表示します") Dim doCmd As Object = acc.DoCmd Const acViewPreview As Integer = 2 doCmd.OpenReport("レポート1", acViewPreview) System.Runtime.InteropServices.Marshal.ReleaseComObject(doCmd) MsgBox("終了します") acc.Quit() System.Runtime.InteropServices.Marshal.ReleaseComObject(acc) のような感じです。 ただし OpenCurrentDatabase は、パスワードの間違いを検出できません。 (間違っていた場合、パスワード入力画面が表示されます) パスワード指定の成否も検出したい場合は、DAO の OpenDatabase メソッドを併用します。 こちらの場合、間違わったパスワードの場合に例外が発生するため、それを Catch することで、パスワードの入力ミスを検出できます。 Dim acc As Object = CreateObject("Access.Application") acc.Visible = True Dim de As Object = acc.DBEngine Dim db As Object = de.OpenDatabase("C:\temp\test.mdb", False, False, ";PWD=aaaa") acc.OpencurrentDatabase("C:\temp\test.mdb") db.Close() System.Runtime.InteropServices.Marshal.ReleaseComObject(db) System.Runtime.InteropServices.Marshal.ReleaseComObject(de) MsgBox("レポートを表示します") Dim doCmd As Object = acc.DoCmd Const acViewPreview As Integer = 2 doCmd.OpenReport("レポート1", acViewPreview) System.Runtime.InteropServices.Marshal.ReleaseComObject(doCmd) MsgBox("終了します") acc.Quit() System.Runtime.InteropServices.Marshal.ReleaseComObject(acc) もちろんパスワードが正しい場合は、OpencurrentDatabase だけで十分です。