Soal Latihan

1.  rsBrgadalah sebuah variabel bertipe Recordset. Apa
fungsi perintah rsBrg.MovePrevious?
A. Pindah ke record sebelumnya 
B. Pindah ke record berikutnya
C. Pindah ke field sebelumnya
D. Pindah ke recordset sebelumnya
E. Pindah ke data semaunya.

2.  dbConnbertipe ADODB.Connection. Apa fungsi
perintah dbConn.CursorLocation =
adUseClient?
A. Memindah kursor ke sisi server 
B. Mindahkan kusor ke sisi client
C. Memindahkan cursor ke sisi client-server
D. Mematikan kursor di sisi client
E. Memindahkan kursor ke sisi lain

3.  Apa tujuan perintah berikut ?
Public dbConn As New ADODB.Connection
If dbConn.State = adStateClosed Then
dbConn.Open strConn
End If
A. Membuka koneksi jika koneksi dalam keadaan
terbuka
B. Membuka koneksi jika koneksi dalam keadaan 
tertutup 
C. Membuka status koneksi
D. Membuka recordset jika dalam keadaan tertutup
E. Membuat string connection.

4.  rsBrgbertipe recordset. Apa fungsi perintah
rsBrg.MoveLast?
A. Pindah ke data EOF
B. Pindah ke cell terakhir
C. Pindah ke table terakhir
D. Pindah ke record terakhir 
E. Cek kosong atau tidak

5.  rsBrg bertipe recordset. Apa fungsi perintah
rsBrg.Requery?
A. Merefresh query data pada rsBrg
B. Menampilkan data pada rsBrg
C. Mencari data pada rsBrg
D. Menset datagrid pada rsBrg
E. Memasukkan semua data query dalam tabel

6.  Kode program manakah yang menyatakan pengecekan
sebuah pencarian pada recordset (rsBrg) dikatakan
tidak ditemukan ?
A. Not rsBrg.EOF
B. rsBrg.BOF
C. rsBrg.MoveLast
D. rsBrg.EOF
E. rsBrg.Find

7.  Berikut ini yang tidak termasuk section pada data
report.
A. Report Header
B. Page Header
C. Group Header
D. Report Detail
E. Project Report 

8.  Berikut adalah parameter yang digunakan pada
konfigurasi koneksi database SQL Server adalah
sebagai berikut, kecuali … .
A. Server
B. User  ID
C. Password
D. Database
E. Koneksi 

9.  Fungsi ADODC adalah … .
A. Sebagai komponen untuk menampilkan data dalam
bentuk tabel
B. Sebagai  jembatan penghubung koneksi database 
dengan VB 
C. Sebagai variabel untuk menyimpan SQL Query
D. Sebagai komponen untuk membuat report
E. Sebagai komponen untuk menginputkan data

10. Property Datagrid yang harus diatur ketika akan
mengambil data yang disimpan pada recordset adalah
… .
A. Datasource 
B. Recordsource
C. Caption
D. Recordset
E. Datamember

11. Metoda execute yang ada pada object connection
berfungsi untuk … .
A. Memulai transaksi baru
B. Membuka  koneksi
C. Mengeksekusi pernyataan SQL Query 
D. Menutup objek atau koneksi
E. Membuat koneksi antara aplikasi dengan sumber data
eksternal

Perhatikan pernyataan dan kode di bawah ini:
  Telah dibentuk database, table dan data seperti SQL berikut:
create database penjualan
go
use penjualan
go
create table barang (
kodebr char(5) primary key,
namabr varchar(50) not null,
hargabr money default 0,
jumlahbr int default 0)
insert into barang values('b001','Keyboard Microsoft',500,20)
insert into barang values('b002','Mouse Genius',200,40)
insert into barang values('b003','VGA G-Force',500,20)
insert into barang values('b004','RAM Visipro',400,80)
insert into barang values('b005','Modem HSDPA',800,15)

 Pertanyaan No.12 sampai 26 adalah melengkapi kode program berikut.
Private dbConn As New ADODB……………(12)
Private strConn As String
Dim WithEvents rsBarang As ADODB.Recordset
Dim sqlBarang As ……………(13)
Private Sub Form_Load()
strConn = "Driver={SQL Server};Server=;Database=……………(14);uid=;pwd=;"
dbConn.……………(15)= adUseClient
If dbConn.State = ……………(16)Then
dbConn. …………… (17)strConn
End If
Me.Caption = "……………(18)"
sqlBarang = "select * from barang"
Set rsBarang = dbConn.Execute(sqlBarang)
Set DataGrid1. ……………(19)= rsBarang
End Sub
Private Sub cmdDelete_Click()
Dim sql As String
Dim jwb As Integer
jwb = MsgBox("Anada yakin menghapus ?", vbQuestion + vbYesNo, "Konfirmasi")
If jwb = vbYes Then
sql = "delete from barang where kodebr='" & txtKodeBr & "'"
dbConn.Execute ……………(20)
……………(21).Requery
End If
End Sub
Private Sub cmdPrint_Click()
Dim sql As String
Dim rsHasil As New ADODB.Recordset
Dim DE As New DataEnvironment1
Set DE = New DataEnvironment1
sql = "select * from barang"
Set rsHasil = ……………(22).Execute(sql)
DR_Print_All.Show
End Sub
Private Sub cmdSave_Click()
Dim sql As String
sql = "insert into barang ……………(23)('" &
txtKodeBr & "','" & txtNamaBr & "'," &
txtHargaBr & "," & txtJumlahBr & ")"
dbConn.Execute sql
rsBarang.Requery
End Sub
Private Sub cmdSearch_Click()
Dim sql As String
Dim ……………(24)As New ADODB.Recordset
sql = "select * from barang where kodebr='" & txtSearch.Text & "'"
Set rsSearch = dbConn.Execute(sql)
If ……………(25)Then
MsgBox "Data tidak ada"
Else
txtKodeBr.Text = rsSearch("kodebr")
txtNamaBr.Text = rsSearch("namabr")
txtHargaBr.Text = rsSearch(2)
4
txtJumlahBr.Text = rsSearch(3)
End If
End Sub
Private Sub cmdUpdate_Click()
Dim sql As String
sql = "update barang set kodebr='" & txtKodeBr & "',namabr='" &
txtNamaBr & "',hargabr=" & txtHargaBr & ",jumlahbr=" &
txtJumlahBr & " where kodebr='" & txtKodeBr & "'"
……………(26).Execute sql
rsBarang.Requery
End Sub
Pilihlah jawaban yang paling tepat untuk mengisi kode program yang kosong dan bernomor di atas.

12. Pilihlah jawaban yang paling tepat untuk nomor
ini.
A. Recordset
B. String
C. Connection
D. SQL
E. WithEvents

13. Pilihlah jawaban yang paling tepat untuk nomor
ini.
A. Integer
B. Char
C. Boolean
D. String
E. Byte

14. Pilihlah jawaban yang paling tepat untuk nomor
ini.
A. 172.0.0.1
B. Penjualan
C. Barang
D. rsBarang
E. Database

15. Pilihlah jawaban yang paling tepat untuk nomor
ini.
A. Record
B. Recordset
C. Connection
D. CursorLocation
E. Location

16. Pilihlah jawaban yang paling tepat untuk nomor
ini.
A. adStateClosed
B. adConnectionClosed
C. adDatabaseClosed
D. adLocationClosed
E. adDatabaseClosed

17. Pilihlah jawaban yang paling tepat untuk nomor
ini.
A. Connect
B. State
C. Open
D. Closed
E. StrConn

18. Pilihlah jawaban yang paling tepat untuk nomor
ini.
A. Form Datarid1
B. Form Data Barang
C. Form Pengolahan Data Barang
D. Form1
E. sql

19. Pilihlah jawaban yang paling tepat untuk nomor
ini.
A. RecordSource
B. RecordMember
C. RecordFormat
D. DataSource
E. SetDataSource
20. Pilihlah jawaban yang paling tepat untuk nomor
ini.
A. Sql
B. Structured Query Language
C. String
D. Select
E. Insert

21. Pilihlah jawaban yang paling tepat untuk nomor
ini.
A. rsBrg
B. Recordset
C. DataSource
D. rsBarang
E. Query

22. Pilihlah jawaban yang paling tepat untuk nomor
ini.
A. dbConn
B. Conn
C. ADODB.Recordset
D. rsHasil
E. DataEnvironment

23. Pilihlah jawaban yang paling tepat untuk nomor
ini.
A. penjualan
B. barang
C. set
D. dbConn
E. values

24. Pilihlah jawaban yang paling tepat untuk nomor
ini.
A. rsBarang
B. EOF
C. rsSearch
D. Cari
E. rsCari

25. Pilihlah jawaban yang paling tepat untuk nomor
ini.
A. rsSearch.BOF
B. BOF
C. EOF
D. rsSearch.EOF
E. rsSearch.MoveLast

26. Pilihlah jawaban yang paling tepat untuk nomor
ini.
A. sql
B. BOF
C. EOF
D. rsBarang
E. dbConn 

Written by Unknown

We are Creative Blogger Theme Wavers which provides user friendly, effective and easy to use themes. Each support has free and providing HD support screen casting.