SQLCommand - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → SQLCommand

共有4700人关注过本帖树形打印复制链接主题：SQLCommand

飘过的巨蟹座

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：141 积分：1101 威望：0 精华：0 注册：2021/8/6 21:17:00

SQLCommand 发帖心情

Post By：2023/2/10 20:49:00 [显示全部帖子]

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编辑过]

飘过的巨蟹座

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：141 积分：1101 威望：0 精华：0 注册：2021/8/6 21:17:00

Post By：2023/2/10 20:58:00 [显示全部帖子]

好奇怪，我用这个代码就找不到

cmd.CommandText = "Se lect 用户组,姓名 from {用户表} Where 用户名 = '" & UserName & "' And 密码 = '" & EncryptText(Password,"123","321") & "' and 启用 = 'True'"

If cmd.ExecuteScalar = 1 Then

Dim Values = cmd.ExecuteValues

UserGroup = Values("用户组")

xm = Values("姓名")

Verified = True

End If

[此贴子已经被作者于2023/2/10 22:07:56编辑过]

飘过的巨蟹座

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：141 积分：1101 威望：0 精华：0 注册：2021/8/6 21:17:00

Post By：2023/2/10 22:19:00 [显示全部帖子]

为什么返回的MessageBox.Show(Values.Count)值是2？我直接把用户名 = '" & UserName & "' And 密码 = '" & EncryptText(Password,"123","321") & "' and 启用 = 'True'"换成值只有一行结果

[此贴子已经被作者于2023/2/10 22:25:05编辑过]

主题：SQLCommand