vb.net数据清楚 vba清除数据的代码

帮忙修改vb net 清空数据库代码

Try

成都创新互联公司从2013年开始，先为广宗等服务建站，广宗等地企业，进行企业商务咨询服务。为广宗企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。

'先标记表中行状态为删除，不能使用Clear方法，此方法会将dataset.table中所有行清除

for each dr as datarow in DataDataSet.Tables("recip").Rows

dr.delete

‘然后更新

'注意使用此方法更新必须保存数据表中包含索引

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

文章名称：vb.net数据清楚 vba清除数据的代码
文章出自：http://cdiso.cn/article/doghhhg.html