Microsoft Access Club Access超初心者対象Forum Access初級者対象Forum Access VBA Tips Forum DAO、ADO、SQL Forum

     

リストへもどる

投稿記事の一括表示

タイトル2007 Runtime 環境で ADO のエラー
記事No42721
投稿日: 2011/09/24(Sat) 15:21
投稿者チュウ太郎
解決済: ON
OS:Win7
Access Version:2007

開発環境
Windows7、Access2007(accdb)
参照設定:Microsoft ActiveX Data Objects 6.0 Library
メインデータベースをアップデートするための配布用accdrを開発。

配布先環境
Windows XP(SP3)、Access2007Runtime (accdr)
配布されたメインデータベース(accdr)がインストール済み。

上記のようなパターンで、アップデート用に開発したaccdrを配布先環境で開こうとすると、

「データベースまたはプロジェクトに、ファイル'msado15.dll' version 6.0. を参照する
切断された参照が含まれています。」とエラーが出て、強制終了されます。

ADOは

    Dim cn As ADODB.Connection
    Set cn = New ADODB.Connection
    cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" _
                        & "Data Source= " & [テキスト1] & ""

'[テキスト1]はメインデータベースのフルパス

    cn.Open
    
    cn.Execute "ALTER TABLE t_メイン ADD COLUMN 備考 TEXT;"

    cn.Close
    Set cn = Nothing

となっており、
cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;"   を
cn.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;"    に
書き換えた場合、accdrを認識してくれません。

又、配布先PCに
2007 Office system ドライバ: データ接続コンポーネント
http://www.microsoft.com/downloads/ja-jp/details.aspx?displaylang=ja&FamilyID=7554f536-8c28-4598-9b72-ef94e038c891
や
Visual Basic 6.0 Service Pack 6:ランタイム再頒布可能パッケージ (vbrun60sp6.exe) 
http://www.microsoft.com/downloads/ja-jp/details.aspx?displaylang=ja&FamilyID=7b9ba261-7a9c-43e7-9117-f673077ffb3c
をインストールしてもエラーは改善されませんでした。

Access2007Runtime上でADOを使用するにはどのような設定、あるいはどのようなファイルが必要なのでしょうか?

又、代替え案等ございましたら、ご教示いただきたく、よろしくお願いします。

タイトルRe: 2007 Runtime 環境で ADO のエラー
記事No42722
投稿日: 2011/09/25(Sun) 00:47
投稿者MukkuMuku
解決済: ON
こんばんは。MukkuMukuです。
MDAC/WDACの事でしょうね。
ざっくりいうとXPはADO2.8まで。ADO6.0はVISTA以降です。

開発環境がWin7SP1だとまた別の問題があるから、調査と確認をされてはどうだろうか

タイトルRe^2: 2007 Runtime 環境で ADO のエラー
記事No42723
投稿日: 2011/09/25(Sun) 09:29
投稿者チュウ太郎
解決済: ON
MukkuMukuさん、早々のレスポンスありがとうございます。

ADOのバージョンはどうしようもないということなんですね。
別の解決方法を探ってみます。

>開発環境がWin7SP1だとまた別の問題があるから・・・・
これもちょっと気になりますので、調べてみます。

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

タイトルRe^3: 2007 Runtime 環境で ADO のエラー
記事No42724
投稿日: 2011/09/25(Sun) 10:20
投稿者チュウ太郎
解決済: ON
報告:代替えとして DAO を使用して解決しました。


Dim db As Database
Set db = OpenDatabase([テキスト1])
Dim mySQL01 As String

mySQL01 = "ALTER TABLE T_メイン ADD COLUMN 備考 TEXT;"

db.Execute mySQL01

- 以下のフォームから自分の投稿記事を修正・削除することができます -
処理 記事No パスワード

ページの先頭へ 前ページへ戻る