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

Question

前提・実現したいこと

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

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

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

該当のソースコード

    Dim sql As String
    Dim con As New ADODB.Connection
    Dim rs As New ADODB.Recordset

    con.Open "Driver=MySQL ODBC 8.0 Unicode Driver; SERVER=127.0.0.1; DATABASE=aaa_db; USER=aaa; PASSWORD=aaa123;"

    sql = "SELECT * FROM aaa_table WHERE 1"
    Set rs = con.Execute(sql)
    Worksheets(1).Range("A1").CopyFromRecordset rs
    
    con.Close

試したこと

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

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

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

Excel 64bit

Answer 1

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

Answer 2

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

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

Comments

[kajipec]

回答ありがとうございます。

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

[mako1972]

コマンドプロンプトで実行する場合
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]

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

[mako1972]

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