Membuat Aplikasi Pada Visual Basic 6 Menggunakan Connector ADODC

Oleh sasak media sharing

Saturday, December 7, 2013

Bagikan :

Tweet

Assalamualaikum,,

Kali ini akan saya bahas mengenai bagaimana membuat suatu aplikasi (anggap saja aplikasi insert,read,update delete) pada visual basic 6, dan menggunakan konektor ADODC. ADODC adalah merupakan penghubung antara aplikasi yang kita buat dengan database. pada contoh kali ini, kita akan menggunakan microsoft acces sebagai tempat penyimpanan datanya. oke kita lansung saja, buatlah sebuah database pada acces dengan kriteria sebagai berikut, jangan lupa kalau anda menggunakan acces 2007 keatas, ubah ekstensi filenya menjadi .mdb.

Nim : text(25)

Nama : text(40)

Alamat : text(5)

Fakultas : text(25)

Jurusan : text(25)

Semester : text(25)

Nah , database sudah kita buat, sekarang kita buat rancangan interfacenya, buatlah interfacenya seperti ini.

Jangan lupa, kita harus memasukkan komponent dbgrid dan adodc secara manual, caranya klik kanan pada toolbox -> component -> cari Microsoft Ado Data Control 6.0(OLEDB) dan Microsoft Data Grid Control 6.0 (OLEDB).

Tampilan Interfacenya :

Untuk cara mengkoneksikannya, sudah dibahas pada artikel sebelumnya, silahkan anda baca disini ..

Sekarang lanjut ke pengkodingan,,

Double klik pada adodc1 kemudian tambahn source code ini.

On Error Resume Next

Adodc1.Caption = Adodc1.Recordset.AbsolutePosition & Adodc1.Recordset.RecordCount

Kemudian double klik pada button tambah data, taruhkan source code ini.

Adodc1.Recordset.AddNew 

Kemudian double klik pada button simpan, kemudian isikan source dibawah ini.

On Error Resume Next

If Text1.Text = "" Then

MsgBox "Nim tidak boleh dikosongkan", vbCritical

Exit Sub

ElseIf Text2.Text = "" Then

MsgBox "Nama tidak boleh dikosongkan", vbCritical

Exit Sub

ElseIf Text4.Text = "" Then

MsgBox "Semester tidak boleh dikosongkan", vbCritical

Exit Sub

End If

Adodc1.Recordset.Update

Adodc1.Recordset.Requery

MsgBox "Data berhasil disimpan", vbInformation

Mudah kan,, oh iya, jangan lupa seting setiap text, setinglah di propertiesnya yaitu Data Source dan Data Field nya..

Double klik pada button hapus, kemudian isikan source code dibawah ini.

Dim tanyakan

tanyakan = MsgBox("Apakah anda yakin ingin menghapus data ini", vbQuestion + vbYesNo)

If tanyakan - vbYes Then

Adodc1.Recordset.Delete

Adodc1.Recordset.Requery

MsgBox "Data berhasil dihapus", vbInformation

Else

MsgBox "Data gagal dihapus", vbCritical

End If

Nah,, akhirnya semuanya sudah selesai, sekarang jalankan aplikasi anda. kalau semua sudah benar, maka akan tampil seperti ini,

Menurut saya, dengan memakai ADODC ini merupakan cara paling gampang,, ok apabila ada yang mau memepelajari lebih dalam, silahkan Download Disini. 

Apabil ada yang ditanyakan, silahkan tinggalkan komentar anda pada kotak komentar.

Tag : Visual Basic 6