在控件中显示的数据库的数据是乱码(中文乱码,英文数字正常),怎么办?
我的MSHFlexGrid通过DataEnvironment绑定到数据库的一个表。它显示的信息中文是乱码,而我如果用程序(见下)读出来则能正常显示中文。怎么回事??
Dim strSQL As String
Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
On Error GoTo ErrorHandler
strSQL = "Select MEANING From DD_ANQINGCHENGDU"
Cn.Open "dsn=xksnet_ora9i;uid=xks;pwd=hello"
Rs.Open strSQL, Cn, adOpenDynamic, adLockOptimistic
While (Not (Rs.EOF))
frmAnQingJianJie.cboAnQingChengDu.AddItem Rs("MEANING")
Rs.MoveNext
Wend
Rs.Close
Set Rs = Nothing
Cn.Close
Set Cn = Nothing