vb中怎么通过adodc删除数据库表中的所有数据

Question

通过adodc连接access数据为，怎么删除数据库中表里的全部数据，谢谢

Answer 1

VB通过Sql结构化查询语句中Delete子句，赋值给Adodc数据控件的RecordSource 属性，来执行删除数据库一个表的所有记录。

RecordSource 属性，返回或设置Data控件的基本表、SQL语句。

SQL 语句：

SQL 中的以关键字打头、完整描述一个操作的完整的短语。例如：SELECT * FROM Orders。SQL 语句不应和语句混淆。

以下是删除wd.mdb数据库的jishijilu记录表的所有记录的代码：

Private Sub Command1_Click()
    Dim sql As String
    On Error GoTo error
    sql = "delete * from jishijilu"
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\wd.mdb;Persist Security Info=False"
    Adodc1.RecordSource = sql
    Adodc1.Refresh
    Exit Sub
error:
End Sub

Answer 2

adodc也可以一次性删除。废话不多说，贴上代码：
Private Sub Command4_Click()
Adodc2.Recordset.MoveFirst
While Adodc2.Recordset.RecordCount > 0
Adodc2.Recordset.Delete
Adodc2.Recordset.MoveNext
Wend
End Sub
望采纳！你也可以不放在按钮里  放form load里面。

Answer 3

可以用过打开连接，执行SQL语句来删除,
假设你前面执行的select * form tablea
那么后面你一样可以执行delete tablea
只是执行的结果不可读。

贴一个代码给你看看，不是我写的
Dim CNN As New ADODB.Connection
Dim RST As New ADODB.Recordset
Dim SQL As String

Private Sub Command1_Click()
CNN.ConnectionString = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\\VBExercise\\DataBase\\test.mdb;Persist Security Info=False\"
SQL = \"delete from Student where id=1\"
RST.Open SQL, CNN.ConnectionString, adOpenKeyset, adLockPessimistic
cnn.close
rst.close

Answer 4

用控件不能一次删除全部的数据,可以用循环,一条一条删除,直到删完.

用adodb对象的execute方法可以一次删除所有的数据.

Answer 5

conn.execute "delete * from 表"
解决