select * from table order by 字段 desc 是按此字段的降序排select * from table order by 字段 asc 是按升序排
数据库中的数据没有什么先后关系,般来说都是在程序读取时加上排序的select * from yourtalbe order by field1 从小到大排asc(默认的,不加也行),大到小desc,如上面的就是从小到大 select * from yourtalbe order by field1 desc /-从大到小-/
select * from table order by 字段 desc 是按此字段的降序排select * from table order by 字段 asc 是按升序排
看来是各位误解我的意思了,我是想在Access表内部把数据重新排序(重新排列)
其实我是想整理一下数据表,因为自己平时浏览的时候都是在Access中完成的,请教各位!!
Public Sub SortX() Dim cnn As New ADODB.Connection Dim rst As New ADODB.Recordsetrst.CursorLocation = adUseClient cnn.Open "DSN=Pubs;Provider=MSDASQL;uid=sa;pwd=;" rst.Open "SELECT * FROM Authors", cnn, _ adOpenStatic, adLockReadOnly, adCmdText SortXprint "Initial Order", rstrst.Sort = "au_lname ASC, au_fname ASC" SortXprint "Last Name Ascending", rstrst.Sort = "au_lname DESC, au_fname ASC" SortXprint "Last Name Descending", rstrst.Close cnn.Close End Sub 再将rst写入新表,删除原表,将新表定为原表名即可
是按此字段的降序排select * from table order by 字段 asc
是按升序排
select * from yourtalbe order by field1 desc /-从大到小-/
是按此字段的降序排select * from table order by 字段 asc
是按升序排
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordsetrst.CursorLocation = adUseClient
cnn.Open "DSN=Pubs;Provider=MSDASQL;uid=sa;pwd=;"
rst.Open "SELECT * FROM Authors", cnn, _
adOpenStatic, adLockReadOnly, adCmdText
SortXprint "Initial Order", rstrst.Sort = "au_lname ASC, au_fname ASC"
SortXprint "Last Name Ascending", rstrst.Sort = "au_lname DESC, au_fname ASC"
SortXprint "Last Name Descending", rstrst.Close
cnn.Close
End Sub
再将rst写入新表,删除原表,将新表定为原表名即可