Cara Edit / Update Database Dengan VB 6.0

9:15:00 AM
Pada pembelajaran VB 6.0 kali ini akan dibahas mengenai : Cara Update Database Dengan VB 6.0

Pembelajaran ini adalah lanjutan pembelajaran Visual Basic 6.0 sebelumnya yaitu Cara Input 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 Edit / Update Database Dengan VB 6.0 | Belajar Visual Basic 6.0
 

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 TambahBarang As String
        TambahBarang = "update Barang Set NamaBarang= '" & Text2 & "', JumlahBarang='" & Text3 & "' where KodeBarang='" & Text1 & "'"
        Koneksi.Execute TambahBarang
        MsgBox "Data Berhasil DiUpdate", 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

Baca Juga : Cara Hapus Database Menggunakan VB 6.0

Note :
Cara Editnya adalah  Doubel Klik Pada Datagrid, kemudian ubah Nama Barang atau Jumlah Barang. Kemudian Klik Simpan.

Silahkan KLIK DISINI untuk download Project diatas

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

4 komentar

Write komentar
Imam Nur
AUTHOR
November 22, 2015 at 12:38 PM delete

ibu mohon bantuanya mengapa commond edit saya. salah terus. ?

Reply
avatar
CumiBintang
AUTHOR
November 1, 2016 at 3:18 AM delete

Terimakasih banyak Bu postingannya sangat membantu saya untuk edit, tambah, dan update..... Post baru lagi Bu tentang yg lain,,,terimakasih

Reply
avatar
Tutarni
AUTHOR
November 1, 2016 at 9:12 PM delete

Hi Imam,
Salahnya gimana ya? Pesan Errornya apa?

Reply
avatar
Tutarni
AUTHOR
November 1, 2016 at 9:13 PM delete

Hi Cumi,
Sama-sama, di tunggu pembalajaran VB lainnya ya,

Reply
avatar