レッスン-投稿一覧パソコン仕事５倍塾ポータル

投稿/コメントを表示します。

エクセルVBA外部連携講座

データベースとの接続と接続解除について

多和田真也さんの投稿

(投稿ID: 3042)

小川先生
ご回答ありがとうございます。ゴールデンウィークが終わって、私も仕事に追われていまして、質問したことを忘れそうになっていました。

こちらでも、検索などで調べていこうと思います。

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

2017/05/11 01:42

小川慶一さんのコメント

(コメントID: 4512)

多和田真也さん:

現状報告です。
かなり難しいですね。。状況ややこしくて、僕も問題を切り分けきれません。

確認ですが、 .udl 以前に、 .accdb 形式のデータベースには、そもそも接続してデータを引っ張ってくることに成功していない、という状況でしょうか。

つまり、以下の [p], [q] を編集する等してエクセルから .accdb 形式のファイルに接続し、データを引っ張ってくることができているか？という質問ですが。。

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

2017/05/14 08:50

小川慶一さんのコメント

(コメントID: 4518)

多和田真也さん:

この度は、遅くなりました。

以下でどうでしょう？
https://www.dropbox.com/s/vr7omqwd8cgn6pa/udltest.zip?dl=0

まずは、解凍し、ソース内の指示に従い以下を行ってください。
[1] adoへの参照設定を行う
[2] 解凍した資料一式を所定のフォルダに置き換える

そして、モジュール(ひとつしかありません)内のサンプルコード3つを上から順に実行してみてください。

これでこの3つがちゃんと動くなら、話はかなり早いのですが。。

> 小川先生
> ご回答ありがとうございます。ゴールデンウィークが終わって、私も仕事に追われていまして、質問したことを忘れそうになっていました。
>
> こちらでも、検索などで調べていこうと思います。
>
> どうもありがとうございました。

2017/05/16 09:15

小川慶一さんのコメント

(コメントID: 4571)

多和田真也さん:

以下の件、その後どうでしょうか。

>> 多和田真也さん:
>>
>> この度は、遅くなりました。
>>
>> 以下でどうでしょう？
>> https://www.dropbox.com/s/vr7omqwd8cgn6pa/udltest.zip?dl=0
>>
>> まずは、解凍し、ソース内の指示に従い以下を行ってください。
>> [1] adoへの参照設定を行う
>> [2] 解凍した資料一式を所定のフォルダに置き換える
>>
>> そして、モジュール(ひとつしかありません)内のサンプルコード3つを上から順に実行してみてください。
>>
>> これでこの3つがちゃんと動くなら、話はかなり早いのですが。。
>>
>>
>> > 小川先生
>> > ご回答ありがとうございます。ゴールデンウィークが終わって、私も仕事に追われていまして、質問したことを忘れそうになっていました。
>> >
>> > こちらでも、検索などで調べていこうと思います。
>> >
>> > どうもありがとうございました。

2017/05/30 00:28

５倍速！メールマガジン

このメールマガジンの詳細はこちら

受講生の声

たった1ヶ月で人生が劇的に変わりました

佐藤信さん

役員クラスの方から高い評価を受けるようになりました。

佐賀県 - 岩本徹さん

今までまったく知らなかったショートカットキーを使いまくっています。

東京都 - 鷹觜慶さん

年齢60才間近、営業で外回りの時間が多い私でも退社時間が1-2時間程度早くなりました。

東京都 - 宗内隆明さん

受講前もすでにパソコン得意でしたが、そんな私でも受講して本当に良かったと思えた講座です。

東京都 - 佐伯とも子さん

ここまで包括的に仕事に役立つ深い学びを受けれた講座は初めてでした

東京都 - 飯田倫子さん

受講生の声をもっと見る

サイト運営者紹介

小川慶一講師/教材/システム開発者紹介

この学習サイトの教材制作、サポート、システム開発をすべてやっています。

より詳しい紹介はこちら

ショートカットワーク報告

2025年03月26日 22:33

CommaToXls-excel
初回でゴールド賞をとれた！

cat22さん

2025年03月26日 22:12

QuoteToXls-excel
ゴールド賞を達成したこと

cat22さん

2025年03月24日 22:28

QuoteToXls-excel
マイペースでも続いていること

cat22さん

2025年03月19日 20:10

TxtToXls-excel
初回でゴールド賞をとれた！

cat22さん

2025年03月18日 20:52

CommaSpaceToXls
プラチナ賞をとれたこと！

cat22さん

ショートカットワーク報告へ

ショートカットワークコメント

2025年04月16日 08:30

CommaToXls-excel
だいぶ間が空いてしまいました。すみません。実務での活用状況についても報告に含めていただければと …

小川慶一さん

2025年03月18日 09:07

CommaToXls
> エスケープ文字をつけ忘れてうまくいかなくてもあきらめなかったところ「自分ならできる」という…

小川慶一さん

2025年03月18日 09:06

QuoteToXls
> FnとWinキーを押し間違えてウィンドウ表示が変ってしまうところそのこと自体は問題ありませ…

小川慶一さん

2025年03月15日 13:23

TxtToXls
着実に上達されていると感じます (^^

小川慶一さん

2025年02月26日 16:37

TabTo-excel
> Ctrl＋Fn+Shift+End これは大変ですよ。僕も、4キー同時打鍵はしたくありませ…

小川慶一さん

ショートカットワーク一覧へ

コーディングワーク報告

2025年04月02日 21:01

複数の表の間でのマッチング
何も見なくてもスラスラ解けた

cat22さん

2025年04月02日 20:47

複数列の中から、最大値の格納されたセルの情報を出力する
昨日より早くかけたこと

cat22さん

2025年04月02日 20:37

最大値の格納されたセルの情報を出力する
昨日よりスピードがあがった

cat22さん

2025年04月01日 22:03

複数列の中から、最大値の格納されたセルの情報を出力する
動画の真似をしてかけたこと

cat22さん

2025年04月01日 21:27

最大値の格納されたセルの情報を出力する
（１）で類似問題を実施しているので、思ったより早く解けた

cat22さん

コーディングワーク報告へ

コーディングワークコメント

2025年04月16日 08:32

複数の表の間でのマッチング
実務での活用状況どうでしょうか。細かい操作ミスについては気にしないでください。速やかに無意識に修…

小川慶一さん

2025年03月18日 09:10

文字列を加工してデータ転記する(その4)
別のところでも書きましたが、イメージトレーニング大切です。次に出てきたときには瞬時に対応するぞ！…

小川慶一さん

2025年03月18日 09:10

文字列を加工してデータ転記する(その4)
こういうのは慣れです (^^

小川慶一さん

2025年03月18日 09:09

文字列を加工してデータ転記する(その4)
別海も悪いはないです。両方のパターンを自在に使い分けられるようになるとさらによいですね！

小川慶一さん

2025年03月18日 09:06

文字列を加工してデータ転記する(その5)
イメージトレーニングしましょう！

小川慶一さん

コーディングワークへ