MySQLから取り込んでフォームに表示させるには。

質問

MySQLから取り込んでフォームに表示させるには。
(ExcelVBA)
MySQLデータベースからデータを取り込んで
Excelブックのユーザーフォーム1のコンボボックス1に表示させる。
ゴールはこれなんですが。

まずはよさそうな下記サイトを参考にしようとしましたが、
コードの意味がさっぱりわからず
どこをどういじればいいのか困っています。
他を探しても初心者向けではなく、似たようなものばかりです・・
http://www.cocoaliz.com/excelVBA/index.php/40/
どのようにすればいいでしょうか。

回答No.3

ushi2015 · ベストアンサー

こんにちは、No1です。
Microsoft ActiveX Data Object x.x Library を参照設定して
リンク先のコードの'接続文字列
connectionString = "Driver={MySQL ODBC 5.1 DRIVER};" _
　　　　& " SERVER=localhost;" _
　　　　& " DATABASE=cocoadb;" _
　　　　& " USER=root;" _
　　　　& " PASSWORD=admin;"

のlocalhostをサーバー名、またはサーバーのIPアドレスに変更して
cocoadbを実際のDB名に変更して、
ユーザー名、パスワードの、root、admin を実際のものに変更。

'SQL文
sqlStr = "select * from ms_usr"
のms_usrをデータ数の少ない適当なテーブル名に変更して、
実行してみてはどうですか？

SERVER名と DATABASE名を変更するだけでもms_usrの内容が
取得出来るとは思いますが、実際のDBから取り敢えずデータが抜けるか
試してみた方がいいですよ。

道一のPC上にサーバー立ててるならSERVER名もlocalhostでいいと思います。

補足

回答ありがとうございます。
外部サーバーとパソコンをMySQLで
やり取りしたい場合は
どのようにコードを変えるのでしょうか。
↓備考↓
現在の接続状況は*HeidiSQLを使って接続OK*です。
セットアップはできている状態です。

回答No.4

ushi2015

こんにちは、No1です。
先に書いた通りです。
サーバー名（IPアドレス）、DB名、ログインユーザー名、パスワード、テーブル名は
こちらでは分かりません。
それを調べてセットして試して下さい。
ダメな場合をそれらの内容が間違っているか、MySQLサーバー側の設定で
他のクライアントからのODBC接続が許可されていないケースも有ります。

回答No.2

maiko0333

＞http://www.cocoaliz.com/excelVBA/index.php/40/
このサンプルは丸暗記するつもりで覚えてください。
はっきり言ってこれでわからなければ何もわからない。

お礼

やはりそうですか。
これがキホンであり最終系なのですね。

回答No.1

ushi2015

こんにちは
MySQLのデータベースは出来ているのですか？
MySQL ODBC DRIVER はインストールされていますか？

お礼

ドライバーもインストール済みです。

補足

データベースとテーブルはできていて、
あとはやりとりするだけです。