Ｐａｇｅ 162 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼参照するＤＡＯバージョンを変更する 孫悟空 02/9/27(金) 22:53 ┗Re:参照するＤＡＯバージョンを変更する こうちゃん 02/10/1(火) 11:31 ┗Re:参照するＤＡＯバージョンを変更する 孫悟空 02/10/3(木) 23:06 ─────────────────────────────────────── ■題名 ： 参照するＤＡＯバージョンを変更する ■名前 ： 孫悟空 ■日付 ： 02/9/27(金) 22:53 -------------------------------------------------------------------------
| こんばんは、孫悟空と申します。 ＤＡＯのバージョン違いへの対応について質問です。 端末にインストールされているＯｆｆｉｃｅのバージョンがばらばらで 苦しんでいます。 以下のようなコードでDBEngineバージョンを得て、 参照設定を変更する方法はあるのでしょうか？ Dim Acap As Object Dim ver As String Set Acap = CreateObject("Access.application") Select Case Acap.DBEngine.Version Case "3.6" 'ここで参照するＤＡＯバージョンを変更したいのですが。 Case "3.5" Case "2.5" Case "2.0" End Select Acap.Quit Set Acap = Nothing よろしくご指導をお願いします。 |
| 孫悟空 さん、こんにちは レスがつかないようですね。 残念ながら、参照設定をVBAから変更する方法はわかりません。 JETのバージョンを取得した後、どんな処理をするのかによっては、参照設定以外で解決する方法があるかも知れません。 このあとどんな処理をするのか教えてはいただけませんか？ ＃例えば、接続をOLEDBで行って、接続文字列で変更するとか、ODBCで対応するとか・・ >こんばんは、孫悟空と申します。 >ＤＡＯのバージョン違いへの対応について質問です。 >端末にインストールされているＯｆｆｉｃｅのバージョンがばらばらで >苦しんでいます。 >以下のようなコードでDBEngineバージョンを得て、 >参照設定を変更する方法はあるのでしょうか？ > > Dim Acap As Object > Dim ver As String > > Set Acap = CreateObject("Access.application") > Select Case Acap.DBEngine.Version > Case "3.6" > 'ここで参照するＤＡＯバージョンを変更したいのですが。 > Case "3.5" > Case "2.5" > Case "2.0" > End Select > Acap.Quit > Set Acap = Nothing > >よろしくご指導をお願いします。 |
| ▼こうちゃんへ、こんにちは >レスがつかないようですね。 レスがつかないと結構寂しいもんですね。 >残念ながら、参照設定をVBAから変更する方法はわかりません。 やはりそうですか。。 >JETのバージョンを取得した後、どんな処理をするのかによっては、参照設定以外で解決する方法があるかも知れません。 >このあとどんな処理をするのか教えてはいただけませんか？ ネットワーク上にアクセスのデータベースファイルを準備してあるのですが、そこから データの抜き出しや更新をします。当然そのｍｄｂファイルは、古いバージョンに してあります。 その後いろいろ考え、仕方ないので、上記各バージョンの参照設定をした エクセルブックのアドインファイルを作って対応しようと考えています。 面倒で、この方法はやりたくなかったのですが。。。 ありがとうございました。 |