如何删除access数据表中的最后一行记录

[minlove99]

最后一行记录的id号最大，可不可以根据id号来对其删除？

[night_song]

rs.movelast

[minlove99]

能详细的说下吗？

[dsclub]

delete * from [TableName] where [id] = (select max([id]) from [TableName])

[ycted]

就用max(id)来判断他的最大ID号.

[dsclub]

1、执行SQL语句直接删除
Set Conn = Server.CreateObject("ADODB.CONNECTION")

With Conn
.ConnectionString = "..."
.Open
.Execute("delete * from [TableName] where [id] = (select max([id]) from [TableName])")
.Close
End With

Set Conn = Nothing

2、利用ADO对象
Set Conn = Server.CreateObject("ADODB.CONNECTION")

With Conn
.ConnectionString = "..."
.Open
End With

Set RS = server.CreateObject("ADODB.RECORDSET")
With RS
.Open "[TableName", Conn, 1, 3
.MoveNext
.Delete
.Update
.Close
End With

Set RS = Nothing

Conn.Close
Set Conn = Nothing

[night_song]

set rs=server.createobject("adodb.recordset")
sqlstr= "select * from talbe "
rs.open sqlstr,conn,1,3
if rs.eof or rs.bof then
response.Write("空数据！")
else
rs.movelast
delsqlstr= "DELETE from CCIC where PERSONAL_ID = '"&rs("随便一个字段")&"'"
conn.Execute delsqlstr
end if

[kingapex1]

delete * from [TableName] where [id] = (select max([id]) from [TableName])


同意