VB中怎样清空数据库？？？

一楼的sql语句语法错误。。。

'''引用 MS ActiveX Data Objects 2.5 Library

Option Explicit

Private Sub Command1_Click() '按钮

Dim Con As Connection

Set Con = New Connection

Con.ConnectionString = "Provider=Microsoft.jet.oledb.4.0data source=D:\db1.mdb" '数据库改为你自己的，如果是sql字符串不同要注意下

Con.Open '打开数据库

Con.Execute ("delete from tb") 'tb改为你要清空的表名

If Con.State = adStateOpen Then Con.Close '关闭数据库连接

Set Con = Nothing

End Sub

首先我们打开一个工作样表作为例子。

excel中使用vba清除工作表内容

使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

Option Explicit

Sub ddt()

'ActiveCell.CurrentRegion.Select

'Range(ActiveCell.End(xlUp), ActiveCell.End(xlDown)).Select

Range("A1").ClearContents '清除活动工作表上单元格A1中的内容

Selection.ClearContents '清除选定区域内容

Range("A1:D4").Clear

End Sub

excel中使用vba清除工作表内容

前两句代码是选择有数据内容的单元格，我做了注释标签，在代码中不运行。这里我先做一个简单的实例。使用range函数并选择了a1单元格，然后使用clearcontents命令来清除掉a1单元格中的内容。

excel中使用vba清除工作表内容

第二行代码是指选取单元格区域后运行宏，则清除掉所选区域的内容。

excel中使用vba清除工作表内容

最后一行代码更明晰，首先设定单元格区域为a1：d4，然后使用clear命令清除单元格包括格式在内的所有数据，这也是clear和clearcontents的区别。

excel中使用vba清除工作表内容

实际 *** 作一下，我现在把单元格中的字体修改为华文琥珀，并将字号设置为72，这时候单元格格式发生了变化，我使用clearcontents对单元格进行清除内容并不会更改单元格的格式。

excel中使用vba清除工作表内容

而使用clear命令清除内容，单元格格式会恢复成默认值。

excel中使用vba清除工作表内容

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

---