8 Add,Edit,Delete,Search di VB 6 ke Access

Kali ini share membuat koneksi VB 6 ke MS Access dengan ADO, beberapa component Datagrid & Adodc dan library juga akan digunakan nantinya.
Dipersingkat saja, mari mulai:
1. Buat database access dgn nama data_user.mdb selanjutnya buat table  dgn nama user_data , field dan datatype seperti berikut:

Lalu tambahkan record beberapa baris , seterah berapa banyak.
Database sudah siap. Simpan databasenya di satu folder yg sama dgn project Vb nantinya, Save databasenya berformat .mdb.

Sekarang buat aplikasinya Vbnya:
2. Buat project standard exe sperti biasa, kemudia tambahkan component Datagrid & Adodc , dgn cara tekan tombol Ctrl + T , dan muncul jendela baru:
Cari tulisan :  • Microsoft ADO Data Control 6.0 (OLEDB) » dicentang.
                     • Microsoft Datagrid Control 6.0 (OLEDB) » dicentang lalu Apply dan Ok.

3. Menambah Library ADODB,
• Click menu Project » Reference, maka akan tampil tampilan baru:
Check list   Microsoft ActiveX Data Object 2.0 library » lalu Ok.

4.Design form, designya formnya sperti ini:                  Propertiesnya seperti dibawah ini:

Setting properties datagridnya DataSource pilih Adodc1.

4. Coding.

• Double click form, tulis script di bawah ini di atas Private sub frmUser_Load():

Private Sub blankform()
txtUsername = ""
txtPassword = ""
txtTelephone = ""
txtEmail = ""
End Sub

• Script tombol Add

Private Sub cmdAdd_Click()
If txtEmail = "" Or txtID = "" Or txtUsername = "" Or txtPassword = "" Or txtTelephone = "" Then
MsgBox "Data belum lengkap!", vbExclamation
Else
Adodc1.Recordset.AddNew
Adodc1.Recordset!ID = txtID
Adodc1.Recordset!UserName = txtUsername
Adodc1.Recordset!Password = txtPassword
Adodc1.Recordset!Telephone = txtTelephone
Adodc1.Recordset!E-mail = txtEmail
MsgBox "Data berhasil disimpan.", vbInformation, "Data User"
If Err.Number <> 0 Then
MsgBox "Data gagal disimpan.", vbExclamation, "Data USer"
End If
End If
End Sub

• Tombol Edit

Private Sub cmdEdit_Click()
If txtEmail = "" Or txtID = "" Or txtUsername = "" Or txtPassword = "" Or txtTelephone = "" Then
MsgBox "Data belum lengkap!", vbExclamation
Else
psn = MsgBox("Anda yakin mengedit data ini?", vbInformation + vbYesNo, "Data User")
If psn = vbYes Then
Adodc1.Recordset!ID = txtID
Adodc1.Recordset!UserName = txtUsername
Adodc1.Recordset!Password = txtPassword
Adodc1.Recordset!Telephone = txtTelephone
Adodc1.Recordset!E-mail = txtEmail
MsgBox "Data berhasil disimpan", vbInformation, "Data User"
Else
End If
End If
End Sub

• Delete:

Private Sub cmdDelete_Click()
if cmdDelete.Enabled Then
psn = MsgBox("Anda yakin menghapus data ini?", vbInformation + vbYesNo, "Data User")
If psn = vbYes Then
Adodc1.Recordset.Delete
Call blankform
MsgBox "Data berhasil dihapus.", vbInformation, "Data User"
Else
MsgBox "Data gagal dihapus.", vbExclamation
End If
End If
End Sub

• Clear:

Private Sub cmdClear_Click()
Call blankform
End sub

• Exit:

Private Sub cmdExit_Click()
End
End Sub

• Search:

Private Sub cmdSearch_Click()
Adodc1.Recordset.Filter = "ID = '" & txtSearch.Text & "'"
If txtSearch = "" Then
MsgBox "Masukkan data dahulu!,vbexclamation"
Else
If Adodc1.Recordset.RecordCount > 0 Then
txtID = Adodc1.Recordset.Fields(0)
txtUsername = Adodc1.Recordset.Fields(1)
txtPassword = Adodc1.Recordset.Fields(2)
txtTelephone = Adodc1.Recordset.Fields(3)
txtEmail = Adodc1.Recordset.Fields(4)
MsgBox "Data ditemukan.", vbInformation, "Data User"
Else
MsgBox "Data tidak ditemukan", vbExclamation, "Data User"
Adodc1.Refresh
End If
End If
End Sub

• Double click Datagird, masukin script ini:

Private Sub DataGrid1_Click()
On Error Resume Next
txtID = Adodc1.Recordset.Fields(0)
txtUsername = Adodc1.Recordset.Fields(1)
txtPassword = Adodc1.Recordset.Fields(2)
txtTelephone = Adodc1.Recordset.Fields(3)
txtEmail = Adodc1.Recordset.Fields(4)
End Sub

5. Setting Adodc, Click kanan Adodc1 pilih ADODC Properties, pilih User Conection String lalu click Build. 
Pilih Microsoft Jet 4.0 OLE DB Provider » Next » Pilih database data_user.mdb yg sudah dibuat tadi. Click Test Connection, maka akan tampil tampilan permberitahuan success.

oh ya, properties Adodc1 nya Visible rubah menjadi False.
Save Project VB di satu folder database tadi.

Good work. Coba jalankan aplikasinya .. gimana hasilnya bagus / error error. berbagi lh pengalamanmu di kotak komentar :)..
mau full projectnya ? commentar aja ntar di replykan link downloadnya .

Komentar →