以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  用户管理  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=192867)

--  作者:朱女士
--  发布时间:2024/7/28 20:53:00
--  用户管理
老师您好!
 我想采用“帮助”中,”自定义用户与权限管理之一”的例子,制作一个先登录后调用项目程序的界面,在运行”增加用户窗口”中,出现了如下错误:

图片点击可在新窗口打开查看此主题相关图片如下:7608511909ddad43dd2ef8d13e69309.jpg
图片点击可在新窗口打开查看

不知道怎么处理了,请指教!谢谢!
Dim UserName As String = e.Form.Controls("UserName").Value
Dim UserGroup As String = e.Form.Controls("UserGroup").Value
Dim PassWord As String = e.Form.Controls("PassWord").Value
Dim cmd As New S QLCommand
cmd.C
If UserName = "" OrElse UserGroup = "" Then
    Messagebox.show("请输入用户名和用户分组!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
    Return
End If
cmd.CommandText = "S elect Count(*) From {Users} Where Name = \'" & UserName & "\'"
If cmd.ExecuteScalar > 0 Then
    Messagebox.show("增加用户失败,已经能存在同名用户!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
    Return
End If
cmd.CommandText = "Insert Into {Users} ([Name],[Group],[Password]) Values (\'"
cmd.CommandText = cmd.CommandText & UserName & "\',\'" & UserGroup & "\',\'" & Password & "\')"
If cmd.ExecuteNonQuery = 1 Then \'返回1表示增加成功
    If Forms("用户管理").Opened Then
        With Forms("用户管理").Controls("ListBox1")
            .Items.Add(UserName)
            .SelectedIndex = .Items.Count - 1
        End With
    End If
    e.Form.Close()
End If


--  作者:有点蓝
--  发布时间:2024/7/28 21:02:00
--  
提示很明显了,列名不正确
--  作者:朱女士
--  发布时间:2024/7/29 8:33:00
--  
我在建立users数据表时,有name,group,password 三个字段的啊,而表中只显示了name 一个字段,这是怎么回事?
--  作者:有点蓝
--  发布时间:2024/7/29 8:52:00
--  
没有保存成功呗。group,password是数据库关键字,如果做列名,在后台数据库里添加这种列名的时候要加上中括号。
--  作者:朱女士
--  发布时间:2024/7/29 9:02:00
--  
弄明白了