![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
エクセルからアクセスにADOで接続したいのですが
アクセスのファイルにはパスワードがかかっていて、
そのパスワードを指定して開こうとしてるのですが
パスワードが違います、と言うエラーになります。
でもパスワードは確実に合っています。
構文がおかしのでしょうか?
cn.Open "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=" & _
"C:\PW.accdb;" & _
"Jet OLEDB:Database Password=0000;"
パスワードがあっててもエラーになることはありますか?
ファイルのパスをでたらめに変えたら違うエラーが発生したので、ファイルのパスもあっています。
![「エクセルからアクセスにADO PWエラー」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/5/44094828_5497cc3ea56db/M.jpg)
No.2ベストアンサー
- 回答日時:
Accessのプロセスが残ってしまうので
下記に変更を。
※Microsoft Office 14.0 Access Database Engine Object Library に参照設定が必要です
Sub da2()
Dim ac As Object
Dim db As DAO.database
Dim rs As DAO.Recordset
Set ac = CreateObject("Access.Application")
Set db = ac.DBEngine.OpenDatabase("e:\calendar.accdb", False, True, ";pwd=0000")
Set rs = db.OpenRecordset("select * from 休日")
Cells(1, 1).CopyFromRecordset rs '←ここも適宜修正を
rs.Close: Set rs = Nothing
db.Close: Set db = Nothing
ac.Quit: Set ac = Nothing
End Sub
No.1
- 回答日時:
Access2010のaccdb なら
http://oshiete.goo.ne.jp/qa/7948601.html
かな?
上記リンク先のように以前の暗号化方法に変えてADOのままか
下記のようにするか
※Microsoft Office 14.0 Access Database Engine Object Library に参照設定が必要です
Sub da()
Dim db As DAO.database
Dim rs As DAO.Recordset
Set db = DBEngine.OpenDatabase("e:\calendar.accdb", False, True, ";pwd=0000")
Set rs = db.OpenRecordset("select * from 休日")
Cells(1, 1).CopyFromRecordset rs
db.Close
Set db = Nothing
End Sub
で、とりあえずレコードの取得は出来るかと思います。
良く調べてはいないのですが何故かADOだと・・・???。
早速のご回答ありがとうございます。
DAOを使えばできるのですね。
今すべてADOで作ってしまったので、書き換えようと思います。
ちなみに質問後検証してみたのですが
なぜか同じコードで、アクセスvbaで実行するとパスワード付きのファイルに接続することができました。
同じコードをエクセルvbaに張り付けて実行すると質問文と同じエラーになります。
エクセル側に原因がありそうです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAでの共有パスにつきまして 1 2023/03/04 17:24
- PDF Googleドキュメントのpdf文書にパスワードを設定したい 1 2023/08/04 20:55
- Excel(エクセル) Excelを開くとエラーが出る 2 2022/10/03 16:13
- その他(開発・運用・管理) WindowsからSSHでサーバーにあるファイルをダウンロードできない…。 3 2022/04/24 11:08
- Yahoo!メール YahooIDをパスワード形式にしただけなのに、利用規約違反とされて電話番号が使えなくなりました 1 2023/03/15 20:44
- Yahoo!メール YahooIDをパスワード形式にしただけなのに、利用規約違反とされて電話番号が使えなくなりました 3 2023/03/25 04:08
- MySQL 参考書に従って入力したつもりでしたが、最後はエラーがでました。 1 2022/09/28 03:45
- Visual Basic(VBA) VBAでファイル名を指定して保存するとき 4 2023/03/26 21:55
- 囲碁・将棋 囲碁 KGS の cgoban ログインパスワードを忘れた対策 1 2023/04/10 08:20
- Excel(エクセル) エクセルでシートを別のブックにコピーや移動する際に出るエラーのような窓を回避するには? 1 2023/06/05 21:51
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
希望の位置へフィールドを追加...
-
Berkeley DB 1.85 -> GNU dbm ...
-
三枝夕夏って?
-
アクセスのデータがブッ壊れた...
-
データベースの最適化をマクロ...
-
キャッシュとバッファの違いは?
-
型 varchar から型 numeric へ...
-
エクセルの重複データの曖昧検索
-
データベースの2GBって・・・?
-
クエリをキャンセルしたいので...
-
データベースに接続したままの...
-
accessの勉強ができるサイトは?
-
PGAとUGA
-
AndroidからのAccessデータベー...
-
Access 外部データ インポー...
-
カンマ区切りで格納するカラム...
-
SQLの文、節、句について
-
ビジネスロジックの実装
-
CDの売上枚数を知りたいのですが
-
DB2 UDBって?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
FindFirst複数条件
-
希望の位置へフィールドを追加...
-
[ACCESS/VBA]動的にSQL文を...
-
エクセルからアクセスにADO...
-
列名が無効です
-
データベースの変換
-
Access 余分な件数分データ削除...
-
Access2000のVBAでコンパイルエ...
-
パススルークエリの使い方について
-
多値従属
-
Microsoft Accessパスワード忘...
-
accessのvbaでの実行時エラーに...
-
sqlite3の動作が?xamppでは問...
-
Berkeley DB 1.85 -> GNU dbm ...
-
コンピュータ用語、データベー...
-
型 varchar から型 numeric へ...
-
データベースの最適化をマクロ...
-
汎用カード型のデータベースソ...
-
キャッシュとバッファの違いは?
-
リスト形式の表とデータベース...
おすすめ情報