VBAでpreparedstatementを使用すると文字化けする

Question

前提・実現したいこと

VBAからpreparedstatementを使用してMySQLにデータ登録

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

登録情報に日本語を設定した際に文字化け(すべての文字が???)します。
英語や数字を設定した際は問題ないです。

該当のソースコード

   Dim con As New ADODB.Connection

'DB接続
Function getConnection()
    con.Open "Driver=MySQL ODBC 8.0 Unicode Driver; SERVER=127.0.0.1; DATABASE=aaa_db; USER=aaa; PASSWORD=aaa123;"
End Function

'preparedstatementを利用して登録
Sub preparedInsert()
 
    getConnection
        
　　Dim sql As String
    sql = "INSERT INTO aaa_db (`NAME`, `TEL`, `ZIP`, `ADDRESS`, `CONTACT_NAME`, `CONTACT_EMAIL`, `CREATED`, `UPDATED`) VALUES (?,?,?,?,?,?,?,?)"
    
    Dim cmd As ADODB.Command
    Set cmd = New ADODB.Command
    
    With cmd
        .ActiveConnection = con
        .CommandText = sql
        .Parameters.Append cmd.CreateParameter("NAME", adChar, adParamInput, 100, "佐藤")
        .Parameters.Append cmd.CreateParameter("TEL", adChar, adParamInput, 50, "090-2222-2222")
        .Parameters.Append cmd.CreateParameter("ZIP", adChar, adParamInput, 50, "111-1111")
        .Parameters.Append cmd.CreateParameter("ADDRESS", adChar, adParamInput, 100, "東京")
        .Parameters.Append cmd.CreateParameter("CONTACT_NAME", adChar, adParamInput, 50, "鈴木")
        .Parameters.Append cmd.CreateParameter("CONTACT_EMAIL", adChar, adParamInput, 50, "[e-mail]")
        .Parameters.Append cmd.CreateParameter("CREATED", adInteger, adParamInput, , 20200101)
        .Parameters.Append cmd.CreateParameter("UPDATED", adInteger, adParamInput, , 20200101)
        .Execute
    End With
    
    con.Close
    
End Function


'preparedstatementを利用しないで登録
Sub insert()

　　getConnection

   Dim sql As String
   sql = "INSERT INTO " aaa_db " (`NAME`, `TEL`, `ZIP`, `ADDRESS`,`CONTACT_NAME`, `CONTACT_EMAIL`, `CREATED`, `UPDATED`) VALUES ('佐藤','090-2222-2222','111-1111','東京','鈴木','[e-mail]',20200101,20200101)"

   con.Execute(sql)
   con.Close

End Function

試したこと

3番目のプロシージャに記載したpreparedstatementを利用しない方法でSQL文を実行したところ、
文字化けすることなくデータは登録されました。
その為、preparedstatementでの処理に問題があるのと考えています。

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

Excel 64bit
Microsoft ActiveX Data Objects 6.1 Library

Answer 1

odbcドライバーの設定に「character set」「initial statement」っていうのがあるらしいですので接続文字列に加えるとどうなりますか？

コメント欄から追記

とりあえずadWChar系にしてみては？「adVarWChar」と「adWChar」だったと思う。
.Parameters.Append cmd.CreateParameter("NAME", adWChar, adParamInput, 100, "佐藤")

https://docs.microsoft.com/ja-jp/sql/ado/reference/ado-api/datatypeenum?view=sql-server-ver15

Comments

[kajipec]

回答ありがとうございます。
下記の通りにやってみたのですが、うまくいきませんでした。
なにかおかしい部分あるでしょうか。
Driver=MySQL ODBC 8.0 Unicode Driver; SERVER=127.0.0.1; DATABASE=aaa_db; USER=aaa; PASSWORD=aaa123;CHARACTER SET SJIS; Initial Statement = SET NAMES sjis"

[退会済みユーザー]

Unicodeは日本語文字化けするのでは？

[sousuke]

ぱぱっと調べたところ「ANSI DRIVERを使え」っていう人もいてなおさらわからん。
とりあえずadWChar系にしてみては？「adVarWChar」と「adWChar」だったと思う。
.Parameters.Append cmd.CreateParameter("NAME", adWChar, adParamInput, 100, "佐藤")

[kajipec]

adVarWCharにしてみたところ文字化けせずにうまくいきました！
ありがとうございます(⊙ꇴ⊙)

[sousuke]

うまくいってよかった。
一応パラメータの型は確認しておいたほうがいいね、知っておいて損はない。
https://docs.microsoft.com/ja-jp/sql/ado/reference/ado-api/datatypeenum?view=sql-server-ver15