Cara Edit / Update Database Dengan VB 6.0

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.

Subscribe to receive free email updates:

4 Responses to "Cara Edit / Update Database Dengan VB 6.0"

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

    ReplyDelete
    Replies
    1. Hi Imam,
      Salahnya gimana ya? Pesan Errornya apa?

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

    ReplyDelete
    Replies
    1. Hi Cumi,
      Sama-sama, di tunggu pembalajaran VB lainnya ya,

      Delete