数据更新的问题。在线等
prok 2003-10-29 10:26:00 我想修改表里的某一个值,在dataset里修改成功了。可是更新数据库时报错。“并发错误”高手指点多谢了!代码:
Dim cn As New OleDbConnection()
dim sql as string="select * form abc"
cn.ConnectionString = "provider= microsoft.jet.oledb.4.0;data source=e:\db1.mdb"
Dim cmd As New OleDbCommand(sql, cn)
cn.Open()
Dim dr As New OleDbDataAdapter(sql, cn)
Dim cmdup As New OleDbCommandBuilder(dr)
Dim rs As New DataSet()
dr.Fill(rs, "1")
rs.Tables("1").Rows(2).Item(0) = "aaa"
dr.UpdateCommand = cmdup.GetUpdateCommand
f1.ComboBox1.Items.Add(rs.Tables("1").Rows(2).Item(0))
dr.Update(rs, "1")
cn.Close()