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.0Data Source=" & App.Path & "\data\wd.mdbPersist Security Info=False"

    Adodc1.RecordSource = sql

    Adodc1.Refresh

    Exit Sub

error:

End Sub

用sql语句的删除命令：delete from （表名） where （条件）

举例如下：（最好系统学一下，因为不知道你用的什么方法进行vb *** 作）

（我为推荐一本书，电大的计算机大专计算机信息方向的《VB程序设计》刘世峰编，通学习你一切都通了）

Private Sub Command1_Click()

'定义字符

Dim strSQL As String

'定义一个整型变量

Dim i As Integer

i = MSHFlexGrid1.Row

'处理无记录行

If MSHFlexGrid1.TextMatrix(i, 1) = "" Then

MsgBox "请选择一个记录！", vbQuestion + vbOKOnly, "信息提示"

Exit Sub

End If

'编定SQ查询语句

strSQL = "Delete From 通讯簿 "

strSQL = strSQL + "Where 姓名='" + MSHFlexGrid1.TextMatrix(i, 1) + "'"

'提示用户要谨慎删除

If MsgBox("是否要删除，请慎重！", vbQuestion + vbOKCancel, "信息提示") = vbOK Then

'执行删除命令

ADOcn.Execute strSQL

End If

DisplayGrid1

End Sub

---