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

如果你在程序中使用了任何数据库对象（DAO, RDO, 或者 ADO), 在退出程序之前，你必须确认已经关闭掉了所有已经打开的记录、数据库和数据工作台（recordsets, databases, and workspaces）。虽然退出程序时这些对象的指针都被自动施放了，但是如果你自己又不能确认是否真正地释放了打开的数据库对象，那么就有可能数据库连接没有马上被释放掉，从而被这些对象所占用的内存就再也不能被 *** 作系统再次分配。---- 下面有一段放在Form_Unload 事件（或者其他退出模块中）中的一小段代码例子，它演示了关闭所有打开的DAO 工作台、数据库和记录并释放了被这些对象占用的内存。当你退出FORM时，不论在有一个、100个甚至没有数据库连接时都可以使用下面代码。Private Sub Form_Unload(Cancel As Integer)' 关闭数据库对象并且释放内存

你是关闭本地的，又没有立即关闭远程Server上的，他是个pip协议对等试的连接，打个比方，两个电脑要共享一个文件夹，不能说直接用一台电脑配好就可以看吧，要设置共享协议。

这边释放关闭连接不代表就更新了另一台电脑，他还是在判断有无连接响应，这就是为什么连接多了会形成“死锁”。

---