2011-01-01から1ヶ月間の記事一覧
Private Sub OptimizeMDB() Dim jroEngin As JRO.JetEngine = Nothing Const CompactPath As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source={0}" Const MDB_DIR As String = "C:\hoge" Const MDB_NAME As String = "foo.mdb" Try 'まず、バック…