Tehnik Mengurutkan Data Dengan Ascending dan Descending di VB6

Pada artikel kali ini Saya akan membagikan sebuah tehnik mengurutkan data dalam sebuah Database. Dalam merancang sebuah program biasanya miliki tehnik pengurutan data yang berbeda-beda, Salah satu tehnik pengurutan data yang kita bahas disini adalah pengurutan data secara Ascending dan Descending.Pengurutan data secara Ascending adalah mengurutkan data dari urutan terkecil ke besar sedangkan Descending adalah kebalikannya yaitu tehnik mengurutkan data dari urutan terbesar ke kecil.

Berikut dibawah ini adalah hasil contoh pengurutan Data secara Ascending dan Descending yang saya sudah buat :

Ouput pengurutan Data secara ASC dan DESC

Lalu bagiamana prakteknya pengurutan tersebut dalam sebuah Database, yuk ikutilah langkah langkah dibawah ini :

1. Pastikan Anda membuat Databasenya terlebih dahulu  disini saya menggunakan dengan nama Database "Penjualan" dengan nama Tabelnya "Tbl_Penjualan"

2. Buka Form VB6S standar EXE

3. Kemudian aktifkan Microsoft ActiveX Data Oject 2.6 Library dengan cara tekan Project >> Reference >> Ceklist Microsoft ActiveX Data Oject 2.6 Library >> OK

4. Tambahkan 1 Datagrid dan 2 Commandbutton Dalam Form

5. Desainlah seperti gambar output diatas

6. Setelah semua terpenuhi langkah-langkah diatas copy kode dibawah ini :

Option Explicit

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Private Sub Command1_Click()

Command2.Enabled = True

Command1.Enabled = False

'membuat koneksi baru pada databese Penjualan

Dim cn2 As New ADODB.Connection

Dim rs As New ADODB.Recordset

cn2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Penjualan.mdb;Persist Security Info=False"

cn2.Open

rs.CursorLocation = adUseClient

'mengurutkan data secara Ascending (ASC),menggunakan field Tahun_Penjualan

rs.Open "select * from Tbl_Penjualan order by Tahun_Penjualan asc", cn2, adOpenDynamic, adLockOptimistic

'mengkoneksikan record ke DataGrid

Set DataGrid1.DataSource = rs

End Sub

Private Sub Command2_Click()

Command1.Enabled = True

Command2.Enabled = False

Dim cn3 As New ADODB.Connection

Dim rs As New ADODB.Recordset

'membuat koneksi baru pada databese Penjualan

cn3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Penjualan.mdb;Persist Security Info=False"

cn3.Open

rs.CursorLocation = adUseClient

'mengurutkan data secara Descending (DESC),seleksi Field menggunakan Tahun_Penjualan

rs.Open "select * from Tbl_Penjualan order by Tahun_Penjualan desc", cn3, adOpenDynamic, adLockOptimistic

'mengkoneksikan record ke DataGrid

Set DataGrid1.DataSource = rs

End Sub

Private Sub Form_Load()

Command1.Enabled = False

'mengkoneksikan dan membuka database Penjualan

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Penjualan.mdb;Persist Security Info=False"

cn.Open

rs.CursorLocation = adUseClient

rs.Open "Tbl_Penjualan", cn, adOpenDynamic, adLockOptimistic

'mengkoneksikan record ke DataGrid

Set DataGrid1.DataSource = rs

End Sub

Keterangan kode :

Penjualan adalah nama Databasenya

Tbl_Penjualan adalah nama Tabelnya

Tahun_Penjualan adalah nama Field yang akan di urutkan

Asc dan Desc adalah tehnik pengurutan

Silahkan disesuaikan dengan Database Anda.

Jika Project anda telah dijalankan maka hasilnya seperti gambar diatas

Demikianlah artikel pada hari tentang cara Tehnik Mengurutkan Data Dengan Ascending dan Descending di VB6, semoga bermanfaat buat kita semua.Amin

Selamat mencoba semoga sukses

Related Post: Database Koneksi Database