这一段有这样的代码:
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,无法保存成功的!
有好的方法能追加进去合适的值吗?
我不知道这个主键的值,有什么规则要遵守的。
能提供一个参考吗?
这些代码都是经过测试的,而且CaseStudy目录下还提供了演示文件,没有问题的。
用外部表,不设置主键列即可。
[此贴子已经被作者于2010-9-20 22:55:18编辑过]
我现在暂时用的内部数据源
我想在发布程序时,再定向数据,这样开发方便一些,因为我要根据需要增加表,在狐表里做方便一些。
内部数据源的的主键值如何搞?
内部表没有办法,你可以用Access数据源
[此贴子已经被作者于2010-9-21 17:39:27编辑过]