タイトル | : Re^2: DAO3.6+Access97 |
記事No | : 14081 |
投稿日 | : 2009/09/18(Fri) 14:29 |
投稿者 | : 悩謎悩 |
> そのMDBは、Access97で正常に開きますか? > 要はMDBが破損していないかどうか・・・です。
こちらで行ってみた検証を返答させて頂きます。 ・単体では全く問題なく開けます。データ操作も行えます。(Access97にて) ・対象DBを過去プログラムで開いてみるとオープン可能です。 ・過去DBは対象PGでは同症状でオープンできません。
というところから、VB(DAO)側の問題のようなのですが、DBをオープンするモジュールは過去も対象も共通です。では何が原因???って感じでお手上げです。
[プロジェクト][参照設定] Microsoft DAO 3.6 Object Library
'------------------------------ パスワード Public Const strDbOpenPwd = "MS Access;PWD=1234"
'------------------------------ Db変数 Public Dbs As Database
'------------------------------ データベースオープン Function OpenDatabase(strFilePath) As Boolean On Error GoTo Er If Dir(strFilePath) <> "" Then Set Dbs = OpenDatabase(strFilePath, False, False, strDbOpenPwd) OpenDatabaseSystem = True End If Exit Function Er: OpenDatabaseSystem = False End Function
|