Rabu, 18 April 2018

Mengubah Data Database Access di Visual Basic Net

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:

Mengubah Data Database Access di Visual Basic Net Rating: 4.5 Diposkan Oleh: Good Dreamer

0 komentar:

Posting Komentar

Diberdayakan oleh Blogger.