完了。。重大问题！

Question

vb中，， 检索mysql中的数据 不能显示中文……？？我在cmd下，用命令操作都能显示中文……没活头了。。mshflexgrid+ ado ＋mysql.

Answer 1

mshflexgrid+ ado ＋mysql. 
 都支持中文呀！！怎么会呢？不明白

Answer 2

Public Function ExecuteSQL(ByVal sql As String, MsgString As String) As ADODB.Recordset
    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim sTokens() As String
    'Dim SQL As String
    On Error GoTo ExecuteSQL_Error
    sTokens = Split(sql)
    Set cnn = New ADODB.Connection
    
    connectstring = "driver=mysql odbc 3.51 driver;" & _
                "server=" & "192.168.1.11" & ";" & _
                "database=dtserver;" & _
                "port=3306;" & _
                "uid=root;" & _
                "pwd=waj"
    cnn.Open connectstring
    If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then
       cnn.Execute sql
       MsgString = sTokens(0) & "query successful"
    Else
       Set rst = New ADODB.Recordset
       rst.Open Trim$(sql), cnn, adOpenKeyset, adLockOptimistic
      
       
       Set ExecuteSQL = rst
        
       MsgString = "查询到" & rst.RecordCount & "条纪录"
    End If
源码 。最后再set mshflex....=...
就成这样了、

Answer 3

楼上，wangjian0_0997(wangjian)就是LZ

Answer 4

http://community.csdn.net/Expert/topic/4457/4457939.xml?temp=.2959711