vb6でmdbのOpenDatabase時にエラー

質問

お世話になります。
PC98の環境でVB6でオフィスの入っていない環境です。
Set db1 = DBEngine.Workspaces(0).OpenDatabase(App.Path & "aaa.mdb",dbDriverComplete)
を実行すると
”このプログラムは不正な処理を行ったので強制終了します。”
となってしまいます。
昨日までは、エラーなく動いていたのですが原因がわかりません。
ご教授宜しくお願いします。

回答No.1

MARU4812 · ベストアンサー

>PC98の環境でVB6でオフィスの入っていない環境
その環境で、自動で更新されるようなソフトは無いと
思いますが、システムログ等を確認してみては？

環境の更新の心当たりが無いなら、MDBファイルが
壊れた可能性が一番高いのでは？
オフィスの入っている環境でデータを確認したあと、
修復をかけてみては？

お礼

MARU4812様

早々の回答ありがとうございます。

MDBの破損については調べてみるつもりですが
MDBに書き出しているプログラムは全て同じエラーになるので
（A プログラムはaaa.MDB、
　Bプログラムはbbb.MDB　
と別のMDBファイルに書き出し）
環境が変わってしまったのでしょうか。
環境を変更するような作業はしていないし、ネットワークにも接続していない環境なので
環境は同じだと思い込んでいました。

環境が変わっていないか確認するようにしてみます。

以上　ありがとうございました。

回答No.2

Hayashi_Trek

App.Path & "aaa.mdb"に“\”が無いとか。

お礼

Hayashi_Trek様

紛らわしい質問の仕方で申し訳ありません。

App.Path & "aaa.mdb"ではなく
App.Path & "\aaa.mdb"です。

￥マークは付いてました。

以上　ありがとうございます。