Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim sql As String Set cn = New ADODB.Connection cn.Open "provider=microsoft.jet.oledb.4.0;data source=E:\分数\成绩表.mdb;" sql = "select * from 成绩" Set rs = New ADODB.Recordset rs.Open sql, cn, adOpenForwardOnly, adLockOptimistic'请在这里添加代码rs.Close cn.Close Set rs = Nothing Set cn = Nothing
select count(*) from tablename
(2)
delete * from table where id not in (select top 115 id from tablename orfer by id desc)
delete * from tablename where id not in (select top 115 id from tablename order by id desc)
2.不太明白意思.如果是116条记录,是保留从第二条开始的115条记录,还是仅保留最后一条记录. 亦或其它?
Dim rs As ADODB.Recordset
Dim sql As String
Set cn = New ADODB.Connection
cn.Open "provider=microsoft.jet.oledb.4.0;data source=E:\分数\成绩表.mdb;"
sql = "select * from 成绩"
Set rs = New ADODB.Recordset
rs.Open sql, cn, adOpenForwardOnly, adLockOptimistic'请在这里添加代码rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
你这不是问问题了,是求购代码了。