运行以下代码时出现此错误
不支持UpdateCommand的动态SQL生成 一个不返回任何键列信息的SelectCommand。
我知道答案是设置一个我没有做过的主键。但我的问题是在这个表中没有主键。表列表流程考虑了一个员工可以为多个流程工作而一个流程有多个员工的员工。我在主employee表中标记了主键,并且还编辑了数据库中的关系。仍然更新命令不起作用。这是我的代码:
con.Open()
sql = "SELECT * FROM employeerecord WHERE [Key]=" & Key
Dim cmd1 As New OleDbCommand(sql, con)
da = New OleDbDataAdapter(cmd1)
Dim cmdb As New OleDbCommandBuilder(da)
cmdb.QuotePrefix = "["
cmdb.QuoteSuffix = "]"
da.Update(ds.Tables("EmployeeRecord"))
sql = "SELECT * FROM processesrecord WHERE [Key]=" & Key
cmd1 = New OleDbCommand(sql, con)
da = New OleDbDataAdapter(cmd1)
cmdb = New OleDbCommandBuilder(da)
cmdb.QuotePrefix = "["
cmdb.QuoteSuffix = "]"
da.Update(ds.Tables("ProcessRecord"))
con.Close()
我如何解决这个问题?