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

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

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 & "datawd.mdb;Persist Security Info=False"
    Adodc1.RecordSource = sql
    Adodc1.Refresh
    Exit Sub
error:
End Sub

可以用过打开连接，执行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

conn.execute "delete * from 表"
解决

用控件不能一次删除全部的数据,可以用循环,一条一条删除,直到删完.
用adodb对象的execute方法可以一次删除所有的数据.