VB中怎样进行Text字段的查询,而且是汉字段???

来源:百度知道 编辑:UC知道 时间:2024/05/15 00:20:41

一个汉字 = 两个字符
你所谓的查询是不是查询数据库啊?

在FORM中加一个 DATA 控件
DATA 数据源连接好
TEXT连接到数据源对应的表
检测就可以 大概的乱码

Option Explicit
'定义用户session
Public session As String
Private Sub cmd1_Click()
Dim uname As String, upwd As String
uname = a.Text
upwd = b.Text
Data1.RecordSource = "Select * From user Where Uname='" & uname & "'and Upwd='" & upwd & "'"
Data1.Refresh
If Data1.Recordset.EOF Then
MsgBox "对不起,用户名或密码错误!", , "警告"
Data1.RecordSource = "user"
Data1.Refresh
Else
'用户名密码正确,将用户名装入session
session = uname
a.Text = "您输入的用户名/密码是正确的!"
b.Text = ""
End If
End Sub
Private Sub cmd2_Click()
End
End Sub

查询汉字和查询字符是一样一样的啊