Membuat program Simpan Update Delete Menggunakan Visual Basic 6.0 dan Microsoft Acces

Membuat program Visual Basic (simpan update delete) dengan koneksi Microsoft Acces 2010

- Muhammad Aditya Putra ( 37114049 )

Bab I. Pendahuluan

I. Gambaran Umum Visual Basic
Visual Basic pada dasarnya adalah suatu bidang komputer yang mempelajari cara-cara meningkatkan dan memudahkan komunikasi antara manusia dengan mesin komputer dengan cara mempercepat dan mempermudah untuk membuat aplikasi yang dijalankan di system aplikasi Microsoft windows.

Pembahasan Visual Basic pada makalah ini disusun dari berbagai referensi-referensi yang ada pada setiap persediaan media seperti internet dan buku-buku. Ada banyak aplikasi atau cara yang dapat dipakai dalam mengoperasikan mesin komputer untuk membuat animasi atau grafik yang berbentuk manipulasi atau tiga dimensi, dan salah satunya diantara semuanya yaitu Visual Basic.

Adapun pembahasan Visual Basic yang akan di disajikan pada makalah ini sebagai berikut :

A. Membuat program filing untuk memasukan data kelas ( Npm, Nama, Alamat, Tanggal Lahir )

B. Menggunakan bahasa pemrograman Visual Basic dan aplikasi Database Acces

C. Program dilengkapi dengan menu untuk
     - Memasukan data
     - Menambah data
     - Mengedit Data
     - Menghapus Data

Bab II. Pembahasan

II.I Cara membuat1. Buka Aplikasi Visual Basic 6.0 dan Microsoft Acces 2010
2. Buat Database dan isi dengan Field dan Format seperti dibawah ini

3. Inputkan data kelas seperti dibawah ini 

4. Buat tampilan pada visual basic seperti dibawah ini dengan menggunaka

   - 5 buah Label yang ditandai dengan warna biru

   - 4 buah TextBox yang ditandai dengan warna Merah
              - 6 Buah CommandButton ditandai dengan warna hitam
              - 1 buah Adodc
             - 1 buah DataGrid

5. Koneksikan VisualBasic dengan Acces dengan cara
   - Klik kanan pada Adodc1 dan pilih properties dan akan muncul tampilan dibawah ini


   - Pilih Use ODBC data source name klik new
   - dan ikuti langkah seperti dibawah ini
    

   

- Setelah selesai terkoneksi Hubungkan DataGrid dengan Adodc1 di propestis seperti dibawah  
   ini

-

- Masukan kodingan di tombol Insert
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Text1.SetFocus
End Sub

- kodingan di tombol Add New
Private Sub Command2_Click()
Adodc1.Recordset.Fields("npm") = Me.Text1.Text
Adodc1.Recordset.Fields("nama") = Me.Text2.Text
Adodc1.Recordset.Fields("alamat") = Me.Text3.Text
Adodc1.Recordset.Fields("tgl_lahir") = Me.Text4.Text
        MsgBox "Data Berhasil Disimpan..!!", vbOKOnly + vbInformation, "Konfirmasi"
 Me.DataGrid1.Refresh

-Masukan kodingan di Update
Private Sub Command3_Click()
Adodc1.Recordset.Update
Adodc1.Recordset!NPM = Text1.Text
Adodc1.Recordset!nama = Text2.Text
Adodc1.Recordset!alamat = Text3.Text
Adodc1.Recordset!tgl_lahir = Text4.Text
Me.DataGrid1.Refresh
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
MsgBox "Data Berhasil DiEdit..!!", vbOKOnly + vbInformation, "Konfirmasi"
End Sub
End Sub

- Masukan kodingan di Delete
Private Sub Command4_Click()
MsgBox "Data Berhasil Dihapus..!!", vbOKOnly + vbInformation, "Konfirmasi"
Adodc1.Recordset.Delete
End Sub

- Masukan kodingan Di Search
Private Sub Command5_Click()
Adodc1.Recordset.Find "npm = '" + Text1.Text + "'", , adSearchForward, 1
If Not Adodc1.Recordset.EOF Then
Me.Text1.Text = Adodc1.Recordset!NPM
Me.Text2.Text = Adodc1.Recordset!nama
Me.Text3.Text = Adodc1.Recordset!alamat
Me.Text4.Text = Adodc1.Recordset!tgl_lahir
Else
MsgBox "Maaf Kosong"
End If
End Sub

- Kodingan di Close
Private Sub Command6_Click()
Unload Me
End Sub

- Kodingan Di DataGrid1 fungsinya untuk menampilkan pada TextBox
Private Sub DataGrid1_Click()
Me.Text1.Text = Adodc1.Recordset!NPM
Me.Text2.Text = Adodc1.Recordset!nama
Me.Text3.Text = Adodc1.Recordset!alamat
Me.Text4.Text = Adodc1.Recordset!tgl_lahir
End Sub

II.II Output Program
-


- Jika di klik Insert akan memasukan data seperti dibawah ini


- Masukan data dan Klik Add New untuk menyimpan data  seperti dibawah ini


- Update data untuk mengedit data seperti dibawah ini


- Pilih data pada Daftar dan klik Delete untuk menghapus data


- Masukan pencarian data berdasarkan Npm dan Klik Search


- Data akan tercari

- Tombol Close (X) untuk keluar seperti dibawah ini
- Untuk mengurutkan data klik Tabel Field yang diinginkan seperti dibawah ini

dengan koding seperti dibawah ini
Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
Adodc1.Recordset.Sort = DataGrid1.Columns(ColIndex).DataField
End Sub

Bab II Kesimpulan