如何在vb代码段中实现讲已有的 access数据库中的内容全部删除，也就是在代码段中用语言实现清空某数据库？

Question

用下面的SQL语句：
"delete from YourTableName"

Answer 1

楼上正确
delete from 表名

Answer 2

delete from 表名
delete data from tables one by one

Answer 3

如果用ADO的话，可以用Command执行一个SQL语句，该语句为"delete from [TableName]",然后再将该Command与SQL连接，最后调用Command的Excute方法。

Answer 4

同上
sql语句
delete from TableName

Answer 5

dim gLocMDB_DBCN              As New ADODB.Connection/*gLocMDB_DBCN 初始化如下
Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID="你的登录用户名";Data Source=Path + *.MDB;Mode=ReadWrite;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False
*/
gLocMDB_DBCN.execute yourSql 就可以对你本地access的表进行操作了.

Answer 6

说明一下:
上面的环境在win2000 server,access2000,vb6 运行良好!

Answer 7

Sub DeleteTableRecord(strDatabaseFileName As String, strTableName As String)
    Dim Ws As Workspace
    Dim Db As Database
    Set Ws = DBEngine.Workspaces(0)
    Set Db = Ws.OpenDatabase(strDatabaseFileName)
    Db.Execute ("Delete From " & strTableName)
    Db.Close
    Ws.Close
    Set Db = Nothing
    Set Ws = Nothing
End Sub