vb调用mysql数据库表，数据库编码是urf8，结果中文字符显示乱码

Question

我用vb调用mysql数据库，结果集里有中文的地方都变成了？，数据库编码是urf8，请问该如何转码？

Answer 1

Private Function GetUTF8Code(ByVal sUnicode As String, Optional ByVal fUTFCode As Boolean = False) As Variant
    Dim i As Long
    Dim lLength As Long
    Dim lBufferSize As Long
    Dim lResult As Long
    Dim bUTF8() As Byte
    
    GetUTF8Code = ""
    lLength = Len(sUnicode)
    If lLength = 0 Then Exit Function    
    lBufferSize = lLength * 3 + 1
    ReDim bUTF8(lBufferSize - 1)
    
    lResult = WideCharToMultiByte(CP_UTF8, 0, StrPtr(sUnicode), lLength, bUTF8(0), lBufferSize, vbNullString, 0)
    
    If lResult <> 0 Then
        lResult = lResult - 1
        ReDim Preserve bUTF8(lResult)
        If fUTFCode Then
            For i = LBound(bUTF8) To UBound(bUTF8)
                    GetUTF8Code = GetUTF8Code & Hex(bUTF8(i))
            Next
        Else
            GetUTF8Code = bUTF8
        End If
    End If
End FunctionPublic Function UTF8_Decode(bUTF8() As Byte) As String
    Dim lRet As Long
    Dim lLen As Long
    Dim lBufferSize As Long
    Dim sBuffer As String
    Dim bBuffer() As Byte
    
    lLen = UBound(bUTF8) + 1
    
    If lLen = 0 Then Exit Function
    
    lBufferSize = lLen * 2
    
    sBuffer = String$(lBufferSize, Chr(0))
    
    lRet = MultiByteToWideChar(CP_UTF8, 0, VarPtr(bUTF8(0)), lLen, StrPtr(sBuffer), lBufferSize)
    
    If lRet <> 0 Then
        sBuffer = Left(sBuffer, lRet)
    End If
    
    UTF8_Decode = sBuffer
End Function

Answer 2

GetUTF8Code是转换为utf8的
 UTF8_Decode是utf8转换回来的

Answer 3

楼上的方法试过了，不成。请问楼上，我是通过sql语句取出结果放到rs里，是不是放的过程中utf8的字符自动转换成别的或者是vb默认的字符，导致无法转换？

Answer 4

是的哦但是vb是unicode阿所以乱码

Answer 5

搜一下吧，前不久我才回复过一个这样的问题。大概同MySQL数据库的charset设置有关系。

Answer 6

今天寻找关于这问题解决方法的时候，竟然发现一个网站的贴的内容跟这里的是一模一样的。真是有意思呀，
那个网站的文章地址：http://dev.9983.com/ku/5101/4877990.asp