VB 怎样对ACCESS数据库排序
我想不用SQL行吗只想把DATA1的数据第4列,从第大到小顺序显示到MSFLEXGRID1中。。帮帮我吧~~~...
我想不用SQL行吗
只想把DATA1的数据第4列,从第大到小顺序显示到MSFLEXGRID1中。。
帮帮我吧~~~ 展开
只想把DATA1的数据第4列,从第大到小顺序显示到MSFLEXGRID1中。。
帮帮我吧~~~ 展开
展开全部
1、select * from table order by 字段 desc
这是按此字段的降序排.
2、select * from table order by 字段 asc
这是按升序排.
3、举个例子:
Public Sub SortX()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
rst.CursorLocation = adUseClient
cnn.Open "DSN=Pubs;Provider=MSDASQL;uid=sa;pwd=;"
rst.Open "SELECT * FROM Authors", cnn, _
adOpenStatic, adLockReadOnly, adCmdText
SortXprint "Initial Order", rst
rst.Sort = "au_lname ASC, au_fname ASC"
SortXprint "Last Name Ascending", rst
rst.Sort = "au_lname DESC, au_fname ASC"
SortXprint "Last Name Descending", rst
rst.Close
cnn.Close
End Sub
再将rst写入新表,删除原表,将新表定为原表名即可
这是按此字段的降序排.
2、select * from table order by 字段 asc
这是按升序排.
3、举个例子:
Public Sub SortX()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
rst.CursorLocation = adUseClient
cnn.Open "DSN=Pubs;Provider=MSDASQL;uid=sa;pwd=;"
rst.Open "SELECT * FROM Authors", cnn, _
adOpenStatic, adLockReadOnly, adCmdText
SortXprint "Initial Order", rst
rst.Sort = "au_lname ASC, au_fname ASC"
SortXprint "Last Name Ascending", rst
rst.Sort = "au_lname DESC, au_fname ASC"
SortXprint "Last Name Descending", rst
rst.Close
cnn.Close
End Sub
再将rst写入新表,删除原表,将新表定为原表名即可
展开全部
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询