ADO でデータソート

  ADODB.Recordset



  
<SCRIPT language=VBSCript>

	Const adVarChar = 200

	Dim Rs

	Set Rs = CreateObject("ADODB.Recordset")
	Rs.Fields.Append "ソートキー", adVarChar,255
	Rs.Fields.Append "ソートデータ", adVarChar,255
	Rs.Open

	Rs.AddNew
	Rs.Fields("ソートキー").value = "C"
	Rs.Fields("ソートデータ").value = "山田"
	Rs.Update

	Rs.AddNew
	Rs.Fields("ソートキー").value = "A"
	Rs.Fields("ソートデータ").value = "田中"
	Rs.Update

	Rs.AddNew
	Rs.Fields("ソートキー").value = "B"
	Rs.Fields("ソートデータ").value = "鈴木"
	Rs.Update

	Rs.Sort = "ソートキー"

	Rs.MoveFirst

	Do while not Rs.EOF

		document.write Rs.Fields("ソートキー").value & " : "
		document.write Rs.Fields("ソートデータ").value & "<BR>"

		Rs.MoveNext

	Loop

	Rs.Close

	Set Rs = Nothing

</SCRIPT>
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加




SQLの窓  天気  IT用語辞典
Yahoo!ニュース  マルチ辞書
PHP マニュアル  Google URL短縮 


フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ