求助: 用输入对话框做查询的时候,输入汉字就出现乱码.但查询的结果仍可以正常显示出来~~~ 谢谢!

Question

输入对话框做查询的时候,输入汉字就出现乱码.但查询的结果仍可以正常显示出来~~~  谢谢!

Answer 1

用的是inputbox吗？可能是没打补丁的问题，也可能是你的VB的安装盘有问题

Answer 2

msgbox前几次用还是可以的,没什么问题昨天偶尔发现输入不了汉字

Answer 3

打sp6就可以了。inputbox没打补丁是这样的。

Answer 4

比较正常， 工程属性里面输入工程名称，也可以发现这个问题，输入的明明是对的。出来的却是乱码。打sp6就ok了。

Answer 5

sp6补丁?
直接在网上可以下到吗?还有一问题想请教下: 我想做一个日期段查询,
然后想让输出的结果在DataGrid中显示出来,该怎么做?
谢谢各位了~~!

Answer 6

我想做一个日期段查询,
然后想让输出的结果在DataGrid中显示出来,该怎么做?
-------------------------------------------------
'如果是Access数据库：'引用ADO("工程"/"引用"/Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command1_Click()
    On Error GoTo err
    Dim cn As New ADODB.Connection, rs As New ADODB.RecordSet
    '有密码的连接方式
    'cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;Jet OLEDB:DataBase password=12345;"
    '无密码的连接方式
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;Persist Security Info=False"
    cn.Open
    rs.CursorLocation=adUseClient'设置客户端游标
    rs.Open "select * from 表 where 日期字段<=#2005-12-09# And 日期字段>2005-01-01" order by 日期字段, cn, 1, 2  '具体的查询自己改
    Set DataGrid1.DataSource = rs    '把记录集的记录显示到DataGrid1
    Exit Sub
err:
    MsgBox err.Description
End Sub