vbaでレコードセットから値を取得して、文字列として表示すると文字化けする

Question

AccessでレコードセットからDictionary(連想配列オブジェクトへ漢字、半角カタカナを含む日本語文字列を入れ、文字列として確認したときに文字化けが発生してしまうのですが、何か解決方法はないでしょうか?

• 問題の文字列

例えば、このように文字化けが発生してしまいます。
"product_name": "SKS2\u677F\uFF7D\uFF77\uFF9D\uFF8A\uFF9F\uFF7D"

• やってみたこと

文字コードの問題のような気はするのですが、strConvを使用してみてもダメでしたし、うまくいきませんでした。

• 現状分かっていること

accessのテキストボックスコントロールから値を取得した場合には、文字化けは起こりません。
レコードセットから値を取得し、オブジェクトへ値を代入して値を確認すると文字化けします。

• コード

    Dim rsW As DAO.RecordSet
    Dim strSQL As String
    Dim JsonObject As Object
    Dim records As String
    
    Dim strTest As String
    
    strSQL = "SELECT * FROM dbo_~~テーブル" & vbLf
    Set rsW = CurrentDb.OpenRecordSet(strSQL)
    
    ' 連想配列オブジェクトを宣言
    Set JsonObject = New Dictionary
    Do Until rsW.EOF
        
        strTest = rsW!品名
        
        JsonObject.Add "material_code", rsW!○○コード
        JsonObject.Add "shape_code", rsW!□コード
        JsonObject.Add "surface_code", rsW!××コード
        JsonObject.Add "product_name", 値1
        JsonObject.Add "thick", rsW!値2
        JsonObject.Add "width", rsW!値3
        JsonObject.Add "length", rsW!値4
    
        rsW.MoveNext
        
        records = records + JsonConverter.ConvertToJson(JsonObject, Whitespace:=2) + ","
        Debug.Print records
        JsonObject.RemoveAll
    Loop

Comments

[imihito]

JsonConverter.ConvertToJsonがどんな処理か知りませんが、JSONとしては一般的な挙動なように思います。
なぜJSONに変換しているのでしょうか？

[kuri_dev]

apiへデータを送る為に変換しております。
また、昨日JsonConverter.ConvertToJsonの関数を調べていたのですが、そこで文字列を変換していたようでした。

Answer 1

JSON内の文字は\u16進数四桁という形式でも表記できるため、
"product_name": "SKS2\u677F\uFF7D\uFF77\uFF9D\uFF8A\uFF9F\uFF7D"
はJSONとして有効な文字列です。

そのため「文字化け」というよりはそういう仕様です。

JsonConverterが以下のページのものであれば、作者が英語圏の方であり、
VBAの仕様上ASCII以外の文字はVBEの画面では正常に表示されない可能性があるため、それ以外の文字をエスケープしているのでしょう。

VBA-JSON/JsonConverter.bas at master · VBA-tools/VBA-JSON

「api」というのがJSONを受け取るAPIであれば、普通対応している思うのでそのまま送信してしまえば問題無いでしょう。

参考として、以下の方法でSKS2板ｽｷﾝﾊﾟｽという文字列が得られます。

// ブラウザのコンソールなどで実行
JSON.parse('"SKS2\u677F\uFF7D\uFF77\uFF9D\uFF8A\uFF9F\uFF7D"')

# PowerShellのコンソール上で実行
ConvertFrom-Json -InputObject '"SKS2\u677F\uFF7D\uFF77\uFF9D\uFF8A\uFF9F\uFF7D"'

Comments

[kuri_dev]

こちらの方で、そのまま送ってみてapiサーバ側で問題なくjsonをパースすることが出来ました。
丁寧な解説ありがとうございます。非常に助かりました！