如何利用SQL中的Delete语句删除数据(Access)

[yoyodd]

如何利用SQL中的Delete语句删除数据(Access)
表 student

[ZQY801105]

Delete from student
注意：要加上from,这是access与SQL Server的不同之处!
试试吧，老兄，祝你好运!
对了，别忘了给分呀!

[SoHo_Andy]

'删除整个表
Sub DropX2()
Dim dbs As Database
'在您的计算机中修改此行使其正确指到 Northwind 的路径。
Set dbs = OpenDatabase("Northwind.mdb")
' 删除员工表。
dbs.Execute "DROP TABLE Employees;"
dbs.Close
End Sub

'删除记录的两个例子
1、
Public Sub DeleteX()
Dim rstRoySched As ADODB.Recordset
Dim strCnn As String

strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "

Set rstRoySched = New ADODB.Recordset
rstRoySched.CursorLocation = adUseClient
rstRoySched.CursorType = adOpenKeyset
rstRoySched.LockType = adLockOptimistic

rstRoySched.Open "SELECT * FROM roysched " & _
"WHERE royalty = 20", strCnn, , , adCmdText

' Delete the record.
rstRoySched.Delete
rstRoySched.Update

rstRoySched.Close

End Sub
2、
Public Sub DeleteX()
Dim cnn As ADODB.Connection
cnn.Open "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
cnn.execute "delete form 表 where id=2"

End Sub

[SoHo_Andy]

在Access中删除记录
不加where 条件语句则删除表中全部内容
Sub DeleteX()

Dim dbs As Database, rst As Recordset

' 在您的计算机中修改此行使其正确指到 Northwind 的路径。
Set dbs = OpenDatabase("Northwind.mdb")

' 删除员工职称为 Trainee 的员工记录。
dbs.Execute "DELETE * FROM " _
& "Employees WHERE Title = 'Trainee';"

dbs.Close

End Sub

[303]

楼上三位都说了，还不可以吗？

[yoki]

conn.execute "delete from students"

[aoenzh]

Dim conn As ADODB.Connection
conn.Open "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "

conn.execute "delete from students"

[dengyiwolf]

delete from students (删除整个表的记录)
delete from students where student_ID='' (删除满足条件的记录)

[leecooper0918]

'truncate table tablename' is much faster than 'delete from tablename'.

[yoyodd]

我用jet数据源
我要用delete删除一个name='cjx'的记录
如何执行啊？

[cloudtarget]

http://expert.csdn.net/Expert/topic/2098/2098925.xml?temp=.3121912