只能执行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)