ADOで取得した結果が文字化けする (ID:122191)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > S = StrConv(B, 0, 1041) > MsgBox B, , "OK" 上記は、 S = StrConv(B, 0, 1041) MsgBox S, , "OK" の間違いです。(まぁ、結果は一緒ですけど) そして、この "OK" な化け方に限り、下記のようにして復元できます。 Dim Stm As ADODB.Stream Dim Dst As String '=== 文字化けデータが、UTF-8のバイナリを持ったString型である場合 === Set Stm = New ADODB.Stream Stm.Open Stm.WriteText S, adWriteChar 'UTF-8形式のデータを書き込む Stm.Position = 0 Stm.Charset = "UTF-8" Dst = Stm.ReadText(adReadAll) Stm.Close Set Stm = Nothing MsgBox Dst '=== 文字化けデータが、UTF-8のバイナリを持ったByte配列である場合 === Set Stm = New ADODB.Stream Stm.Open Stm.Type = adTypeBinary Stm.Write B 'UTF-8形式のデータを書き込む Stm.Position = 0 Stm.Type = adTypeText Stm.Charset = "UTF-8" Dst = Stm.ReadText(adReadAll) Stm.Close Set Stm = Nothing MsgBox Dst