如何清空数据库表？

Question

data1.databasename="c:\a.mdb"
data1.recordsource="a"
怎样清空表A，以及删除它？
谢谢！

Answer 1

'清空表A
Do While Not Data1.Recordset.EOF
Data1.Recordset.Delete
Data1.Recordset.MoveNext
Loop

Answer 2

清空表A
delete from A;
删除表忘了

Answer 3

不好意思，我刚学VB，DELETE应该写在哪里？怎么写？

Answer 4

你是用DATA控件还是ADO控件
DATA用上面的就可以删除所有记录了

Answer 5

'删除表A
Data1.Database.Execute ("drop table a")

Answer 6

Dim cat As New ADOX.Catalog
Private Sub deletetable_Click(Index As Integer)
Dim x As Integer
x = list1.ListIndex
If list1.ListCount < 2 Then
    MsgBox "You can't delete the table"
    Exit Sub
Else:
    cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & dataname
    cat.Tables.Delete list1.text
    cat.Tables.Refresh
End If
If x = list1.ListCount - 1 Then
    list1.RemoveItem x
    list1.ListIndex = 0
Else:
    list1.RemoveItem x
    list1.ListIndex = x
End If
DataGrid1.Refresh
End Sub
表名在list1.text中.

Answer 7

With objRs 
.moveFriest
While Not .EOF
.Delete
.MoveNext
Wend
End With

Answer 8

"DELETE FROM 表 WHERE [条件]" 删除表中满足条件的所有记录，但该表依然存在；
"DROP TABEL 表" 将从当前数据库中删除指定的表，当然里面的内容也不复存在了。 以上语句在 DAO 和 ADO 中通用！
例如: 
'用 DAO 来操作
Dim OpenDB As Database
Dim cSql As StringSet OpenDB = DBEngine.Workspaces(0).OpenDatabase([数据库路径及名称], False, False, "MS Access;PWD=" + [数据密码])
cSql = "DELETE FROM tablename WHERE [条件]"   '删除指定表中满足条件的记录
OpenDB.Execute cSql'...
'用 ADO 来操作
Dim adoCnn As ADODB.Connection
Dim CnnStr As String
CnnRst = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" + [Access97、Access2000 数据库路径及名称] + " ;Persist Security Info=False;Jet OLEDB:Database Password=" + [数据库密码]
With adoCnn
     If .State = adStateOpen Then .Close
    .ConnectionString = CnnStr
    .Open
    If .State = adStateOpen Then
'   数据库打开成功
'   ...
       cSql = "DROP TABLE tablename"
      .Execute cSql, , adCmdText + adExecuteNoRecords  '删除指定表
    Else
'   数据库打开失败
'   ...
    End If
'说明：Microsoft.Jet.OLEDB.3.51  只支持 Access97，不支持 Access2000
'      Microsoft.Jet.OLEDB.4.0 不仅支持 Access97，也支持 Access2000
End With

Answer 9

1.清空With Data1.RecordSet
Do While Not .EOF
   .Delete
   .MoveNext
Loop
或者用sql的delete * from a 2.删除 
sql的 drop table a

Answer 10

truncate table <tablename>