Sub ADO_GetTableSample()
Dim conn As New ADODB.Connection
Dim rcds As New ADODB.Recordset '[1]
Dim prov As String
Dim dbpath As String
prov = "Provider=Microsoft.Jet.OLEDB.4.0;" '[p]
dbpath = "Data Source=" & ThisWorkbook.Path & "\mdbsample\adosample.mdb" '[q]
conn.Open prov & dbpath
rcds.Open "顧客情報", conn '[2]
Range("A3").CurrentRegion.ClearContents
Range("A3").CopyFromRecordset rcds '[3]
rcds.Close '[4]
conn.Close
Set rcds = Nothing
Set conn = Nothing
End Sub
多和田 真也さんの投稿
(投稿ID: 3042)
ご回答ありがとうございます。ゴールデンウィークが終わって、私も仕事に追われていまして、質問したことを忘れそうになっていました。
こちらでも、検索などで調べていこうと思います。
どうもありがとうございました。
小川慶一さんのコメント
(コメントID: 4512)
現状報告です。
かなり難しいですね。。状況ややこしくて、僕も問題を切り分けきれません。
確認ですが、 .udl 以前に、 .accdb 形式のデータベースには、そもそも接続してデータを引っ張ってくることに成功していない、という状況でしょうか。
つまり、以下の [p], [q] を編集する等してエクセルから .accdb 形式のファイルに接続し、データを引っ張ってくることができているか?という質問ですが。。
小川慶一さんのコメント
(コメントID: 4518)
この度は、遅くなりました。
以下でどうでしょう?
https://www.dropbox.com/s/vr7omqwd8cgn6pa/udltest.zip?dl=0
まずは、解凍し、ソース内の指示に従い以下を行ってください。
[1] adoへの参照設定を行う
[2] 解凍した資料一式を所定のフォルダに置き換える
そして、モジュール(ひとつしかありません)内のサンプルコード3つを上から順に実行してみてください。
これでこの3つがちゃんと動くなら、話はかなり早いのですが。。
> 小川先生
> ご回答ありがとうございます。ゴールデンウィークが終わって、私も仕事に追われていまして、質問したことを忘れそうになっていました。
>
> こちらでも、検索などで調べていこうと思います。
>
> どうもありがとうございました。
小川慶一さんのコメント
(コメントID: 4571)
以下の件、その後どうでしょうか。
>> 多和田 真也さん:
>>
>> この度は、遅くなりました。
>>
>> 以下でどうでしょう?
>> https://www.dropbox.com/s/vr7omqwd8cgn6pa/udltest.zip?dl=0
>>
>> まずは、解凍し、ソース内の指示に従い以下を行ってください。
>> [1] adoへの参照設定を行う
>> [2] 解凍した資料一式を所定のフォルダに置き換える
>>
>> そして、モジュール(ひとつしかありません)内のサンプルコード3つを上から順に実行してみてください。
>>
>> これでこの3つがちゃんと動くなら、話はかなり早いのですが。。
>>
>>
>> > 小川先生
>> > ご回答ありがとうございます。ゴールデンウィークが終わって、私も仕事に追われていまして、質問したことを忘れそうになっていました。
>> >
>> > こちらでも、検索などで調べていこうと思います。
>> >
>> > どうもありがとうございました。