编程论坛
400万+工程师在用
华为|鸿蒙开发者日
直播报名
400万+工程师在用
华为|鸿蒙开发者日
直播报名

电子发烧友网工程师

17年用户 16436经验值
擅长:可编程逻辑 MEMS/传感技术 测量仪表 模拟技术 控制/MCU RF/无线
私信 关注

Sort 属性范例 (VB)

2009-1-8 10:24

<p><font face="Verdana">Sort 属性范例 (VB)</font></p><font face="Verdana">
<p><br/>本范例使用 Recordset 对象的 Sort 属性来调整 Recordset 行的顺序,该 Recordset 来自 Pubs 数据库的 Authors 表。辅助实用程序例程将打印每一行。</p>
<p><br/>Sub Main()<br/>&nbsp;&nbsp;&nbsp; SortX<br/>End Sub</p>
<p>Public Sub SortX()<br/>Dim cnn As New ADODB.Connection<br/>Dim rst As New ADODB.Recordset</p>
<p>rst.CursorLocation = adUseClient<br/>cnn.Open "DSN=Pubs;Provider=MSDASQL;uid=sa;pwd=;"<br/>rst.Open "SELECT * FROM Authors", cnn, _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; adOpenStatic, adLockReadOnly, adCmdText<br/>SortXprint "Initial Order", rst</p>
<p>rst.Sort = "au_lname ASC, au_fname ASC"<br/>SortXprint "Last Name Ascending", rst</p>
<p>rst.Sort = "au_lname DESC, au_fname ASC"<br/>SortXprint "Last Name Descending", rst</p>
<p>rst.Close<br/>cnn.Close<br/>End Sub</p>
<p>下面是打印指定 Recordset 中给定标题和内容的辅助实用程序例程。</p>
<p>Public Sub SortXprint ( title As String, rstp As ADODB.Recordset )<br/>debug.Print "---------------" &amp; title &amp; "---------------" <br/>Debug.Print "First Name&nbsp; Last Name" &amp; vbCr &amp; _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "---------------------------------------------------"<br/>rstp.MoveFirst<br/>While Not rstp.EOF<br/>&nbsp;&nbsp;&nbsp; Debug.Print rstp!au_fname &amp; " " &amp; rstp!au_lname <br/>&nbsp;&nbsp;&nbsp; rstp.MoveNext<br/>Wend<br/>Debug.Print <br/>End Sub</p>
<p></font>&nbsp;</p>

更多回帖

打开APP