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

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

共有4572人关注过本帖树形打印复制链接主题：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编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：110572 积分：562750 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/2/11 8:31:00 [只看该作者]

sql如果有返回值，返回几个列，Values.Count就有几个。

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

Dim Values = cmd.ExecuteValues

if Values.Count > 0 then '先判断是否有返回值

If Values("用户组").ToString <> Nothing Then ‘再判断某个列是否有值

UserGroup = Values("用户组")

endif

If Values("姓名").ToString <> Nothing Then ‘再判断某个列是否有值

xm = Values("姓名")

endif

Verified = True

endif

下一主题 >> << 上一主题

主题：SQLCommand