Mengubah data pada database adalah proses mencari data sesuai dengan keyfield record dan menampilkan pada pengguna. Setelah itu pengguna akan merubah sesuai yang diingkan dan menyimpan perubahan tersebut pada database.
Untuk itu, buatlah form dengan tampilan seperti dibawah ini:
Form tersebut terdiri dari dua textbox bernama txtKodeAnggota dan txtNamaAnggota. Dua buah tombol bernama btnCari dan btnEdit. Pengguna harus menuliskan kode anggota di kotak txtKodeAnggota. Sesudahnya, pengguna menekan tombol cari agar nama anggota ditampilkan di kotak txtNamaAnggota. Pengguna mengubah data sesuai yang diinginkan. Untuk menyimpannya, pengguna menekan btnEdit.
Agar dapat mengedit data di database Access. Form harus dihubungkan dahulu dengan database
'--- Definisi letak database
Dim strPath As String = FileSystem.CurDir
Dim strNamaDatabase As String = "Pus.mdb"
Dim strPathDatabase As String = strPath + "\" + strNamaDatabase
'--- Definisi koneksi database
Dim con As New OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + _
strPathDatabase)
Dim cmd As New OleDbCommand
Pada saat form load, database dibuka dengan kode program berikut:
'Open database
con.Open()
cmd.Connection = con
btnCari berisi kode mencari data sesuai dengan kode anggota di txtKodeAnggiota dan meletakkannya nama anggota di txtNamaAnggota
Dim nilai As OleDbDataReader
cmd.CommandText = _
" select NamaAnggota " + _
" from Anggota " + _
" where KodeAnggota = @p1"
cmd.Parameters.Clear()
cmd.Parameters.Add("@p1", OleDbType.VarChar).Value = Trim(txtKodeAnggota.Text)
nilai = cmd.ExecuteReader()
nilai.Read()
txtNamaAnggota.Text = nilai.GetValue(0)
nilai.Close()
btnEdit berisi kode untuk mengubah isi data database Access yang mempunyai kode anggota sesuai di txtKodeAnggota
With cmd
.CommandText = String.Empty
.CommandText = _
" update Anggota set " + _
" NamaAnggota = @p1 " + _
" where KodeAnggota = @p2 "
.Parameters.Clear()
.Parameters.Add("@p1", OleDbType.VarChar).Value = _
Trim(txtNamaAnggota.Text)
.Parameters.Add("@p2", OleDbType.VarChar).Value = _
Trim(txtKodeAnggota.Text)
.ExecuteNonQuery()
End With
MessageBox.Show("Data telah diperbaiki", _
"Informasi", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
Kode selengkapnya:
Agar dapat mengedit data di database Access. Form harus dihubungkan dahulu dengan database
'--- Definisi letak database
Dim strPath As String = FileSystem.CurDir
Dim strNamaDatabase As String = "Pus.mdb"
Dim strPathDatabase As String = strPath + "\" + strNamaDatabase
'--- Definisi koneksi database
Dim con As New OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + _
strPathDatabase)
Dim cmd As New OleDbCommand
Pada saat form load, database dibuka dengan kode program berikut:
'Open database
con.Open()
cmd.Connection = con
btnCari berisi kode mencari data sesuai dengan kode anggota di txtKodeAnggiota dan meletakkannya nama anggota di txtNamaAnggota
Dim nilai As OleDbDataReader
cmd.CommandText = _
" select NamaAnggota " + _
" from Anggota " + _
" where KodeAnggota = @p1"
cmd.Parameters.Clear()
cmd.Parameters.Add("@p1", OleDbType.VarChar).Value = Trim(txtKodeAnggota.Text)
nilai = cmd.ExecuteReader()
nilai.Read()
txtNamaAnggota.Text = nilai.GetValue(0)
nilai.Close()
With cmd
.CommandText = String.Empty
.CommandText = _
" update Anggota set " + _
" NamaAnggota = @p1 " + _
" where KodeAnggota = @p2 "
.Parameters.Clear()
.Parameters.Add("@p1", OleDbType.VarChar).Value = _
Trim(txtNamaAnggota.Text)
.Parameters.Add("@p2", OleDbType.VarChar).Value = _
Trim(txtKodeAnggota.Text)
.ExecuteNonQuery()
End With
MessageBox.Show("Data telah diperbaiki", _
"Informasi", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
Kode selengkapnya:
0 komentar:
Posting Komentar