VB为什么只能查询数字，不能查询汉字？PrivateSubCommand3Click()OnErrorResumeNextSource=donaccess;InitialCatalog=C:\DOCUMENTSANDSETTINGS\DON\桌面\亚洲\db1"DimsqlAsVariantsql="select*from商品whereid="&Text1

Question

VB为什么只能查询数字，不能查询汉字？Private Sub Command3_Click() On Error Resume Next Source=donaccess;Initial Catalog=C:\DOCUMENTS AND SETTINGS\DON\桌面\亚洲\db1" Dim sql As Variant sql = "select * from 商品 where id=" & Text1.Text & "" Set dd = ad.Execute(sql) Text2.Text = dd.Fields("单位").Value Text3.Text = dd.Fields("备注").Value Text4.Text = dd.Fields("商品价格").Value Exit Sub dd.Update dd.Close ad.Close End Sub 意思是在一个筐里输入文字能查询其他信息，以上代码输入数字可以查询，但是中文就不可以？为什么？

Answer 1

将sql = "select * from 商品 where id=" & Text1.Text & "" 改为sql = "select * from 商品 where id='" & Text1.Text & "'" 就可查询中文了 注意多了两个单引号