Sort
ソート
文法
Recordsetオブジェクト.Sort [ = "Name Type"]
パラメータ
Name : フィールド名
Type : 昇順(既定値)/降順
機能説明
Recordsetオブジェクトのソート設定
複数指定時は「,」で区切ります。
事前にCursorLocationプロパティにadUseClientを設定する必要あり。
使用例
<![CDATA[
<%
Dim objConn, objRs, i
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open = "sample"
Set objRs = Server.CreateObject("ADODB.Recordset")
objRs.CursorLocation = adUseClient
objRs.Open "select * from test"
objRs.Sort = "name desc"
'項目名表示
Response.Write "<table border=1>" & vbCrLf
Response.Write "<tr>" & vbCrLf
For i = 0 to objRs.Fields.Count - 1
Response.Write "<th>" & objRs.Fields(i).Name & "</th>" & vbCrLf
Next
Response.Write "</tr>" & vbCrLf
'データ表示
Do until objRs.EOF
Response.Write "<tr>" & vbCrLf
For i = 0 to objRs.Fields.Count - 1
Response.Write "<td>" & objRs(i) & "</td>" & vbCrLf
Next
Response.Write "</tr>" & vbCrLf
objRs.MoveNext
Loop
Response.Write "</table>" & vbCrLf
'オブジェクトを閉じる
objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
%>
]]>
Topへ