dim cn as new adodb.connection dim rs as new adodb.recordsetcn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test.mdb" rs.open "select * from table1 order by id",cn do while not rs.eof debug.print rs!fields("id") rs.movenext loop rs.close cn.close set rs=nothing set cn=nothing
使用select * from table1 order by id 搜索出来的数据就按id 进行了排序 还可以加上参数是它升序还是降序
select * from tablename order by aa '升序(默认) select * from tablename order by aa DESC '降序
dim rs as new adodb.recordsetcn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test.mdb"
rs.open "select * from table1 order by id",cn
do while not rs.eof
debug.print rs!fields("id")
rs.movenext
loop
rs.close
cn.close
set rs=nothing
set cn=nothing
搜索出来的数据就按id 进行了排序
还可以加上参数是它升序还是降序
select * from tablename order by aa DESC '降序