mdbがとじれない

ＶＢ６で開発をしています。

DB変数A = OpenDatabase(【mdb名】)
Set QUERY変数B = DB変数A.CreateQueryDef("")
QUERY変数B.SQL = SQL文
QUERY変数B.Execute
（中略）
Set レコード変数C = DB変数A.OpenRecordset(SQL文2)
（中略）
Set DB変数A = Nothing

といった処理を行っています。
この処理を繰り返すのは問題ないのですが、
この処理で使用している【mdb名】はレコードロックされたままになってしまいます。

どのように修正したらよいのでしょう？

No.1 ベストアンサー 回答者： ctrlzr 回答日時： 2005/08/15 14:49

開けたら閉じるようにしてください。

DB変数A = OpenDatabase(【mdb名】)
Set QUERY変数B = DB変数A.CreateQueryDef("")
QUERY変数B.SQL = SQL文
QUERY変数B.Execute
（中略）
Set レコード変数C = DB変数A.OpenRecordset(SQL文2)
（中略）
レコード変数C.Close '追加
DB変数A.Close '追加
Set DB変数A = Nothing

この回答へのお礼

ありがとうございます。
ご教授のとおり変更してみたのですが、今度は
「DB変数は既に使用されているので、使用できませんでした。」というエラーがでてしまいました。
ちなみに、レコードロックファイルはありませんが、
mdbを手動で開くこともできません。
再起動すると、元にもどります。

お礼日時：2005/08/15 15:05

No.3 回答者： ctrlzr 回答日時： 2005/08/17 10:29

出あったことの無いエラーです。

差し支えなければ、コード全体を載せてください。
「DB変数は既に使用されているので、使用できませんでした。」

この回答へのお礼

他社での開発なので、コードをのせるのは・・・
すみません

お礼日時：2005/08/24 10:52

No.2 回答者： 1050YEN 回答日時： 2005/08/16 00:39

最終的に

Set レコード変数C = DB変数A.OpenRecordset(SQL文2)
をしていのですよね？

この部分
Set QUERY変数B = DB変数A.CreateQueryDef("")
QUERY変数B.SQL = SQL文
QUERY変数B.Execute
が何をしているのかわからないけど、クエリを呼ぶ必要が無いのでは？
状況も、QueryDefがメモリ上に残っちゃっている時の症状に似てるので、、、

もし、更新クエリや追加クエリのSQL文なのであれば、単に更新系のSQL文を発行するだけでよいですよ。
書き換えると
Call DB変数A.Execute(SQL文)
って感じで、更新できると思います。

それでも症状が改善されなければ、原因は他にありかと、、、

この回答へのお礼

いろいろ試してみたのですが、どうにも解決できません。
でも、有難うございました。

お礼日時：2005/08/24 10:53