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

Read More

Fungsi Percabangan IF...Then...Else di VB.6.0

IF...Then...Else

---

Assalamu'alaikum ....
Nah di sini saya akan berbagi ilmu tentang Fungsi IF...Then...Else

If berfungsi untuk menjalankan pernyataan secara kondisional,  Saya akan berikan contoh kode penulisan IF


If (Kondisi) then
    (Pernyataan 1) ' Pernyataan yang di kerjakan apabila kondisi terpenuhi
elseif
   (Pernyataan 2) 'Pernyataan yang di kerjakan apabila kondisi terpenuhi
else
   (Pernyataan 3) 'Pernyataan yang di kerjakan apabila kondisi tidak terpenuhi
end if


Sebagai contoh saya akan membuat sebuah program sederhana,
Buat design form seperti di bawah ini

Design form nya seperti di atas....

jika sudah selesai men design form, sekarang kita tulis listing programnya

• klik 2 kali pada command button 1

mengapa?? karena even akan terjadi saat command button 1 di klik

tulis listing programnya di bawah ini

Private Sub Command1_Click()

If Text1.Text > 200000 Then

Text2.Text = Text1 * 0.15

Text3.Text = "Gelas Cantik"

Else

    MsgBox "Tidak Ada Bonus dan Hadiah", vbInformation, "Peringatan"

End If

End Sub

• Nah sekarang akan saya jelaskan apa tujuan dari listing program tersebut...

jika kita berbelanja sampai dengan 200000 maka kita akan mendapat kan hadiah 15% dari uang kita dan mendapat satu "gelas cantik", seperti gambar di bawah ini

Nah, dari gambar di atas sudah terlihat jelas, jika kita berbelanja lebih dari 200000 maka akan mendapat hadiah dan bonus uang...

jika kita berbelanja kurang dari 200000 maka, akan terlihat seperti gambar di bawah ini

ini adalah fungsi dari msgbox....jika kita berbelanja dengan pengeluaran kurang dari 200000 makan akan muncul kotak pesan / pemberitahuan bahwa "Tidak ada Bonus dan Hadiah"...

Di sini ada satu tombol yang ketinggalan, yaitu tombol command button 2 "Baru"...

tombol ini saya fungsikan untuk membersihkan text1, text2, dan text3, ketika ada input berupa huruf atau angka...

ini kode nya

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Sekian dari saya, apabila ada kurangnya saya mohon maaf yang sebesar - besarnya...

Semoga ilmu yang saya bagikan bisa bermanfaat bagi kita semua

Wassalamu'alaikum

Read More