以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  sql 获取新增主键报错.  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177190)
--  作者：夜点蚊香
--  发布时间：2022/5/12 11:39:00
--  sql 获取新增主键报错.
Dim cm d As new SQ L Co m m and
cm d.Con n e ct i o n N am e = "user"
cm d.Co mm and Text = "Insert Into 缴费类型 (缴费类型) Values(?);Select SCOPE_IDENTITY()"
cm d . Par am e t er s.Add("@缴费类型","联想")
Dim id As Integer = cm d.E x e cute S ca la r()
Output.Show("新增行主键:" & id)

报错内容
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.1.30.2
错误所在事件：
详细错误信息：
在 SQL 语句结尾之后找到字符。

access 数据库如何使用
[此贴子已经被作者于2022/5/12 11:56:00编辑过]
--  作者：有点蓝
--  发布时间：2022/5/12 12:10:00
--  
只能执行2次，根据不重复字段值获取，假设缴费类型不会有重复值

Dim cm d As new SQ L Co m m and
cm d.Con n e ct i o n N am e = "user"
cm d.Co mm and Text = "Insert Into 缴费类型 (缴费类型) Values(?)"
cm d . Par am e t er s.Add("@缴费类型","联想")
cm d.ExecuteNonQuery
cm d.Co mm and Text = "Select [_identify] from {缴费类型 } where 缴费类型=?"
Dim id As Integer = cm d.E x e cute S ca la r()
Output.Show("新增行主键:" & id)