Membuat Data Siswa menggunakan Adodc dan DataGrid

Datagrid dan Adodc

---

Assalamu'alaikum. teman...

pada kesempatan kali ini saya akan membagikan hasil program yang telah saya buat, beserta kodenya.

Di bawah ini adalah gambar program yang telah jadi

Di sana ada tombol "Cetak" ,  berfungsi untuk print data siswa yang telah tersimpan

lalu di bawah ini adalah kodenya

1. Kode untuk tombol Simpan

Me.Adodc1.Recordset.AddNew
Me.Adodc1.Recordset!nis = Text1.Text
Me.Adodc1.Recordset!nama = Text2.Text
Me.Adodc1.Recordset!program = Me.Combo1.Text
Me.Adodc1.Recordset.Update

MsgBox "Data Berhasil di Simpan", vbInformation, "Penyimpanan Data"
Me.Text1.Text = ""
Me.Text2.Text = ""
Me.Combo1.Text = ""
Me.Text1.SetFocus

Keterangan: kode ini berfungsi untuk menambahkan data siswa ke DataGrid, ketika kita input pada textbox dan combo lalu kita klik tombol "simpan"

2. kode untuk tombol Batal

kode ini berfungsi untuk mengosongi semua textbox dan combo ketika terdapat input.
Dibawah ini adalah kodenya

Me.Text1.Text = ""
Me.Text2.Text = ""
Me.Combo1.Text = ""
Me.Text1.SetFocus

3. Kode untuk tombol Hapus

Kode ini berfungsi untuk menghapus data yang telah tersimpan di DataGrid, penulisan kodenya sangat singkat...

Me.Adodc1.Recordset.Delete

4. Kode untuk tombol Edit

Ketika kita akan melakukan perubahan pada data siswa yang telah tersimpan kita bisa melakukan cara ini
Tuliskan kode di bawah ini pada tombol Edit

Me.Adodc1.Recordset!nis = Text1.Text
Me.Adodc1.Recordset!nama = Text2.Text
Me.Adodc1.Recordset!program = Me.Combo1.Text
Me.Adodc1.Recordset.Update

MsgBox "Data Telah Dirubah", vbInformation, "Perubahan Data"
Me.Text1.Text = ""
Me.Text2.Text = ""
Me.Combo1.Text = "Pilih Jurusan Anda"
Me.Text1.SetFocus

sebenarnya kode ini sama dengan kode pada tombol simpan, tetapi perbedaannya adalah tidak ada kode Me.Adodc1.Recordset.Addnew

Karena kita tidak menambahkan record baru ke dalam DataGrid maka kita tidak perlu menuliskan kode tersebut.

5. Untuk menampilkan isi dari record ke textbox tuliskan kode ini pada DataGrid

Me.Text1.Text = Adodc1.Recordset!nis

Me.Text2.Text = Adodc1.Recordset!nama

Me.Combo1.Text = Adodc1.Recordset!program

6. Agar tidak terjadi eror ketika kita menggeser data ke bagian paling bawah dan ke bagian atas, ketik kode berikut pada Adodc1

If (Me.Adodc1.Recordset.EOF Or Me.Adodc1.Recordset.BOF) Then

End If

Cara koneksikan Adodc dengan Access

1. Klik Kanan pada Adodc, lalu pilih Adodc Propertis, lihat gambar di bawah ini untuk lebih jelasnya

2. Lalu akan muncul jendela seperti ini

3. pilih Use Connection String, dan Klik Build

Klik tab Provider lalu pilih Microsoft Jet 3.51 OLE DB Provider, biasanya terletak di urutan paling atas. Lalu klik next, secara otomatis kita berada pada tab connection.

ikuti langkah pada gambar di bawah ini

Jika sudah di klik maka kita harus mencari dimana letak kita menyimpan database yang di buat menggunakan Microsoft Access, jika sudah klik Open...

Sekarang kita otomatis kembali ke tab connection lagi, setelah kita memilih database tadi.

Lalu kita coba tes connection nya dulu, apakah berhasil atau tidak...

ikuti gambar di bawah ini

jika sudah berhasil kita klik OK, jangan kita keluarkan dulu Adodc Propertis nya, sekarang kita menuju ke tab Record Source....

Pada Command Type pilih yang 2-adCmdTable, dan pada bagian Table or Stored Procedure Name, kita pilih nama tabel yang telah kita buat pada database...Jika semua sudah Kita Klik OK

Sekarang Pada DataGrid pada propertis di bagian DataSource pilih Adodc1

Semoga Ilmu ini bisa bermanfaat bagi kita semua