以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关于帮助文件中的“自定义用户--增加用户”  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=8233)

--  作者:wcs
--  发布时间:2010/9/20 16:31:00
--  关于帮助文件中的“自定义用户--增加用户”

这一段有这样的代码:

 

 

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 SQLCommand
cmd.ConnectionName =
"User"
If
UserName = "" OrElse UserGroup = "" 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()

Else

    Messagebox.show(
"增加用户失败, 可能存在同名用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End
If

 

 

意思是把窗口中的值,用Insert Into 追加到数据库中

 

但是它没有考虑狐表数据库的主键_identify,无法保存成功的!

 

有好的方法能追加进去合适的值吗?

 

我不知道这个主键的值,有什么规则要遵守的。

 

能提供一个参考吗?


--  作者:wcs
--  发布时间:2010/9/20 22:47:00
--  

没有人能回答这个问题吗?

 

没有人有过自定义的用户管理吗?


--  作者:狐狸爸爸
--  发布时间:2010/9/20 22:54:00
--  

这些代码都是经过测试的,而且CaseStudy目录下还提供了演示文件,没有问题的。

 

用外部表,不设置主键列即可。

[此贴子已经被作者于2010-9-20 22:55:18编辑过]

--  作者:wcs
--  发布时间:2010/9/21 17:28:00
--  

我现在暂时用的内部数据源

 

我想在发布程序时,再定向数据,这样开发方便一些,因为我要根据需要增加表,在狐表里做方便一些。

 

内部数据源的的主键值如何搞?


--  作者:狐狸爸爸
--  发布时间:2010/9/21 17:39:00
--  
内部表没有办法,你可以用Access数据源
[此贴子已经被作者于2010-9-21 17:39:27编辑过]

--  作者:wcs
--  发布时间:2010/9/21 19:57:00
--  
那我定向一下吧。