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

Question

库名：ziliao
表：姓名 年龄 性别
    小王 20    男
    小陈 21    男
    小张 22    女
    ...  ..    ..
    小李 21    女
我想删除最后1条记录 也就是小李这一样 请问该怎么做

Answer 1

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))
用以個臨時表來增加標記列
反正你也不改表結構 那我也只要用一個方法混一下分

Answer 2

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