<< Sebelumnya : Menghapus Data
Pada tulisan sebelumnya telah dijelaskan bagaimana cara menghapus data melalui pilihan didalam DropDownList. Nah sekarang kita akan belajar bagaimana cara menampilkan detail data berdasarkan item yang kita pilih. Jika kamu sudah membaca tulisan sebelumnya, tentu kamu tidak akan kesulitan untuk mempelajari tulisan ini. Karena tulisan ini masih berkaitan dengan tulisan sebelumnya.Untuk menampilkan data disini kita akan menggunakan sebuah pilihan item id dengan menggunakan kontrol DropDownList yang ada di ASP.NET.
Id data akan diambil dari database dan akan ditampilkan kedalam DropDownList yang akan digunakan oleh user untuk memilih baris data yang akan ditampilkan. Didalam form yang kita gunakan juga akan ditambahkan sebuah button untuk memanggil fungsi yang memproses penampilan data. Masih seperti didalam pembahasan sebelumnya kita akan menggunakan panel untuk menampung form penampilan data. Perlu kamu ketahui didalam ASP.NET hanya memperbolehkan satu form untuk pemrosesan. Jadi untuk penggabungan semua proses dari insert data sampai delete, akan saya kupas pada tulisan saya yang berikutnya.
Pertama-tama tambahkan dahulu direktif untuk menyertakan namespace yang akan digunakan sebagai berikut :
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
Pada contoh diatas digunakan namaspace System.Data.OleDb karena kita menggunakan database Ms.Access 2003.
Kemudian tambahkan beberapa variabel untuk permrosesan database sebagai berikut :
dim dbConn as OleDbConnection
dim dbCommand as OleDbCommand
dim dbReader as OleDbDataReader
Keterangan untuk beberapa variabel yang digunakan diatas adalah sebagai berikut :
- dbConn : digunakan untuk menampung koneksi ke database
- dbCommand : digunakan untuk menampung perintah untuk mengakses database
- dbReader : digunakan untuk menampung source data
Untuk koneksi ke database kita menggunakan sebuah prosedur sebagai berikut :
Sub BukaKoneksi()
dbConn = New OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("database/dbMusic.mdb"))
dbConn.Open()
End Sub
Pada kode diatas kita menggunakan OleDbConnection yang merupakan sebuah method untuk melakukan koneksi kedatabase dalam hal ini adalah Ms.Access 2003. Sedangkan beberapa syntax didalam kurung merupakan OleDbProvider dan alamat dari database. Method Open() digunakan untuk membuka koneksi.
Sekarang tambahkan kode berikut untuk mengisi data pada kontrol DropDownList :
Sub MengisiCombo()
cdID.Items.Clear()
BukaKoneksi()
dim strSql as String = “SELECT cdID FROM tblCD ORDER BY cdID”
dbCommand = New OleDbCommand(strSql, dbConn)
dbReader = dbCommand.ExecuteReader()
cdID.DataSource = dbReader
cdID.DataTextField = “cdID”
cdID.DataValueField = “cdID”
cdID.DataBind()
dbReader.Close()
dbConn.Close()
End Sub
Kode diatas akan dipanggil pada saat event Page_Load. Kodenya adalah sebagai berikut :
Sub Page_Load(Sender as Object, e as EventArgs)
MengisiCombo()
End Sub
Kemudian tambahkan fungsi untuk menampilkan data yang telah dipilih. Kodenya adalah sebagai berikut :
Sub TampilkanData(Src as Object, e As EventArgs)
BukaKoneksi()
dim strSql as String
strSql =”Select Count(cdID) From tblCD where cdID = ‘” & cdID.SelectedItem.Value & “‘”
dbCommand = New OleDbCommand(strSql, dbConn)
if dbCommand.ExecuteScalar() <> 0 Then ‘Periksa Apakah dengan ID tersebut diatas ada
strSql = “SELECT * FROM tblCD ” & _
“WHERE cdID = ‘” & cdID.SelectedItem.Value & “‘”
dbCommand = New OleDbCommand(strSql, dbConn)
dbReader = dbCommand.ExecuteReader()
while DBReader.Read()
txtNamaArtist.Text = dbReader(“artistName”) ‘Tampilkan data untuk detail
txtJenisLagu.Text = dbReader(“songType”)
txtJudulLagu.Text = dbReader(“albumTitle”)
txtRelease.Text = dbReader(“yearRelease”)
txtComment.Text = dbReader(“comment”)
txtHarga.Text = cDbl(dbReader(“cdPrice”))
end while
dbReader.Close()
lblPesan.Text=”Menampilkan Data Dengan ID: ” & cdID.SelectedItem.Value & “”
else
lblPesan.Text= “Data dengan ID: ” & cdID.SelectedItem.Value & ” Sudah Tidak Ada!”
end if
End Sub
Pada kode diatas akan dilakukan pengecekan dahulu dengan menggunakan metode ExecuteScalar yang akan mengembalikan nilai jumlah baris data jika data tidak ditemukan maka akan ditampilkan pesan pada lblPesan. Bila data ada akan dilakukan pengambilan data dengan metode ExecuteNonQuery yang akan mengembalikan source data melalui objet DataReader. Kemudian hasil data tersebut akan ditampilkan kedalam isian.
Jangan lupa untuk menambahkan StyleShet untuk tampilan sebagai berikut :
.maintainStyle
{
background:#CCCCCC;
margin:5px;
padding:2px;
border:1px inset;
position:absolute;
left:10px;
top:200px
width:400px;
top: 50px;
width: 400px;
}
.labelPesanStyle
{
position:absolute;
left:10px;
top:10px;
}
.style1 {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: bold;
}
.style4 {font-size: 12px}
.style5 {font-family: Arial, Helvetica, sans-serif; font-size: 12px; }
Berikutnya adalah kode untuk desain tampilan adalah sebagai berikut :
Nah lengkap sudah program yang kita bangun
Bila dituliskan secara lengkap kodenya adalah sebagai berikut :
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 MengisiCombo()
cdID.Items.Clear()
BukaKoneksi()
dim strSql as String = “SELECT cdID FROM tblCD ORDER BY cdID”
dbCommand = New OleDbCommand(strSql, dbConn)
dbReader = dbCommand.ExecuteReader()
cdID.DataSource = dbReader
cdID.DataTextField = “cdID”
cdID.DataValueField = “cdID”
cdID.DataBind()
dbReader.Close()
dbConn.Close()
End Sub
Sub TampilkanData(Src as Object, e As EventArgs)
BukaKoneksi()
dim strSql as String
strSql =”Select Count(cdID) From tblCD where cdID = ‘” & cdID.SelectedItem.Value & “‘”
dbCommand = New OleDbCommand(strSql, dbConn)
if dbCommand.ExecuteScalar() <> 0 Then ‘Periksa Apakah dengan ID tersebut diatas ada
strSql = “SELECT * FROM tblCD ” & _
“WHERE cdID = ‘” & cdID.SelectedItem.Value & “‘”
dbCommand = New OleDbCommand(strSql, dbConn)
dbReader = dbCommand.ExecuteReader()
while DBReader.Read()
txtNamaArtist.Text = dbReader(“artistName”) ‘Tampilkan data untuk detail
txtJenisLagu.Text = dbReader(“songType”)
txtJudulLagu.Text = dbReader(“albumTitle”)
txtRelease.Text = dbReader(“yearRelease”)
txtComment.Text = dbReader(“comment”)
txtHarga.Text = cDbl(dbReader(“cdPrice”))
end while
dbReader.Close()
lblPesan.Text=”Menampilkan Data Dengan ID: ” & cdID.SelectedItem.Value & “”
else
lblPesan.Text= “Data dengan ID: ” & cdID.SelectedItem.Value & ” Sudah Tidak Ada!”
end if
End Sub
Sub Page_Load(Sender as Object, e as EventArgs)
MengisiCombo()
End Sub
.maintainStyle
{
background:#CCCCCC;
margin:5px;
padding:2px;
border:1px inset;
position:absolute;
left:10px;
top:200px
width:400px;
top: 50px;
width: 400px;
}
.labelPesanStyle
{
position:absolute;
left:10px;
top:10px;
}
.style1 {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: bold;
}
.style4 {font-size: 12px}
.style5 {font-family: Arial, Helvetica, sans-serif; font-size: 12px; }
Nah sekian dulu tulisan mengenai pembahasan pemrograman dasar asp.net kali ini. Mungkin ada tambahan masukan atau pertanyaan? Silahkan posting dibawah. Makasih, semoga membantu yaw 
Berikutnya : Pencarian Data >>
