Menambah Data – ADO.NET- Belajar Pemrograman ASP.NET – VB.NET – Tutorial dan Contoh Program

<< Sebelumnya : Maintenance Database

Tulisan ini merupakan lanjutan dari tulisan sebelumnya mengenai maintenance database dalam ASP.NET. Hal lain yang penting dalam pemeliharaan database adalah menambah dan menghapus data. Bahasa SQL yang digunakan untuk menambah adalah insert dan untuk menghapus adalah delete. Berikut ini akan diberikan contoh program untuk menambah dan menghapus data dalam ASP.NET. Seperti yang telah dijelaskan pada tulisan sebelumnya kita akan menggunakan objek Command untuk menjalankan perintah SQL yang akan di tampung didalam variabel string. Sebenarnya ada beberapa metode eksekusi didalam ADO.NET. Untuk pembahasan mengenai model Execute dalam ADO.NET kamu bisa membaca disini. Disini kita akan menggunakan ExecuteNonQuery karena memang dikhususkan untuk pengeksekusian perintah-perintah SQL seperti Insert, Delete dan Update.

Pada pembahasan kali ini database yang digunakan masih sama seperti dalam pembahasan sebelumnya. Sebelumnya kita tambahkan direktif berikut untuk mengimport namespace dalam menggunakan ADO.DB sesuai dengan database yang digunakan.

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

Pada kode diatas kita menggunakan namespace System.Data.OleDb karena database yang digunakan adalah Ms.Access 2003. Jika menggunakan SQL Server kamu dapat menggunakan namespace System.Data.SQLClient

Kemudian kita tambahkan beberapa variabel objek untuk memproses 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 untuk menambahkan data ke database kita tambahkan sebuah prosedur sebagai berikut :

sub TambahData(src as object, Args as EventArgs)
BukaKoneksi()
dim cdID, artistName, songType, albumTitle, yearRelease, comment as String
dim cdPrice as double
cdID = txtCDID.Text
artistName = txtNamaArtist.Text
songType = txtJenisLagu.Text
albumTitle = txtJudulLagu.Text
yearRelease = txtRelease.Text
comment = txtComment.Text
cdPrice = CDbl(txtHarga.Text)

dim strSql as String = “Insert Into tblCD ” & _
“(cdID, artistName, songType, albumTitle, yearRelease, comment, cdPrice) Values (” & _
“‘” & cdID & “‘, ” & _
“‘” & artistName & “‘, ” & _
“‘” & songType & “‘, ” & _
“‘” & albumTitle & “‘, ” & _
“‘” & yearRelease & “‘, ” & _
“‘” & comment & “‘, ” & _
“‘” & cdPrice & “‘)”

dbCommand = New OleDbCommand(strSql, dbConn)
dbCommand.ExecuteNonQuery
dbConn.Close

lblPesan.Text =”Data Dengan ID: ” & txtCDID.Text & ” Baru Saja Ditambah!”
End Sub

Pada kode diatas pertama-tama kita memanggil fungsi BukaKoneksi() untuk melakukan koneksi ke database. kemudian kita mendeklarasikan beberapa variabel yang akan kita gunakan untuk menampung data dari inputan yang telah diberikan dan kemudian mengisinya. 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.

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

<style>
.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; }
</style>

Source code untuk desain tampilannya adalah sebagai berikut :

Menambah Data

---

---

Apabila kamu belum begitu paham bentul dengan cara penulisan Web Control dalam ASP.NET menggunakan bahasa Visual Basic kamu bisa membaca pada tulisanku yang sebelumnya.

Bila kita jalankan hasil programnya adalah sebagai berikut :

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 : Menghapus Data >>