♥ Koneksi database Menggunakan Adodc || VB6

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

بِسْـــــــــــــــــمِ اللّهِ الرَّحْمَنِ الرَّحِيْم

Entri kali ini tentang koneksi database pada VB 6.0 menggunakan Adodc dan data akan di tampilkan menggunakan DataGrid. mungkin sebagian chum uda banyak yang faham soal ini, namun bagi pemula (yang baru belajar) agak kesulitan tata cara peng-koneksian VB 6.0 ke database.

satu catatan lagi, disini saya menggunakan database Microsoft Access 2003 (extension .mdb) disini saya menggunakan nama database koneksi.mdb dan nama tabelnya adalah tbkoneksi.

berikut cara koneksi database menggunakan Adodc.

buka form baru kemudian pada Tool Box paling bawah saja, lakukan klik kanan dan akan muncul pilihan Components, add tabs, dll >> silahkan anda pilih yang Components

 kemudian pilih dengan mencentang combox di samping "Microsoft ADO Data Control 6.0 (OLEDB)" dan "Microsoft DataGrid Control 6.0 (OLEDB)"seperti gambar di atas. klik tombol Apply -> ok.

kalau udah... masukkan commponen Adodc dan DataGrid ke dalam tampilan form seperti Gambar berikut.

 nah langkah-langkah koneksi databasenya adalah ^_^ :
 1. klik pada Adodc (kebetulan namanya adidc1). pilih ConnectionString pada properties klik tombol add dan akan muncul tampilan Property pages
 










klik tombol build maka akan masuk ke form Data Link Properties. -> pilih Microsoft Jet 4.0 OLE DB Provider -> klik tombol next ->Add tombol pada pilihan Select or Enter....... -> cari database koneksi.mdb (yang dibuat sebelumnya) -> lakukan test Connection dengan klik tombol Test Connection. jika terhubung maka akan muncul pesan "Test Connection Succeded".

 

2. masih pada properties -> pilih RecordSource -> add -> pilih tabel yang sudah dibuat sebelumnya (tbkoneksi)

3. Selanjutnya koneksi data untuk ditampilkan di DataGrid. silahkan klik DataGrid -> pada propertid pilih DataSource -> Pilih Adodc1, setelah itu klik kanan pada DataGrid -> pilih Retrieve Field -> ada pesan pilih tombol "Yes" 

Koneksi Adodc pada dataGrid

Apply Field

Add caption

Program Pada saat di jalankan

 semoga bermanfaat yah chum.... silahkan dicoba ^_^ good luck!!!!

 

♥ Pencarian Data >> VB6

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

بِسْـــــــــــــــــمِ اللّهِ الرَّحْمَنِ الرَّحِيْم

Halooooooo chum.......
posting kali ini aku mau sedikit share untuk pencarian data pada VB 6.0... yah mungkin sebagian besar dari chum semua udah tau, tapi apa salahnya donk kalau kali ini aku berbagi di post kali ini... hehhehe
semoga bermanfaat dan dapat membantu chum semua...


Untuk kasus pencarian data disini, aku mengambil tentang peminjaman buku di perpustakaan (karena kebetulan s/d tgl 2 des 2012 ini, aku bekerja di perpustakaan STMIK PPKIA Tarakanaita Rahmawati tarakan), yah iseng-iseng karena mau cuti melahirkan, kasian ntar teman yang aku tinggal pada kebingungan buat laporan peminjaman buku, karena untuk beberapa bulan ini laporan peminjaman buku perpustakaan dilakukan secara manual, sempat sebelumnya sih menggunakan Palikasi di Web, cuma database yang digunakan MYSQL nya lagi trouble chum n yang punya hak asis itu yah boz gede', alias ketia STMIK PPKIA... beliau lagi sibuk-sibuknya, padahal hal ini udah berapa kali kami laporkan dalam setahun...
loh-loh-loh... koq aku jadi curhat... xixixixixi.. ya udah.. langsung aja yah chum.... come on ^_^

Form Peminjaman Buku

Sederhana banget kan untuk tampilannya.. hehe
 untuk name pada text box aku ubah menjadi :
text1 = tanggal
text2 = tglkembali
text3 = nim
text4 = kodebuku1
text5 = kodebuku2
text6 = keterangan
nah chum.....
untuk listing pencarian, seperti biasa, aku tidak menggunakan tombol (commandbutton) melainkan menggunakan fungsi tombol enter "keypress 13"
so..... double klik pada textbox "nim" kemudian ubah menjadi keypress.
masukkan listing program berikut ;

If KeyAscii = 13 Then  ' fungsi kode 13 yaitu enter
   Adodc3.Recordset.MoveFirst  ' Pencarian pada tabel pinjaman mulai dari data pertama
   Adodc3.Recordset.Find "NIM='" & nim.Text & "'"  ' Pencarian dilakukan pada field nim

  If nim.Text = "" Then

     MsgBox "Masukkan NIM"

     nim.SetFocus 

  Else
     Adodc3.Recordset.MoveFirst
     Adodc3.Recordset.Find "NIM='" & nim.Text & "'"

     If Adodc3.Recordset.EOF Then     ' Pengujian, jika data tidak ada

       Adodc3.Recordset.AddNew

       MsgBox "Mhs dibolehkan Meminjam Buku"

       keterangan.Text = "Sedang meminjam buku"

       nim.Enabled = True

       kodebuku1.Enabled = True

       kodebuku2.Enabled = True

       keterangan.Enabled = True

       kodebuku1.SetFocus

    Else   ' Pengujian, jika data ada

        kodebuku1.Text = Adodc3.Recordset!kode1

        kodebuku2.Text = Adodc3.Recordset!kode2

        tanggal.Text = Adodc3.Recordset!tglp

        tglkembali.Text = Adodc3.Recordset!tglk

        keterangan.Text = Adodc3.Recordset!keterangan

              MsgBox "Mhs tidak boleh Meminjam Buku"

        nim.Enabled = False

        kodebuku1.Enabled = False

        kodebuku2.Enabled = False

        keterangan.Enabled = False

End If

Jika Pencarian data di temukan & Nim tersebut sedang meminjam buku

Jika Pencarian data tidak di temukan

Input data baru peminjaman Buku

 Silahkan chum jalankan programnya... mudahan berhasil dan bermanfaat yah... thank u udah mampir di blog sederhana ini yah chum ^_^


 

♥ Membuat Password di VB6

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

بِسْـــــــــــــــــمِ اللّهِ الرَّحْمَنِ الرَّحِيْم

Hal yang mudah dan sederhana... mudahan post kali ini bisa membantu chum semua yang lagi kebingungan untuk membuat form Password / Login untuk keamanan data chum..

disini kita tidak menggunakan database untuk penyimpanan data user dan password, kita buat yang mudah saja dulu dengan menyimpan data-nya pada listing program... ok chum... mari kita cikedot... ^_^

Buatkan form sederhana seperti gambar di samping.
- ubah name pada propertis textbox
text1 aku ubah namanya menjadi "user" dan text2 aku ganti menjadi "pass"
- double klik pada text2 / pass (untuk membuat listing programnya)

nah.... hati-hati chum sebelum mengetikkan listing program, karena disini aku menggunakan fungsi keypress (fungsi tombol enter).. supaya gak ribet pegang mouse pada saat menjalankan program. jadi pada saat double klik pad textbox pass, pilih perintah "keypress" seperti gambar dibawah ini.

 Ketik perintah listing berikut :

If KeyAscii = 13 Then 

    If user.Text = "lala" And pass.Text = "hanur" Then

    MsgBox "Welcome to My Blog"

    Else

   MsgBox "User / Password Anda Salah"

   user.SetFocus

End If
End If

Silahkan chum coba jalankan programnya... maka akan tampil berikut, jangan lupa masukkan user dan passwordnya yah chum ^_^ 

 Selamat mencoba ya chum.... semoga berhasil dan bermanfaat.... ^_^

Sincerelly

Lala ***