tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。