cmd.CommandText ="Sel ect Count(*) From {用户表} Where 用户名 = '" & UserNa me & "' And 密码 = '" & EncryptText(Password,"123","321") & "' and 启用 = 'True'"
If cmd.ExecuteScalar = 1 Then
cmd.CommandText = "Se lect 用户组,姓名 from {用户表} W here 用户名 = '" & UserName & "'"
Dim Values = cmd.ExecuteValues
UserGroup = Values("用户组")
xm = Values("姓名")
Verified = True
End If
这个蓝色的赋值,如何能在没有黄色字段的代码下完成赋值呢?
[此贴子已经被作者于2023/2/10 21:02:07编辑过]