Maintenance Database – ADO.NET- Belajar Pemrograman ASP.NET – VB.NET – Tutorial dan Contoh Program

<< Sebelumnya : Penggunaan Database

Yang dimaksudkan dengan maintenance disini adalah tindakan yang dilakukan terhadap database sehingga informasi yang disimpan didalam database tersebut bersifat up to date. Maintenance atau pemeliharaan database tersebut dapat kita lakukan dengan cara update, insert dan delete. Pada tulisan kali ini akan dibahas sebagian kecil cara yang digunakan untuk maintenance database.

Update Database

Untuk pembahasan update database ini kita akan menggunakan contoh dari penggunaan datagrid pada pembahasan sebelumnya. Disini akan diupdate beberapa list data yang sudah ada didatabase. Untuk melakukan update data pada datagrid kamu dapat menambahkan property sebagai berikut :

AutoGenerateColumns=”false”
CellPadding=”2″ CellSpacing=”2″ GridLines=”none”
BorderStyle=”solid” BorderColor=”black” BorderWidth=”1″
font-size=”x-small” font-names=”verdana”
onEditCommand=”editCDgrid”
onCancelCommand=”BatalkanEdit”
onUpdateCommand=”UpdateData”
DataKeyField=”cdID”>

Dari code diatas dapat dilihat terdapat beberapa event onEditCommand, onCancelCommand, dan onUpdateCommand. Event-event tersebut merupakan event yang digunakan untuk memanggil beberapa fungsi proses yang disebutkan diatas seperti fungsi editCDgrid, fungsi BatalkanEdit dan fungsi UpdateData. Oleh sebab itu perlu ditambahkan tag berikut untuk menjalankan dari masing-masing event tersebut. Contoh tagnya adalah sebagai berikut :

EditText=”Edit Data”
CancelText=”Batal”
UpdateText=”Update”/>

Jadi, untuk melakukan perubahan data, user akan mengklik link “Edit Data” beru kemudian akan ditampilkan link “Update” dan “Batal“. Ketika user mengklik Update maka database akan diupdate sesuai DataKeyField yang didefinisikan di datagrid dalam kasus ini DataKeyField=”cdID“.

Pada saat user mengklik “Edit Data” maka onEditCommand akan memanggil event dibawah ini :

Sub editCDgrid(sender as object, e as DataGridCommandEventArgs)
dgCD.EditItemIndex = e.Item.ItemIndex
tampilkanDataGrid()
End Sub

Hasilnya tampilan akan menjadi sebagai berikut :

Event ini akan mengakibatkan tampilan datagrid berubah sehingga user bisa melakukan pengeditan. Pada saat user mengklik batal maka event tersebut akan memanggol fungsi BatalkanEdit sebagi berikut :

Sub BatalkanEdit(Sender as Object, e as DataGridCommandEventArgs)
dgCD.EditItemIndex = -1
tampilkanDataGrid()
End Sub

Fungsi ini akan mengembalikan tampilan datagrid sama seperti tampilan sebelumnya.

Pada saat user mengklik update maka event tersebut akan memanggil fungsi UpdateData sebagai berikut :

Sub UpdateData(Sender as Object, e as DataGridCommandEventArgs)
dbConn = New OleDbConnection( _
“Provider=Microsoft.Jet.OLEDB.4.0;” & _
“Data Source=” & Server.MapPath(“database/dbMusic.mdb”))
Dim HargaCD As TextBox = e.Item.FindControl(“txtHarga”)
Dim CommentCD As TextBox = e.Item.FindControl(“txtComment”)
Dim NoCD as String = dgCD.DataKeys(e.Item.ItemIndex)
Dim strSql as String = “Update tblCD Set ” & _
“comment = ‘” & CommentCD.Text & “‘, ” & _
“cdPrice = ‘” & CDbl(HargaCD.Text) & “‘” & _
” Where cdID = ‘” & NoCD & “‘”
dbConn.Open()
dbCommand = New OleDBCommand(strSql,dbConn)
dbCommand.ExecuteNonQuery()
dbConn.Close()
dbCommand.Dispose()
dbConn.Dispose()
dgCD.EditItemIndex = -1
tampilkanDataGrid()
lblArtist.Text = strSql
End Sub

Coding selengkapnya yang menggunakan datagrid untuk mengedit database adalah sebagai berikut :

dim dbConn as OleDbConnection
dim dbCommand as OleDbCommand
dim dbReader as OleDbDataReader
sub Page_Load(Sender as Object, e as EventArgs)
’set up connection
dim dbConn as OleDbConnection
if Not(IsPostBack)
tampilkanDataGrid()
end if
end sub
Sub tampilkanDataGrid()

dim dbCommand as OleDbCommand
dim dbReader as OleDbDataReader
dbConn = New OleDbConnection( _
“Provider=Microsoft.Jet.OLEDB.4.0;” & _
“Data Source=” & Server.MapPath(“database/dbMusic.mdb”))
dbConn.Open()
‘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()
dbCommand.Dispose()
dbConn.Dispose()
End sub

Sub editCDgrid(sender as object, e as DataGridCommandEventArgs)
dgCD.EditItemIndex = e.Item.ItemIndex
tampilkanDataGrid()
End Sub
Sub BatalkanEdit(Sender as Object, e as DataGridCommandEventArgs)
dgCD.EditItemIndex = -1
tampilkanDataGrid()
End Sub
Sub UpdateData(Sender as Object, e as DataGridCommandEventArgs)
dbConn = New OleDbConnection( _
“Provider=Microsoft.Jet.OLEDB.4.0;” & _
“Data Source=” & Server.MapPath(“database/dbMusic.mdb”))
Dim HargaCD As TextBox = e.Item.FindControl(“txtHarga”)
Dim CommentCD As TextBox = e.Item.FindControl(“txtComment”)
Dim NoCD as String = dgCD.DataKeys(e.Item.ItemIndex)
Dim strSql as String = “Update tblCD Set ” & _
“comment = ‘” & CommentCD.Text & “‘, ” & _
“cdPrice = ‘” & CDbl(HargaCD.Text) & “‘” & _
” Where cdID = ‘” & NoCD & “‘”
dbConn.Open()
dbCommand = New OleDBCommand(strSql,dbConn)
dbCommand.ExecuteNonQuery()
dbConn.Close()
dbCommand.Dispose()
dbConn.Dispose()
dgCD.EditItemIndex = -1
tampilkanDataGrid()
lblArtist.Text = strSql
End Sub
Sub Page_UnLoad(sender as object, e as EventArgs)
dbConn = Nothing
End Sub

Hasil tampilan lengkapnya 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 : Menambah Data >>