SOAL LATIHAN
1. Apa yang kamu ketahui tentang Array itu?jelaskan!
2. Apa yang kamu ketahui tentang database itu?jelaskan!
3. Jelaskan langkah-langkah dalam pembuatan database , tabel serta field secara benar!
4. Jelaskan langkah-langkah pembuatan koneksi database menggunakan ADODC secara runtut dan benar!
5. Jelaskan potongan kode program berikut ini!
Private Sub Command4_Click()
adoku.Refresh
If adoku.Recordset.EOF Then
Exit Sub
End If
adoku.Recordset.Delete
End Sub
6. Jelaskan istilah-istilah dibawah ini!
Connect
Database Name
Record Source
EOF Action
Record Set Type
7. Apa yang kamu ketahui tentang recordset? Sebutkan beberapa metode yang dimiliki recordset!
8. Jelaskan kode program dibawah ini!
Private Sub Command2_Click()
If Text1.Text = "" Then
x = MsgBox("kode masih kosong", vbOKOnly, "gagal simpan")
Exit Sub
End If
adoku.Recordset.AddNew
adoku.Recordset!kode = Text1
adoku.Recordset!nama = Text2
adoku.Recordset!satuan = Text3
adoku.Recordset!harga = Text4
adoku.Recordset.Update
End Sub
PEMBAHASAN
1. Array dalam bahasa Indonesia adalah indeks, maka variabel array adalah variabel yang mempunyai indeks. Sehingga penulisannya adalah var(indeks). Array adalah sebuah variabel memori yang berisi beberapa data sejenis. Data-data tersebut disimpan dengan nomor urut tertentu yang disebut index.
Pendefinisian Variabel Array :
Dim nama_variabel (index) As tipe_variabel
Contoh
Dim hari(6) As String ‘7 index : 0, 1, 2, …, 6
Dim bulan(11) As String ’12 index : 0, 1, 2, …, 12
Index (jumlah elemen pada array) selalu diulai dari 0. Jika diinginkan nilai awal bisa diubah dengan perintah option base pada bagian declaration.
2. Database adalah kumpulan beberapa data yang saling berhubungan berdasarkan kode-kode tertentu sehingga membentuk sebuah sistem. Character sebagai satuan data terkecil dikumpulkan menjadi field (kolom), kumpulan field membentuk sebuah record (baris), beberapa record disimpan dalam file (tabel), dan kumpulan file akan membentuk sebuah database.
3. Langkah-langkah membuat database (bisa di praktikkan sendiri)
4. Langkah-langkah membuat ADODC
a. Masukkan adodc dari toolbox kedalam form
b. Klik kanan pada adodc,pilih adodc properties
c. Pilih use conection string, klik build pilih Microsoft jet 3.51 OLE DB Provider (jika menggunakan database acces)
d. Klik next, kemudian cari nama database yang akan dikoneksikan
e. OK, kemudian klik recordsource pilih 2-adCmd table
f. Pilih tabel yang akan dikoneksikan
g. Ok.selesai
5. Penjelasan kode program
Private Sub Command4_Click()
Ketika command 4 mendapatkan event klik
adoku.Refresh
adodc dengan nama adoku refresh
If adoku.Recordset.EOF Then
Jika adoku terletak pada record terakhir, maka
Exit Sub
Keluar dari sub (menghindari error, jika didel tapi tidak ada data pada database)
End If
adoku.Recordset.Delete
perintah untuk menghapus record yang dipilih
End Sub
Perintah berakhir
6. Jenis-jenis Kontrol data
Connect
Hubungan file data, bisa bersumber dari Access, Dbase, Excel, Foxpro, Lotus,
Paradox, dan file Text.
• Database Name
Menyatakan nama file database (.mdb) yang digunakan.
• Record Source
Diisi tabel yang digunakan.
• EOF Action
Pengecekan pergerakan kursor. Jika kursor sampai pada akhir file, maka terdapat 3
pilihan properti ; MoveLast (record terakhir), EOF (akhir file), AddNew (menambah
record baru).
• Record Set Type
Tipe record ; 0 – Tabel, 1 – Dynaset, 2 – Snapshot.
7. Record set adalah status record yang menunjukkan tindakan apa yang akan dilakukan terhadap record tersebut dengan beberapa metode antara lain :
AddNew untuk Menambah record baru
MoveFirst untuk Pindah ke record pertama
MovePrevious untuk Pindah 1 record ke depan
MoveNext untuk Pindah 1 record ke belakang
MoveLast untuk Pindah ke record terakhir
Delete untuk Menghapus record
FindFirst untuk Mencari dari record pertama
NoMatch Record yang dicari tidak ada yang sama
EOF Berada di record yang terakhir
BOF Berada di record yang pertama
Edit untuk Merubah record
Update Menyimpan perubahan record
CancelUpdate Membatalkan perubahan record
8. Penjelasan kode program
Private Sub Command2_Click()
Ketika command 2 mendapatkan event klik
If Text1.Text = "" Then
Jika text 1 kosong maka
x = MsgBox("kode masih kosong", vbOKOnly, "gagal simpan")
menampilkan kotak pesan kode masih kosong
Exit Sub
Keluar dari sub
End If
adoku.Recordset.AddNew
pesan record pada field tabel database
adoku.Recordset!kode = Text1
inputan dari text1 masuk pada field kode
adoku.Recordset!nama = Text2
inputan dari text2 masuk pada field nama
adoku.Recordset!satuan = Text3
inputan dari text3 masuk pada field satuan
adoku.Recordset!harga = Text4
inputan dari text4 masuk pada field harga
adoku.Recordset.Update
database melakukan perubahan
End Sub
pembahasan soal dapat didownload disini.silahkan klik
0 komentar:
Posting Komentar