質問編集履歴

1

コメントのサイトを参考にソースコードを作成しました。

2018/06/24 10:08

投稿

hajimete
hajimete

スコア41

test CHANGED
File without changes
test CHANGED
@@ -80,6 +80,80 @@
80
80
 
81
81
  ```
82
82
 
83
+ ### サイトを参考にして作成した後
84
+
85
+ ```
86
+
87
+ Sub fetchRecord()
88
+
89
+
90
+
91
+ Dim ws As Worksheet
92
+
93
+ Set ws = ThisWorkbook.Worksheets("Sheet2")
94
+
95
+
96
+
97
+ Dim strFileName As String
98
+
99
+ strFileName = "test4.accdb"
100
+
101
+
102
+
103
+ Dim adoCn As Object 'ADOコネクションオブジェクト
104
+
105
+ Set adoCn = CreateObject("ADODB.Connection") 'ADOコネクションオブジェクトを作成
106
+
107
+ adoCn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\" & strFileName & ";" 'Accessファイルに接続
108
+
109
+
110
+
111
+ Dim adoRs As Object 'ADOレコードセットオブジェクト
112
+
113
+ Set adoRs = CreateObject("ADODB.Recordset") 'ADOレコードセットオブジェクトを作成
114
+
115
+
116
+
117
+ Dim id As Long
118
+
119
+ txt = InputBox("呼び出すIDを入力してください")
120
+
121
+
122
+
123
+ Dim strSQL As String
124
+
125
+ strSQL = "SELECT * FROM テーブル1 WHERE フィールド2= '" & Txtフィールド2 & "' & txt"
126
+
127
+
128
+
129
+ adoRs.Open strSQL, adoCn 'SQLを実行して対象をRecordSetへ
130
+
131
+ ws.Range("A2").CopyFromRecordset adoRs
132
+
133
+
134
+
135
+ adoRs.Close 'レコードセットのクローズ
136
+
137
+ adoCn.Close 'コネクションのクローズ
138
+
139
+
140
+
141
+ Set adoRs = Nothing
142
+
143
+ Set adoCn = Nothing 'オブジェクトの破棄
144
+
145
+
146
+
147
+ End Sub
148
+
149
+ ```
150
+
151
+ ### 新たに作成してみたのですがエラー内容
152
+
153
+ 実行時エラー'2147217904(80040e10)':
154
+
155
+ 1つ以上の必要なパラメーターの値が設定されていません。
156
+
83
157
 
84
158
 
85
159
  ### 試したこと