如何删除表中最后1条记录

[cqy1986842]

库名：ziliao
表：姓名 年龄 性别
小王 20 男
小陈 21 男
小张 22 女
... .. ..
小李 21 女


我想删除最后1条记录 也就是小李这一样 请问该怎么做

[cqy1986842]

谢谢

[cqy1986842]

我的表没有索引 姓名中没有相同的

[cqy1986842]

出现错误:缺少更新或刷新的键列信息

[mustudent]

Select IDENTITY(int,0,1) as 'id',* Into #Ds From TableName
Delete From TableName Where Col1=(Select Col1 From #Ds WHere id=(Select Max(id) From #Ds))
用以個臨時表來增加標記列
反正你也不改表結構 那我也只要用一個方法混一下分

[of123]

dim cn as new adodb.connection, rs as new adodb.recordset

cn.open "provider=microsoft.jet.oledb.4.0;data source=ziliao.mdb;"
rs.open "select * from 表", cn, adOpenKeyset, adLockOptimistic
rs.movelast
rs.delete

[KrisCn]

还是加个索引吧