Coding Delete Dengan Menggunakan Visual Studio 2010 Express

Oleh peistar

Friday, 13 January 2017

Bagikan :

Tweet

Dengan menggunakan Tombol Delete maka kita dapat menghapus data dengan sangat mudah dari database, namun sebelum itu data yang akan kita hapus harus dipanggil terlebih dahulu kemudian kita baru dapat menghapus data dari database.

Adapun langkah – langkahnya sebagai berikut :

- Pada Tombol Delete saudara dapat memasukan coding dibawah ini, untuk fieldnya saudara dapat menyesuaikannya dengan database yang saudara buat.

Coding Program Untuk Delete :

If MessageBox.Show("Yakin akan dihapus..?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
Dim hapus As String = "delete * from Kamar where Kd_Kamar='" & TextBox1.Text & "'"

cmd = New OleDbCommand(hapus, Conn)

cmd.ExecuteNonQuery()

MsgBox("Data berhasil di Hapus", MsgBoxStyle.Information, "Information")

Call TampilData()

Call Kosongkan()

Else

Call Kosongkan()

End If

Coding Program Untuk Menampilkan Data ke DataGridView1 :

Sub TampilData()

Koneksi()

da = New OleDbDataAdapter("Select * from Kamar", Conn)

ds = New DataSet

ds.Clear()

da.Fill(ds, "Kamar")

DataGridView1.DataSource = (ds.Tables("Kamar"))

End Sub

Catatan : Jangan lupa perkenalkan Class TampilData pada Form_Load.

- Pada Tombol Cancel klik 2 kali, kemudian masukan juga coding dibawah ini ke Tombol Cancel.

Coding Program Untuk Cancel :

TextBox1.Text = ""

ComboBox1.Text = "Pilih"

TextBox2.Text = ""

TextBox1.Focus()

- Klik 2 kali pada Tombol Close, selanjutnya masukan Coding Program dibawah ini.

Coding Program Untuk Close :

Me.Close()

- Untuk emnggunakan tombol Delete ini kita harus panggil data yang mau kita hapus dengan cara klik 2 kali pada TextBox1 selanjutnya rubah Procedure menjadi KeyPress dan masukan Coding Program dibawah ini.

Coding Program Untuk Panggil Data :

If e.KeyChar = Chr(13) Then

Call Koneksi()

cmd = New OleDbCommand("Select * from Kamar where Kd_Kamar='" & TextBox1.Text & "'", Conn)

rd = cmd.ExecuteReader

rd.Read()

If Not rd.HasRows Then

ComboBox1.Text = ""

TextBox2.Text = ""

ComboBox1.Focus()

Else

ComboBox1.Text = rd.Item("Jenis_Kamar")

TextBox2.Text = rd.Item("Tarif")

ComboBox1.Focus()

End If

End If

Untuk Koneksi, Save, dan Edit saudara dapat baca Link dibawah ini :

1. Cara koneksi Visual Studio dengan Database Access 2007.
2. Cara Membuat Tombol Save dengan Visual Studio 2010.
3. Cara Membuat Tombol Edit dengan Visual Studio 2010.

Demikian yang dapat saya sampaikan semoga tutorial ini dapat membantu kita semua. Wasallammm..!!!

Tag : Visual Studio 2010