タイトル : Re^2: DAO3.6+Access97 投稿日 : 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 |