VB6.0 + MySQL 4.1.22 での文字化け (ID:100630)

名前

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

本文

やじゅさん、ご回答ありがとうございます。

おっしゃっていたステートメント設定を試しましたがダメでしたので、発想を変え、取得した文字列を変換する方法を取ろうと考えました。

そこで、

'UTF8  →  Unicode  変換関数
  '**************************************************
  Private Function UTF8_TO_UNICODE(strData As String) As String
  
    Dim bytData() As Byte
    Dim objStream As Object
  
    bytData = StrConv(strData, vbFromUnicode)
  
    Set objStream = CreateObject("ADODB.Stream")
  
    With objStream
      .Open
      .Type = adTypeBinary
      .Write bytData
      .Position = 0
      .Type = adTypeText
      .Charset = "UTF-8"
      UTF8_TO_UNICODE = .ReadText()
      .Close
    End With
  
    Set objStream = Nothing
  
  End Function
  '**************************************************

'Unicode  →  UTF8  変換関数
  '**************************************************
  Private Function UNICODE_TO_UTF8(strData As String) As String
  
  Dim bytData() As Byte
  Dim objStream As ADODB.Stream
  
    bytData() = StrConv(strData, vbUnicode)
  
    Set objStream = CreateObject("ADODB.Stream")

With objStream
      .Open
      .Type = adTypeBinary
      .Write bytData()
      .Position = 0
      .Type = adTypeText
      .Charset = "UTF-8"
      UNICODE_TO_UTF8 = .ReadText()
      .Close
    End With
  
    Set objStream = Nothing
  
  End Function
  '**************************************************

という関数を作ってみました。データベース接続して取得した文字列を

strText = UTF8_TO_UNICODE("譚ア莠ャ")

のように変換・取得し、

strText = UNICODE_TO_UTF8("東京")

のように変換・利用しようと思います。「譚ア莠ャ」=「東京」。

よくよく調べてみると、http://madia.world.coocan.jp/vb/vb_bbs2/200506/200506_05060016.htmlの質問と同様でした。

しかし、UNICODE_TO_UTF8関数を実行しても思った結果が得られません。コードのどの部分が誤りなのでしょうか？

←解決時は質問者本人がここをチェックしてください。

戻る