Cara Hapus Database MySQL Dengan VB 6.0

2:26:00 AM
Pada pembelajaran VB 6.0 Database MySQL kali ini akan dibahas mengani Cara Hapus atau Delete Ke Database. Database disini menggunakan MySQL. untuk bisa mengikuti Tutorial kali ini pastikan di komputer anda sudah install :
1. Visual Basic 6.0
2. Database MySQL (kami menggunakan Xampp)
3. Konektor ODBC 3.51 (Jika anda belum mempunyai silahkan Download Disini)

Cara Hapus Database MySQL Dengan VB 6.0


Jika sudah memenuhi syarat diatas silahkan ikuti tutorial dibawah ini :

#1. Membuat Database dan Tabel di MySQL
Buatlah database dengan nama : dbaplikasi
Buatlah tabel dengan nama : barang
Design Tabel barang adalah sebagai berikut :

Untuk persiapan Update silahkan masukan data seperti gambar dibawah ini :

#2. Membuat DSN Konektor DBAplikasi
Buka Control Panel pada komputer anda
Klik ODBC
Klik System DSN - Add
Pilih MySQL ODBC 3.51 Driver
Jika tidak ada, berarti anda belum install Konektor ODBC 3.51 (silahkan install dulu yaaa)
Jika muncul Klik Finish
Masukan KonekDBAplikasi, root, dbaplikasi sesuai gambar diatas
Jika sudah klik OK

#3. Membuat Form Pada Visual Basic 6.0
Buka VB 6.0 anda
Buatlah Design Form1 seperti gambar dibawah ini :
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=MSDASQL.1;Persist Security Info=False;Data Source=Konekdbaplikasi"
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 HapusBarang
    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 = Koneksi
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!HargaBarang
        Text1.Enabled = False
        Command1.Enabled = True
        Else
        MsgBox "Data Tidak Ada!"
    End If
End Sub
Note :
Cara Hapusnya adalah  Doubel Klik Pada Datagrid. Kemudian Klik Hapus. Maka didatabase pun akan terhapus. Bagaimana sangat mudah bukannn ????

Silahkan Klik Link INI untuk belajar VB 6.0 Cara Input Database MySQL
Silahkan Klik Link INI untuk belajar VB 6.0 Cara Edit Database MySQL

Artikel Terkait

Next Article
« Prev Post
Previous Article
Next Post »
Penulisan markup di komentar
  • Untuk menulis huruf bold silahkan gunakan <strong></strong> atau <b></b>.
  • Untuk menulis huruf italic silahkan gunakan <em></em> atau <i></i>.
  • Untuk menulis huruf underline silahkan gunakan <u></u>.
  • Untuk menulis huruf strikethrought silahkan gunakan <strike></strike>.
  • Untuk menulis kode HTML silahkan gunakan <code></code> atau <pre></pre> atau <pre><code></code></pre>, dan silahkan parse dulu kodenya pada kotak parser di bawah ini.
Konversi Code
Disqus
Silahkan Berkomentar Dengan

5 komentar

Write komentar
INDO NUSIA
AUTHOR
July 23, 2015 at 8:52 AM delete

blog ibu sangat membantu saya mempelajari vb, akan saya ingat no rekening ibu

Reply
avatar
Tutarni Aliya
AUTHOR
July 23, 2015 at 8:57 PM delete

Hi Indo,
Terima kasih telah berkunjung dan berkomentar di Blog ini. Selamat Belajar VB yaaa :)

Reply
avatar
October 21, 2015 at 12:33 AM delete

bu rental dvd yg Transaksi Pinjam sama transaksi pengembalianya gak ada yh bu mohon bantuanya trims

Reply
avatar
October 21, 2015 at 12:34 AM delete

rental dvd Transaksi Pinjam sama Transaksi kembalinya gak ada yh tolong bantuanya bu trims

Reply
avatar
Tutarni Aliya
AUTHOR
October 21, 2015 at 8:49 AM delete

Hi Lukman,
Untuk Peminjaman dan Pengembalian kami berikan pada Kursus Online kami.
Jadi belum kami berikan di Blog. Mohon ditunggu atau silahkan ikuti Kursus Online kami :)

Reply
avatar