PRAKTIKUM 1 ( PENGGUNAAN ADO )

PRAKTIKUM VB2 FTI-UNISBANK 2010

PRAKTIKUM 1 ( PENGGUNAAN ADO ) Tujuan : Agar mahasiswa dapat menggunakan : 1. Menggunakan module 2. Menggunakan ADODB (menambahkan referens) 3. Menggunakan method openconnection,openrecordset 4. Membuat entry data dan laporan sederhana Persiapan : Menjalankan program Visual Basic, mengikuti Percobaan yang diberikan sesuai dengan urutannya. Mengerjakan Latihan-latihan yang diberikan. Pekerjaan : Membuat sebuah Form dan module, merubah property, dan mengetikkan sedikit program Hasil : Sebuah program sederhana, untuk mengkoneksikan database dengan Visual Basic module

Pre Test 1. Apakah saudara telah mengenal Visual Basic module 2. Apakah saudara pernah menggunakan ADODB 3. Apakah saudara mengoneksi database dengan method OpenConnection, openrecordset 4. Apakah saudara pernah membuat entry data dan laporan sederhana

Teori Module pada Visual Basic Visual Basic menyediakan module yang dapat digunakan untuk memuat fungsi, subrutin, konstanta, variabel dan ciptaan yang akan disediakan bagi seluruh project.

Deklarasi Variabel pada Module Pada module anda dapat mendeklarasikan variabel dengan awalan DIM, PRIVATE, maupun PUBLIC, dimana awalan DIM dan PRIVATE anda membentuk variabel Module Level (Hanya berlaku didalam pemakaian module bersangkutan), sedangkan awalan PUBLIC akan menghasilkan variabel Global yang akan berfungsi bagi keseluruhan Program. Contoh : Dim A as Integer Private B as Integer Public C as Integer

'Variabel A adalah modul level 'Variabel B adalah modul level 'Variabel C dapat digunakan program 'keseluruhan

31


Deklarasi Fungsi dan Sub Sub dan function yang dideklarasikan dalam suatu module bersifat global bagi keseluruhan program, kecuali kalau diawali dengan awalan PRIVATE. Contoh : Sub Tengah(x) x.top = (Screen.Height – x.height) / 2 End Sub

Mengenal Procedure Procedure digunakan untuk memadatkan tugas-tugas berulang ataupun proses yang digunakan bersama, seperti perhitungan yang sering dilakukan, text dan manipulasi kontrol, serta operasi database. Ada beberapa jenis procedure yang digunakan dalam Visual Basic 1. Sub Procedure yang tidak mengembalikan nilai 2. Function Procedure yang mengembalikan nilai 3. Property Procedure yang dapat mengembalikan nilai dan diisi nilai yang mengacu pada suatu objek.

Sub Procedure Syntax penulisan Sub Procedure [Private|Public][Static] Sub nama_procedure(argumen) Pernyataan-pernyataan End Sub Setiap kali procedure dipanggil, maka pernyataan-pernyataan yang berada di antara Sub dan End Sub akan dijalankan. Argumen pada procedure adalah nilai yang akan dilewatkan saat pemanggilan procedure. Contoh : Sub Tengah(x) x.Top = (Screen.Height – x.height) / 2 x.Left = (Screen.Width – x.Width) / 2 End Sub Private Sub Form_Load() Call Tengah(Me) End Sub

32

Function Procedure


Pada Visual Basic telah tersedia berbagai fungsi bawaan seperti Sqr, Cos, dan Chr, tetapi fungsi-fungsi yang tersedia tersebut bersifat umum dan kadang-kadang tidak memenuhi kebutuhan programmer, untuk keperluan tersebut anda dapat menciptakan fungsi-fungsi sendiri yang dikenal dengan Function Procedure. Syntax penulisan Function Procedure [Private|Public][Static] Function nama_procedure(argumen) [As type] Pernyataan-pernyataan End Function Ada tiga perbedaan antara function dan procedure 1. Umumnya anda dapat memanggil suatu function dengan mengikut nama function sisi kanan dari statement atau ekspresi. 2. Function memiliki type data seperti suatu variabel. Ini menentukan type yang dari nilai yang di kembalikan 3. Nilai kembali dimasukkan ke nama function itu sendirinya, dan suatu function dapat menjadi bagian dari suatu ekspresi yang panjang. Contoh : Function Bulan(x as Date) as string Dim bln as string Select Case Month(x) Case 1: bln = "Januari" Case 2: bln = "Februari" Case 3: bln = "Maret" Case 4: bln = "April" Case 5: bln = "Mei" Case 6: bln = "Juni" Case 7: bln = "Juli" Case 8: bln = "Agustus" Case 9: bln = "September" Case 11: bln = "Nopember" Case 12: bln = "Desember" End Select Bulan = bln End Function

Database Suatu database merupakan koleksi dari informasi yang berhubungan dengan subyek atau fungsi tertentu, seperti menangani nilai-nilai ujian mahasiswa. Jika database anda tidak tersimpan pada komputer, maka anda harus menangani informasi tersebut dari berbagai sumber (berkas) dan mengkoordinir serta mengorganisasinya sendiri.

33

PRAKTIKUM VB2 FTI-UNISBANK 2010 Dengan menggunakan suatu Sistem Manajemen Database (DBMS) anda dapat menempatkan database anda dalam suatu file, dan mengorganisasikannya menjadi table-tabel, dan mengkoordinir data tersebut menjadi laporan dengan berbagai fasilitas seperti Form, Query, Report.

Mengenal ADO DAO merupakan suatu Object Data Access Yang berukuran besar meliputi kemampuan Data Definition, Data Manipulation dan Database Maintenance, sedangkan pada ADO, masing-masing fungsi tersebut dipisah menjadi objek tersendiri yaitu ADOX, ADO, dan JRO.

Mengenal ADODB ADODB merupakan data control yang disediakan Visual Basic 6.0 untuk menggantikan data control yang berbasis DAO. Salah satu keunggulan ADODB adalah kemampuan mengakses database Access 2000 keatas (dengan menggunakan Microsoft.Jet.OLEDB.4.0), ADODB merupakan suatu jembatan antara user interface anda dengan OLEDB. OLEDB merupakan suatu himpunan dari Component Objek Model (COM) yang menyediakan akses secara seragam ke berbagai data yang disimpan dalam format yang berbeda.

Percobaan 1. Buat sebuah project Standard Exe baru 2. Untuk membuat module dalam project anda dapat menggunakan perintah Project, Add Module.

Sesaat setelah anda menambahkan module, maka Jendela Project Explorer akan nampak Module1

34


Untuk melakukan koding, anda dapat melakukan double klik pada module tersebut

3. Untuk mengoneksikan database dengan ADODB anda harus mereferensi kan dengan cara klik Project, References.

Kemudian pilih Microsoft ActiveX Data Objects 2.7 Library

4. Membuat database dengan Access, diberi nama data.mdb. kemudian masukan database tersebut didalam folder project Visual Basic anda.

35


Kemudian membuat table dengan klik Create table in Design View

Kemudian buat table seperti berikut :

36


Dengan ketentuan : Field Name Data Type nrp(PK) Text(8) Nama Text(20) Alamat Text(20) Tabel tersebut diberi nama tmahasiswa dan keluar dari program Access 5. Kembali kedalam Visual Basic, kemudian mengoneksikan database yang baru dibuat dengan Visual Basic dengan menggunakan ADODB. Double klik pada Module1 , dan ketikan koding tersebut pada module1 Option Public Public Public

Explicit Cn As New ADODB.Connection Rs As New ADODB.Recordset Const Dbasefile = "data.mdb"

Public Sub buka() If Cn.State = adStateOpen Then Cn.Close Cn.Mode = adModeReadWrite Cn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source="+ _ App.Path + "\" + Dbasefile End Sub Public Sub eksekusiSQL(SQLstr As String) Cn.Execute SQLstr End Sub Public Sub OpenRecordset(SQLstr As String) If Rs.State = adStateOpen Then Rs.Close Rs.Open SQLstr, Cn, adOpenKeyset, adLockOptimistic, adCmdText End Sub

37

PRAKTIKUM VB2 FTI-UNISBANK 2010 Public Sub tutup() If Rs.State = adStateOpen Then Rs.Close Set Rs.ActiveConnection = Nothing Set Rs = Nothing If Cn.State = adStateOpen Then Cn.Close Set Cn = Nothing End Sub

6. Buat Form seperti dibawah ini

7. Membuka database, double klik pada form (masuk pada event Form_load()) Private Sub Form_Load() buka 'Diambil dari procedure yang ada di module End Sub

8. Double klik pada cmdsimpan untuk mengisi koding simpan data Private Sub cmdsimpan_Click() eksekusiSQL "INSERT INTO tmahasiswa values ('" & _ txtnrp.Text & "', " & _ "'" & txtnama.Text & "', " & _ "'" & txtalamat.Text & "');" End Sub

9. Double klik pada cmdcari untuk mengisi koding cari data Private Sub cmdcari_Click() OpenRecordset "SELECT nama,alamat from tmahasiswa " & _ " where nrp = '" & txtnrp.Text & "'" If Not Rs.EOF Then txtnama.Text = Rs.Fields!nama txtalamat.Text = Rs.Fields!alamat Else MsgBox "Maaf data tidak ada!", vbInformation, "Perhatian!" End If End Sub

38

PRAKTIKUM VB2 FTI-UNISBANK 2010 10. Double klik pada cmdhapus untuk mengisi koding hapus data Private Sub cmdhapus_Click() eksekusiSQL "Delete from tmahasiswa " & _ " where nrp = '" & txtnrp.Text & "';" End Sub

11. Double klik pada cmdedit untuk mengisi koding edit data Private Sub cmdedit_Click() eksekusiSQL "Update tmahasiswa " & _ " set nama = '" & txtnama.Text & "', " & _ " alamat = '" & txtalamat.Text & "'" & _ " where nrp = '" & txtnrp.Text & "';" End Sub

12. Double klik pada cmdlaporan untuk mengisi koding laporan data Private Sub cmdlaporan_Click() Form2.Show End Sub

13. Buat Form2 seperti dibawah ini

Dengan cara : Tambahkan komponen dengan cara tekan Ctrl+T kemudian pilih Microsoft Windows Common Controls 6.0 (SP6). Pilih Listview di bagian Menu toolbox. 14. Kemudian tambahkan koding di Form2 dibagian event Load.

39

PRAKTIKUM VB2 FTI-UNISBANK 2010 Private Sub Form_Load() Dim ch As ColumnHeader, lv As ListItem ListView1.View = lvwReport Set ch = ListView1.ColumnHeaders.Add(, , "NRP", 1300) Set ch = ListView1.ColumnHeaders.Add(, , "Nama", 2000) Set ch = ListView1.ColumnHeaders.Add(, , "Alamat", 2000) ListView1.GridLines = True ListView1.Enabled = True OpenRecordset "Select * from tmahasiswa;" If Not Rs.EOF Then Do Until Rs.EOF Set LV = ListView1.ListItems.Add(, , Rs.Fields!nrp) LV.SubItems(1) = Rs.Fields!nama LV.SubItems(2) = Rs.Fields!alamat Rs.MoveNext Loop End If End Sub

Latihan 1. Tambahkan field di database dan program anda : a. Tempat/Tanggal Lahir b. Kota c. No Telp 2. Sempurnakan program yang sudah ada tersebut, seperti mengosongkan isi form (Clear Form).

Laporan 1. Tuliskan kegunaan dari adodb 2. Cari di internet tentang connection string pada ado, dan buatkan connection stringnya untuk bisa menghubungkan database dengan mysql (yang telah menggunakan myodbc). 3. Buat koneksi diatas dengan menggunakan ADODC. 4. Buatlah summary untuk percobaan dan latihan yang telah dilakukan. 5. Buat kesimpulan untuk praktikum kali ini.

40

PRAKTIKUM 1 ( PENGGUNAAN ADO )

Recommend Documents