ADOでデータベースに接続したいのですが
”実行時エラー -2147217843(80040e4d) 認証に失敗しました。”
になります。
コードは
Sub ado()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider = Microsoft.ACE.OLEDB.12.0;Data Source" & CurrentProject.FullName ★
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub
です。
★ 印の所でエラーになります。
宜しくお願いいたします。
No.1ベストアンサー
- 回答日時:
access 出自分自身に接続しようとしているのかな?
パスワード入れてないなら、
"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=” & CurrentProject.FullName & ";Persist Security Info=False;"
としてみるとか、、、
http://www.connectionstrings.com/access-2007
パスワード入れてるなら、
Jet OLEDB:Database Password=MyDbPassword;
もくわえてみるとか、、、
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Access(アクセス) 実行時エラー3131 FROM 句の構文エラーです について 7 2022/06/13 15:45
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る バッチからEXEの結果を受け取りたいのですが、 下記のバッ 1 2023/07/04 15:13
- Visual Basic(VBA) VBA★PDFをPDFアプリで印刷しようと思っていますが上手くゆきません 1 2022/06/06 22:04
- Visual Basic(VBA) 実行時エラー´5854´ 文字列型パラメーターが長すぎます。 3 2023/06/08 21:17
- Excel(エクセル) 【VBAファイル移動】2つのマクロを順に実行。1つ目のマクロが実行不可⇒2つ目が実行不可となる件 2 2022/07/29 12:17
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/07/07 08:37
- Visual Basic(VBA) ExcelからAccessのテーブルに書き込む時に時間がかかる 1 2022/10/14 20:38
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る EXEの実行内容の結果によって、戻り値を0か1かで返したい 1 2023/07/04 16:40
- Visual Basic(VBA) 【VBA】ボタンに登録したマクロがエラーになる 4 2022/07/25 17:47
このQ&Aを見た人はこんなQ&Aも見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
Excelからパスワード付きAccess
その他(データベース)
-
エクセルVBAでアクセスファイルを開く方法
Access(アクセス)
-
-
4
実行時エラー'-2147467259(80004005)':
Access(アクセス)
-
5
EXCEL VBAでACCESSに接続時にエラーが出ます
Visual Basic(VBA)
-
6
ADO VBA 実行時エラー3021
Visual Basic(VBA)
-
7
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
8
Excel VBAからAccessマクロを実行したい
Visual Basic(VBA)
-
9
Accessファイルを作成者以外は編集できないように設定するには
Access(アクセス)
-
10
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
11
エクセルVBAでマルチページの切り替え方法の件で
Excel(エクセル)
-
12
VBでSQL文のUPDATE構文を使った時のエラーについて
Visual Basic(VBA)
-
13
AccessのDAO.ExecuteとDoCmd.RunSqlの違いについて
その他(データベース)
-
14
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
15
access2003 クエリSQL文について
その他(プログラミング・Web制作)
-
16
Accessのリンク先を相対パスにしたい
その他(データベース)
-
17
VBAでユーザーフォームの表示を確認
Visual Basic(VBA)
-
18
実行時エラー3001「引数が間違った型、許容範囲外、または競合しています。」
Visual Basic(VBA)
-
19
バックグラウンドのプロセスのエクセルを閉じる方法
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
文字列内で括弧を使うには
-
VBAでfunctionを利用しようとし...
-
マクロで"#N/A"のエラー行を削...
-
VBA データ(特定値)のある最...
-
【VBA】ワークブックを開く時に...
-
実行時エラー 438 の解決策をお...
-
On ErrorでエラーNoが0
-
「実行時エラー '3167' レコー...
-
ApplicationとWorksheetFunctio...
-
paizaで下記コードを提出すると...
-
実行時エラー'-2147467259(8000...
-
【VBAエラー】Nextに対するFor...
-
エクセルVBA 「On Error GoTo...
-
VB.net 重複チェックがしたいです
-
error C2664: 'LPCTSTR' に変換...
-
VB2008 comboboxを連動させた...
-
インポート時のエラー「データ...
-
お助けください!VBAのファイル...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
マクロで"#N/A"のエラー行を削...
-
VBAでfunctionを利用しようとし...
-
文字列内で括弧を使うには
-
実行時エラー 438 の解決策をお...
-
エクセル関数を教えてください
-
On ErrorでエラーNoが0
-
お助けください!VBAのファイル...
-
VBA データ(特定値)のある最...
-
【VBA】ワークブックを開く時に...
-
インポート時のエラー「データ...
-
実行時エラー'-2147467259(8000...
-
マクロの「SaveAs」でエラーが...
-
WindowsでのPythonの挙動について
-
ApplicationとWorksheetFunctio...
-
Excel vbaについての質問
-
エクセルVBA 「On Error GoTo...
-
Filter関数を用いた結果、何も...
-
ACCESSで値を代入できないとは?
おすすめ情報