Menghapus Data – ASP.NET

<< Sebelumnya : Menambah Data

Pada tulisan sebelumnya telah dijelaskan bagaimana cara menambah data melalui beberapa inputan didalam ASP.NET. Nah sekarang kita akan belajar bagaimana cara menghapus 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 menghapus 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 dihapus. Didalam form yang kita gunakan juga akan ditambahkan sebuah button untuk memanggil fungsi yang memproses penghapusan data. Masih seperti didalam pembahasan sebelumnya kita akan menggunakan panel untuk menampung form penghapusan 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.

Kemudian kita tambahkan sebuah procedure untuk menghapus data sebagai berikut :

Sub hapusData(Src as Object, e As EventArgs)
BukaKoneksi()
Dim strSql As String = “Delete From tblCD Where cdID = ‘” & cdID.SelectedItem.Value & “‘”
dbCommand = New OleDbCommand(strSql, dbConn)
dbCommand.ExecuteNonQuery
dbConn.Close
lblPesan.Text=”Data Dengan ID: ” & cdID.SelectedItem.Value & ” Telah Dihapus!”
MengisiCombo()
End Sub

Pada kode diatas pertama-tama kita memanggil fungsi BukaKoneksi() untuk melakukan koneksi ke database. Kemudian kita mengisikan perintah SQL ke variabel strSql. Setelah itu perintah dimasukkan kedalam objek Comand.Baru kemudian perintah didalam objek Command diproses menggunakan mode ExecuteNonQuery yang memang diperuntukkan untuk menjalankan perintah SQL. Setelah itu koneksi kita putus/hancurkan dengan method Close() dan menampilkan hasil proses melalaui lblPesan.

Kamu perlu menambahkan code berikut ini untuk menampilkan semua field id kedalam cdId. Codenya adalah sebagai berikut :

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

Untuk memasukkan data kedalam cdID kamu perlu menambahkan code berikut pada saat event Page_Load . Codenya adalah sebagai berikut :

Sub Page_Load(Sender as Object, e as EventArgs)
MengisiCombo()
End Sub

Kemudian kita perlu menambahkan sebuah CSS untuk mendesain tampilan sebagai berikut :

.maintainStyle
{
	background:#CCCCCC;
	margin:5px;
	padding:2px;
	border:1px inset;
	position:absolute;
	left:200px;
	top:200px
	width:400px;
	top: 50px;
	width: 400px;
	}
.labelPesanStyle
{
	position:absolute;
	left:300px;
	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; }

Code untuk desain tampilannya adalah sebagai berikut :

  

Bila dituliskan secara lengkap kode diatas akan menjadi seperti berikut :

&

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>

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 hapusData(Src as Object, e As EventArgs)
BukaKoneksi()
Dim strSql As String = “Delete From tblCD Where cdID = ‘” & cdID.SelectedItem.Value & “‘”
dbCommand = New OleDbCommand(strSql, dbConn)
dbCommand.ExecuteNonQuery
dbConn.Close
lblPesan.Text=”Data Dengan ID: ” & cdID.SelectedItem.Value & ” Telah Dihapus!”
MengisiCombo()
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 : Show Detail Data >>