Source Code Menghapus Data di Database Menggunakan VB 6.0

Source Code Menghapus Data di Database Menggunakan VB 6.0

Pada kesempatan ini TeknoTips.NET akan mengulas tentang "" dengan judul artikel "Source Code Menghapus Data di Database Menggunakan VB 6.0".

Pada pembelajaran VB 6.0 kali ini akan dibahas mengenai : Cara Hapus Database Dengan VB 6.0
VB 6.0 - Cara Hapus Database Dengan VB 6.0

Berikut langkahnya :
1. Membuat Database dan Tabel
Buatlah sebuah database dengan nama DBBelajarvb.mdb dan Buatlah Tabel Barang dengan Design Tabel seperti gambar dibawah ini :

2. Membuat Project VB 6.0 dan Design Form
Buka Aplikasi VB 6.0 anda
Simpan di Folder contoh nama Folder : Belajar VB
Masukan Database DBBelajarvb.mdb kedalam Folder tersebut
Kemudian buatlah Design Form seperti gambar dibawah ini :
Cara Hapus Database Dengan VB 6.0 | Belajar Vb 6.0 Lengkap
Kemudian masukan Koding dibawah ini :
Dim Koneksi As New ADODB.Connection
Dim RSBarang As ADODB.Recordset
Sub BukaDB()
Set Koneksi = New ADODB.Connection
Set RSBarang = New ADODB.Recordset
Koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBBelajarvb.mdb"
End Sub

Private Sub Command1_Click()
Call BukaDB
If Text1 = "" Or Text2 = "" Or Text3 = "" Then
MsgBox "Data Belum Lengkap"
Else
Dim HapusBarang As String
    HapusBarang = "Delete From Barang where kodeBarang= '" & Text1 & "'"
    Koneksi.Execute TambahHapus
    MsgBox "Data Berhasil DiHapus", vbInformation, "Pemberitahuan"
    Call KondisiAwal
    Form_Activate
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Activate()
Command1.Enabled = False
Call BukaDB
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\DBBelajarvb.mdb; "
Adodc1.RecordSource = "Barang"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub

Private Sub Form_Load()
Text1.MaxLength = 6
Call KondisiAwal
End Sub
Sub KondisiAwal()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
Private Sub DataGrid1_DblClick()
On Error Resume Next
    Call BukaDB
    RSBarang.Open "Select * from Barang where KodeBarang = '" & DataGrid1.Columns(0) & "'", Koneksi
    If Not RSBarang.EOF Then
        Text1 = RSBarang!KodeBarang
        Text2 = RSBarang!NamaBarang
        Text3 = RSBarang!JumlahBarang
        Text1.Enabled = False
        Command1.Enabled = True
        Else
        MsgBox "Data Tidak Ada!"
    End If
End Sub

Note :  Hapusnya adalah  Doubel Klik Pada Datagrid, kemudian ubah Nama Barang atau Jumlah Barang. Kemudian Klik Hapus.

Kata Kunci : VB6 Database Access,
Untuk mendapat notifikasi setiap artikel terbaru, masukkan e-mail anda disini : Tuliskan komentar relevan anda dibawah ini dengan jelas & sopan, sesuai dengan topik ulasan mengenai VB6 Database Access Terbaru 2019.

Untuk menghindari spam dan tautan aktif, komentar akan dimoderasi. Dapatkan balasan dari melalui e-mail anda :

Komentar artikel "Source Code Menghapus Data di Database Menggunakan VB 6.0"

Posting Komentar

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel