質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

MySQL

MySQL(マイエスキューエル)は、TCX DataKonsultAB社などが開発するRDBMS(リレーショナルデータベースの管理システム)です。世界で最も人気の高いシステムで、オープンソースで開発されています。MySQLデータベースサーバは、高速性と信頼性があり、Linux、UNIX、Windowsなどの複数のプラットフォームで動作することができます。

Q&A

解決済

2回答

3516閲覧

text型のデータをCopyFromRecordsetを用いてセルに表示させる

kajipec

総合スコア2

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

MySQL

MySQL(マイエスキューエル)は、TCX DataKonsultAB社などが開発するRDBMS(リレーショナルデータベースの管理システム)です。世界で最も人気の高いシステムで、オープンソースで開発されています。MySQLデータベースサーバは、高速性と信頼性があり、Linux、UNIX、Windowsなどの複数のプラットフォームで動作することができます。

0グッド

0クリップ

投稿2020/07/27 01:59

前提・実現したいこと

MySQLに登録してある情報をCopyFromRecordsetを用いてセル上に表示させています。
varchar型やint型の情報は正常に表示されるのですが、text型を設定しているとそれ以降の情報が何も表示されません。

発生している問題・エラーメッセージ

text型以降の情報が表示されない (レコードがint varchar text varcharの順で作られてた時、textと4つ目のvarcharの情報だけ反映されない)

該当のソースコード

VBA

1 Dim sql As String 2 Dim con As New ADODB.Connection 3 Dim rs As New ADODB.Recordset 4 5 con.Open "Driver=MySQL ODBC 8.0 Unicode Driver; SERVER=127.0.0.1; DATABASE=aaa_db; USER=aaa; PASSWORD=aaa123;" 6 7 sql = "SELECT * FROM aaa_table WHERE 1" 8 Set rs = con.Execute(sql) 9 Worksheets(1).Range("A1").CopyFromRecordset rs 10 11 con.Close

試したこと

text型をvarchar型に変えてみる
→表示される

Worksheets(1).Range("A1").CopyFromRecordset rsにブレークポイントを設定して、
ローカルウィンドウでrsの中身を開くと、なぜか一番上のレコードだけすべてセル上に反映されます。
しかし2番目以降のレコードはtext型以降の情報が表示されないです。

補足情報(FW/ツールのバージョンなど)

Excel 64bit

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答2

0

検討はずれだったので消去

投稿2020/07/28 03:06

編集2020/07/28 04:12
radames1000

総合スコア1923

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

0

ベストアンサー

Excel VBAの問題かmysql側の設定の問題かを検証する意味で
mysql管理ツールやコマンドプロンプトで直接表示できる状態なのかを切り分けて
考えたらどうでしょうか・・。

テーブルの文字コードがUTF-8になっているなど・・・。

投稿2020/07/27 10:20

編集2020/07/27 23:35
mako1972

総合スコア383

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

kajipec

2020/07/28 01:15

回答ありがとうございます。 phpmyadminとコマンドプロンプトでは正常に表示されているので、恐らくExcel VBAでの問題かなと考えています。 テーブルの文字コードはUTF-8に設定していますがUTF-8では問題があるということでしょうか?
mako1972

2020/07/28 01:39 編集

コマンドプロンプトで実行する場合 mysqli.niファイルの設定次第では、set names cp932をコマンドしてから select *from tableなどとしていたことも あったような気がします。 windows ODBC設定で文字コード(Character Set をcp932)を設定する項目 https://www.northwind.mydns.jp/samples/blog/?p=1510 https://rarara.org/community/programming/MYSQL%E3%81%B8%E3%82%A8%E3%82%AF%E3%82%BB%E3%83%AB%E3%81%A7ODBC%E6%8E%A5%E7%B6%9A%E3%81%A7%E6%96%87%E5%AD%97%E5%8C%96%E3%81%91/ などを試されてはいかがでしょうか・・(URLでは指定していないようです・・。)。 こちらのサンプルでは文字コードをVBAで指定しているようです。 https://excelwork.info/excel/databasemysql/ 問題が文字化けではないようですので、なんとも言えないところでしょうか・・。
kajipec

2020/07/28 04:08

rs.CursorLocation = adUseClientと記述したら表示されました。 色々調べていただきありがとうございました!
mako1972

2020/07/28 04:14 編集

全然アドバイスになりませんでしたね。 勉強になりました。ありがとうございます。 私も消去したい・・。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問