Contoh Properti Urutkan (Visual Basic)
Contoh ini menggunakan properti Sortir objek Recordset untuk menyusun ulang baris Recordset yang berasal dari tabel Penulis database Pub. Utilitas sekunder rutin mencetak setiap baris.
'BeginSortVB
'To integrate this code
'replace the data source and initial catalog values
'in the connection string
Public Sub Main()
On Error GoTo ErrorHandler
' connection and recordset variables
Dim Cnxn As New ADODB.Connection
Dim rstAuthors As New ADODB.Recordset
Dim strCnxn As String
Dim strSQLAuthors As String
Dim strTitle As String
' Open connection
Set Cnxn = New ADODB.Connection
strCnxn = "Provider='sqloledb';Data Source='MySqlServer';" & _
"Initial Catalog='Pubs';Integrated Security='SSPI';"
Cnxn.Open strCnxn
' open client-side recordset to enable sort method
Set rstAuthors = New ADODB.Recordset
rstAuthors.CursorLocation = adUseClient
strSQLAuthors = "SELECT * FROM Authors"
rstAuthors.Open strSQLAuthors, Cnxn, adOpenStatic, adLockReadOnly, adCmdText
' sort the recordset last name ascending
rstAuthors.Sort = "au_lname ASC, au_fname ASC"
' show output
Debug.Print "Last Name Ascending:"
Debug.Print "First Name Last Name" & vbCr
rstAuthors.MoveFirst
Do Until rstAuthors.EOF
Debug.Print rstAuthors!au_fname & " " & rstAuthors!au_lname
rstAuthors.MoveNext
Loop
' sort the recordset last name descending
rstAuthors.Sort = "au_lname DESC, au_fname ASC"
' show output
Debug.Print "Last Name Descending"
Debug.Print "First Name Last Name" & vbCr
Do Until rstAuthors.EOF
Debug.Print rstAuthors!au_fname & " " & rstAuthors!au_lname
rstAuthors.MoveNext
Loop
' clean up
rstAuthors.Close
Cnxn.Close
Set rstAuthors = Nothing
Set Cnxn = Nothing
Exit Sub
ErrorHandler:
' clean up
If Not rstAuthors Is Nothing Then
If rstAuthors.State = adStateOpen Then rstAuthors.Close
End If
Set rstAuthors = Nothing
If Not Cnxn Is Nothing Then
If Cnxn.State = adStateOpen Then Cnxn.Close
End If
Set Cnxn = Nothing
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Sub
'EndSortVB
Ini adalah rutinitas utilitas sekunder yang mencetak judul yang diberikan, dan konten Recordset yang ditentukan.
Attribute VB_Name = "Sort"
Lihat juga
Saran dan Komentar
https://aka.ms/ContentUserFeedback.
Segera hadir: Sepanjang tahun 2024 kami akan menghentikan penggunaan GitHub Issues sebagai mekanisme umpan balik untuk konten dan menggantinya dengan sistem umpan balik baru. Untuk mengetahui informasi selengkapnya, lihat:Kirim dan lihat umpan balik untuk