重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Try
成都创新互联公司从2013年开始,先为广宗等服务建站,广宗等地企业,进行企业商务咨询服务。为广宗企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
'先标记表中行状态为删除,不能使用Clear方法,此方法会将dataset.table中所有行清除
for each dr as datarow in DataDataSet.Tables("recip").Rows
dr.delete
next
‘然后更新
'注意使用此方法更新必须保存数据表中包含索引
RecipTableAdapter.Update(DataDataSet,"recip")
’然后再AcceptChanges,此动作必须在Update之后
DataDataSet.Tables("recip").AcceptChanges()
Catch ex As Exception
MessageBox.Show(ex.Message, "系统提示", MessageBoxButtons.OK)
End Try
办法很多 第一个是遍历界面所有控件 第二将控件放到一个容器中也在遍历容器 不同意写过程
方法有多种。
可以dataAdapter.Fill到数据表应该,设置几个command,再通过dataAdapter.Update就可以更新数据了。不过表要有一个关键的key吧。
另外一种直观一点:
也需要表有个关键key有就是关键字段。
你datagridview.reomveAt(index)同时执行sqlcommand("delete * From table where keyFild='" key "'")就可以。
参考一个实例,如下:
Private Sub bitDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bitDelete.Click
Dim oraConn As New OracleConnection()
oraConn.ConnectionString = " data source=数据库名字;user id=账号;password=密码"
oraConn.Open()
Dim id As String = DataGridView1.CurrentRow.Cells(0).Value.ToString().Trim()
Dim queryString = "delete from t where id ='" id号 "'"
Dim adapter As OracleDataAdapter = New OracleDataAdapter(queryString,oraConn)
Dim mark As DataSet = New DataSet
adapter.Fill(mark, "Mark")
MessageBox.Show("删除数据成功!")
Dim adapter As OracleDataAdapter = New OracleDataAdapter("select * from t ORDER BY id", oraConn)
Dim score As DataSet = New DataSet()
adapter.Fill(score , "Score ")
DataGridView1.DataSource = score
DataGridView1.DataMember = score .Tables(0).ToString
oraConn.Close()
End Sub