<< Sebelumnya : Show Detail Data
Nah ini dia hal yang paling penting disetiap aplikasi berbasis database. Pencarian data sangatlah penting untuk menemukan data untuk kemudian dimanipulasi dengan DML atau membantu user untuk menemukan data spesifik berdasarkan kriteria yang diharapkan. Hal ini sangat berguna ketika data yang ada berjumlah cukup besar. Berikut ini akan aku berikan sebuah contoh sederhana program untuk pencarian data dengan menggunakan bahasa VB.NET di ASP.NET. Sebagaimana pada tulisanku yang sebelumnya database yang akan digunakan masih sama yaitu database dbMusic.mdb.
Yang paling penting pada pembahasan ini adalah metode pencarian yang digunakan. Berikut ada merupakan sebuah fungsi yang akan digunakan untuk melakukan proses pencarian data. Source codenya adalah sebagai berikut :
Sub cariData(Sender as Object, e as eventargs)
dim operatorPilihan as String
dim jenisUrut as String
dim fieldData as String
if cbUrut.Checked then
jenisUrut=” Desc”
else
jenisUrut=” Asc”
end if
Select case ddlNumber.SelectedItem.Value
case “Sama Dengan”
operatorPilihan=” =”
case “Lebih Kecil Dari”
operatorPilihan=” <"
case “Lebih Besar Dari”
operatorPilihan=” >”
case “Tidak Sama Dengan”
operatorPilihan=” <>“
end Select
fieldData=”cdPrice”
dim kriteriaPilih as String = txtKriteria.Text
‘Mulai koneksi ke database
try
BukaKoneksi()
dim strSql as String = “select * From tblCd Where ” _
& fieldData & operatorPilihan & ” ” & kriteriaPilih & ” Order By ” & fieldData & jenisUrut
‘Pilih data dari table menggunakan Command
dbCommand = New OleDBCommand(strSql,dbConn)
‘Ambil data yang diambil menggunakan dbCommand dan masukkan ke dbReader
dbReader = dbCommand.ExecuteReader()
‘Tampilkan data ke Datagrid
dgCD.DataSource = dbReader
dgCD.DataBind()
dbReader.Close()
dbConn.Close()
catch
lblPilih.Text=”Silihkan Periksa Kriteria Pilihan Anda”
end try
End Sub
Pada saat fungsi tersebut diproses pertama kali program akan mengecek apakah user memilih checkbox atau tidak. Jika dipilih maka data yang ditampilkan secara Descending (Dari harga besar ke terkecil) dan kebalikanya jika tidak. Kemudian program akan memeriksa operator yang digunakan menggunakan select case. Pada contoh diatas juga disertakan sebuah contoh error handling pada ASP.NET yaitu try – catch yang digunakan untuk menghindari program ngambeg (ga mau jalan) ketika terjadi kesalahan. Kemudian program akan berinteraksi dengan database dan data yang dihasilkan akan ditampilkan kedalam datagrid.
Mungkin kamu heran. Lho? kodingnya sedikit banget???. Dan pas tak coba dirumah ga bisa jalan munculnya error : xxxxxx….. xp???? Ya iyalah, kan belum tak bahas semuane hohoho 
. Seperti yang aku sebutin diatas tulisan ini adalah lanjutan dari tulisan sebelum-sebelumnya. Jadi aku ga perlu kan ngulang-ngulang terus pembahasannya… hohoho . Nah langsung saja yaw dari pada ribet ni coding lengkap untuk contoh program diatas :
dim dbConn as OleDbConnection
dim dbCommand as OleDbCommand
dim dbReader as OleDbDataReader
Sub BukaKoneksi()
dbConn = New OleDbConnection( _
“Provider=Microsoft.Jet.OLEDB.4.0;” & _
“Data Source=” & Server.MapPath(“database/dbMusic.mdb”))
dbConn.Open()
End Sub
Sub Page_Load(Sender as Object, e as EventArgs)
if Not(IsPostBack)
BukaKoneksi()
‘Buat string pilih data dari tblCD”
dim strSql as String
strSql = “Select * from tblCD”
‘Pilih data dari table menggunakan Command
dbCommand = New OleDBCommand(strSql,dbConn)
‘Ambil data yang diambil menggunakan dbCommand dan masukkan ke dbReader
dbReader = dbCommand.ExecuteReader()
‘Tampilkan data ke Datagrid
dgCD.DataSource = dbReader
dgCD.DataBind()
dbReader.Close()
dbConn.Close()
End if
End sub
Sub cariData(Sender as Object, e as eventargs)
dim operatorPilihan as String
dim jenisUrut as String
dim fieldData as String
if cbUrut.Checked then
jenisUrut=” Desc”
else
jenisUrut=” Asc”
end if
Select case ddlNumber.SelectedItem.Value
case “Sama Dengan”
operatorPilihan=” =”
case “Lebih Kecil Dari”
operatorPilihan=” <"
case “Lebih Besar Dari”
operatorPilihan=” >”
case “Tidak Sama Dengan”
operatorPilihan=” <>“
end Select
fieldData=”cdPrice”
dim kriteriaPilih as String = txtKriteria.Text
‘Mulai koneksi ke database
try
BukaKoneksi()
dim strSql as String = “select * From tblCd Where ” _
& fieldData & operatorPilihan & ” ” & kriteriaPilih & ” Order By ” & fieldData & jenisUrut
‘Pilih data dari table menggunakan Command
dbCommand = New OleDBCommand(strSql,dbConn)
‘Ambil data yang diambil menggunakan dbCommand dan masukkan ke dbReader
dbReader = dbCommand.ExecuteReader()
‘Tampilkan data ke Datagrid
dgCD.DataSource = dbReader
dgCD.DataBind()
dbReader.Close()
dbConn.Close()
catch
lblPilih.Text=”Silihkan Periksa Kriteria Pilihan Anda”
end try
End Sub
Kriteria harga yang akan dicari :
Mode pengurutan :
Mungkin ada beberapa diantara kamu yang masih ga mudeng dengan beberapa coding diatas bisa belajar lagi pada tulisan saya mengenai ADO.DB – ASP.NET disini.
Nah buat yang uda advance ga ada salahnya kan bagi2 ilmu hi hihi hi Jadi jika ada kritikan atau masukan atau malah pertanyaan silahkan posting dibawah yaw… makasih, semoga membantu
