copyfromrecordset和getrows转置输出问题

yf_992258

vba 连接的mysql 数据库，两种方式发现输出有部分字符不一样，如有条记录的“名称”字段内容为“左下侧板”，其他字段输出都正常
copyfromrecordset 输出其中“名称”这个字段都截取了一部分，只能输出“左下”，超过2个字符的都是一样情况
getrows再转置输出就正常为“左下侧板”。

sql_str = "select content2.auto_bid,content2.zzh,content1.tjh,content1.zjxh,content1.mkxh,content1.mc,content1.des,content2.zs,content2.beizhu from content1,content2 where content2.tjh=content1.auto_bid and content2.zzh='" & zzh & "'"
Set rst = New ADODB.Recordset
With rst
.Open sql_str, conn, 1, 1, adCmdText
If Not .BOF And Not .EOF Then
  '[a4].CopyFromRecordset rst'----------------用这句也能输出，只是其中有一个字段（名称都是文字），只输出2个字
  temp = .GetRows()'---------------------------用这句输出就正常，多个字
  Range("a4:i" & UBound(temp, 2) + 4) = Application.Transpose(temp)
  MsgBox "  O K !~", , "提示"
Else
  MsgBox "没有查到对应数据！", , "提示"
End If
End With
conn.Close
Set rst = Nothing
Set conn = Nothing

yf_992258

网上查了有同样情况，解决方法添加CursorLocation值设置为adUseClient，重新刷新就显示正常字符了。
sql_str = "select content2.auto_bid,content2.zzh,content1.tjh,content1.zjxh,content1.mkxh,content1.mc,content1.des,content2.zs,content2.beizhu from content1,content2 where content2.tjh=content1.auto_bid and content2.zzh='" & zzh & "'"
Set rst = New ADODB.Recordset
With rst
.CursorLocation = adUseClient '----------------添加这一句
.Open sql_str, conn, 1, 1, adCmdText
If Not .BOF And Not .EOF Then
  [a4].CopyFromRecordset rst '----------------用这句也能输出，只是其中有一个字段（名称都是文字），只输出2个字
  'temp = .GetRows() '---------------------------用这句输出就正常，多个字
  'Range("a4:i" & UBound(temp, 2) + 4) = Application.Transpose(temp)
  MsgBox "  O K !~", , "提示"
Else
  MsgBox "没有查到对应数据！", , "提示"
End If
End With
conn.Close
Set rst = Nothing
Set conn = Nothing

yf_992258

再次补充
近两天又碰到类似情况，VBA连接mysql输出中文字符缺失，使用上面的方法都不可行了。上面的方法之前是在EXCEL2007可行。这次区别在于OFFICE版本高了，用的EXCEL2016，office365等
最后是修改mysql字段的varchar长度，原来长度为4,所以显示最多2个汉字，修改后可以正常输出了。不同office版本对于字符长度的区别，不知道什么原因