主题：自定义用户

准备学做一个自定义用户  ，目前只完成了增加用户（用户注册）代码编辑，测试时users（用户信息表）没有记录注册信息，请指教！！！

在用户登录窗口也找不到注册用户？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:用户管理.table

帖子标题，请简单描述一下问题

继续学习后作了一些我认为该修改的  传上来  但是测试时users（用户信息表）还是没有记录注册信息

 

Dim UserGroup As String = e.Form.Controls("UserGroup").Value
Dim zxx As String = e.Form.Controls("zxx").Value
Dim xx As String = e.Form.Controls("xx").Value
Dim UserName As String = e.Form.Controls("UserName").Value
Dim UserIsRole As String = e.Form.Controls("js").Value
Dim PassWord As String = e.Form.Controls("PassWord").Value
Dim dwdh As String = e.Form.Controls("dwdh").Value
Dim grdh As String  = e.Form.Controls("grdh").Value
Dim emile As String = e.Form.Controls("emile").Value
Dim qq As String = e.Form.Controls("qq").Value

Dim cmd As New SQLCommand
cmd.C
If "UserName" = "" OrElse "UserGroup" = "" Then
    Messagebox.show("请输入用户名和用户分组!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
cmd.CommandText = "Select 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} ([Group],[中小学],[学校],[Name],[IsRole],[单位电话],[个人电话],[电子邮箱],[QQ号码],[密码]) Values ('"
cmd.CommandText = cmd.CommandText & UserGroup & "','" & zxx & "','" & xx & "','" & UserName & "','" & UserIsRole & "','" & dwdh & "','" & grdh & "', '" & emile & "','" & qq & "','" & PassWord &"')"

e.Form.Close()

 

请 狐狸爸爸  指教！！！

难道非要建文件“用户.mdb”并将用户信息保存在一个Access文件"用户.mdb"中。

如果这样的话，如何将外部数据源，连接到文件“用户.mdb”？ 请指教！！！

别研究了，下次更新，按两次鼠标，内置的用户管理就可以自动转到外部数据源。

期待更新。。。。。。