Database POKOK BAHASAN: © Database TUJUAN BELAJAR: Setelah mempelajari bab ini, diharapkan mampu: 1. Memahami dan mengenal database 2. Dapat membuat membuat database Ms.Access dan SQL Server 3. Dapat membuat aplikasi database dengan akses data lewat komponen ADO.Net 1. Dasar Tex Database adalah informasi yang tersimpan dan tersusun rapi di dalam suatu tempat, dan dapat dengan mudah dimanipulasi seperti menambah data, menghapus, mencari, mengatur informasi yang kita butuhkan 2. Komponen Database Komponen terbesar dalam suatu Sistem Database adalah Database itu sendiri, Data dalam database dapat dikelompokkan dalam beberapa tabel. Tabel merupakan kumpulan data sejenis. Sebuah tabel biasanya terdiri dari beberapa field (kolom) dan record (baris), sebuah field menerangkan sebuah informasi dalam tentang identitas data dalam tabel, sedangkan record menerangkan sebuah data dalam tabel secara lengkap. Hirarki dari sebuah database dapat dilihat pada gambar 7.1 Database =o Tabel1 Tabel2 Tabel3 Tabeln Fieldi | Field2 | Field3 | Fieldn Reci Rec2 Rec3 Recn Gambar 7.1 Hirarki Database 333. Mengenal Database Management System Database Management System atau yang biasa disingkat dengan DBMS merupakan perangkat lunak atau program komputer yang dirancang secara khusus untuk memudahkan pengelolaan database. Salah satu macam DBMS yang populer dewasa ini berupa RDBMS (Relational DataBase Management System), yang menggunakan model basis data relasional atau dalam bentuk tabel-tabel yang saling terhubungkan. Microsoft Access, Microsoft SQL Server dan MySQL merupakan contoh produk RDBMS. 4. Konsep Dasar Pemrograman Database Pemrograman Database (Database Programming) merupakan suatu bentuk pemrograman alternatif untuk pengolahan database. Dengan pemrograman database kita dapat secara leluasa mengatur tampilan dan alur Kerja sebuah database dengan lebih baik. Visual BASIC.Net merupakan salah satu bahasa pemrograman yang telah mendukung pemnrograman database. Visual BASIC.Net dapat dihubungkan dengan program aplikasi pengolah data lain seperti Access, MySQL, SQL Server dan sebagainya. Alur kerja pemrograman database dalam Visual BASIC.Net dapat dijelaskan melalui gambar 7.2; Program Aplikasi Database (Ms.Access, Ms.SQL Server, MySQl, dsb) Database Provider (ODBC, OLEDB, ADO.Net, dsb) Lingkungan Kerja Visual Basic.Net + Database Connector (Adode, Data, dsb) Komponen Visual Basic.Net Datagrid Datalist Datacombo Textbox dsb Gambar 7.2 Alur kerja pemrograman database dalam Visual Basic.Net 5. Koneksi Visual Basic.Net dengan Database (DBMS). Untuk dapat menghubungkan Visual Basic.Net dengan database, kita akan menggunakan komponen ADO Data Control (ADODC). Komponen ini dapat dihubungkan dengan beberapa komponen yang digunakan untuk mengakses data seperti textbox, datagrid, dsb. Data Provider Data provider bertanggung jawab untuk menyediakan dan menghubungkan koneksi ke database. NET Framework saat ini dilengkapi dengan dua DataProvider yaitu * SQL Data Provider yang dirancang hanya untuk bekerja dengan SQL Server 34‘+ Daya Provider OLEDB yang memungkinkan untuk terhubung ke database jenis lain seperti Access, MySQL dan Oracle. Setiap Data Provider terdiri dari kelas komponen berikut: * Object Connection yang menyediakan koneksi ke database ‘+ Object Command yang digunakan untuk mengeksekusi perintah ‘* Object DataReader yang menyediakan fungsi forward-only, read-only, recordset. 1. Praktikum | Database (Poin: 30) Membuat Database (Microsoft Access) Langkah-langkah dalam membuat database adalah sebagai berikut 1. Buatlah database dengan nama JualBuku.accdb [alu simpan kedalam folder Project ‘Anda > bin > debug kemudian rancanglah struktur tabel seperti berikut Type ‘Size Keterangan Kodelenis Text 2 Primary Key (PK) denis Text 50 2. Buatlah sebuah form baru pada Visual BASIC .NET, desain tampilan form sehingga didapat tampilan seperti pada gambar TeaBon 35‘Tambahkan sebuah module (klik kanan Project > Add > Module) kemudian tulislah kode program dibawah ini : Taports Systen.oata.oleob hedule Meduter Public Coon As OLeVaCannection Public da As OledeD=taidepte- Public ds As Dotaset Public end as clethconand Public rd Az olesbv=tanender Public Str Ac Strang Public Su2 Keneksi() ‘Str = "Provider=Miicrosoft.ACE.OLEDS.12.0;Data Sources" & Apslication,StartupPeth & ‘"\tualpuka acedb” conn = Naw olabaconnection(Str) IF Conn, State ~ Connscricnseas ‘conn.Ozent) ind TF end sud (loses thes end pocule Kemudian tuliskan kode program pada Form Jenis dibawah ini: “ports systen.2ata.OleDb ‘ub Kesong@) Textbox Cleae() Textond.Clear() Texter Focus() end Su Sub Eig) Texttond-Clear() Jes F000) end Sub Sub Terpildenie() Gp = New visusbatassacter(*Selact * Fran Tense", Conn) f= = ew bataser e.dlesr) fe. FLI(#s, Denis") Dnevrkevicws.Darasource = ds. Tables("en8s") DataerLdviewt nefresng) Sub aturerdaQ) Dataeridvewt.coluans(@).itdth = 60 DataGridView -Colunne() th = 200 DnrsGrfsview Coluens(d) henderTowe = "XO0E 2005" Detasridview .columns(1) neadertext = "Wai 8105" end Sub Private Sub Datadends_toad(eyval sender as object, Byval @ As Systen, {at Keneksi() (all Tarplizents() Gall kestne) ou aturerta() ras) Handles We.toad end cles 362, Praktikum II Database (Poin: 30) Mengembangkan Form pada praktikum | mengenai pembuatan form Data Jenis Buku dengan menambahkan fungsi Simpan, Ubah, Hapus, dan Batal. Langkah-langkahnya adalah sebagai berikut: ‘Tambahkan kode program berikut ini 5. Kode program button1 untuk Simpan 2° riots Sibu Cian sender Oe Oal « Satm rnin Bator. Cie Weston‘ Gelun lengap.- 1°) Textoatoon0 vt o1e0sComand( "Select * from Denis where Kode Denn , la Sinpen de String = “insert Into 2enls(fedevens,denis)valees *&_ SGew Tertton.tet & ya Tesetowteet A) cad = ew oicibccmard(Siapan, Com). Sri ceceethontueryO) __fapioe| stan sate take. wart (abd Tewtdenie() cnt xenon ens HRD _ Hegeestyle.tnforation, “rerhatin") 6. Kode program TextBox2 menentukan maksimum pengisian data Jenis Buku dan merubah huruf kecil menjadi huruf kapital jika menekan tombol Enter. rsa a etre eer ec, eA Sten Farmer) ss Te. PP enyenas = Er) Then sont = tena ath. 377. Kode program DataGridView pada saat Tabel DataGridView! diklik maka data akan langsung terisi ke Text8ox1 dan TextBox2. wivete sub Outatriview cellcontentClict(ayisl sender At Object, ayval e Ae Systenttndaer.Forms.cstncricvien sth Oatacriavind Rowe Item(s) e-TextBexd. Test = scells(@).Velue evTentBora Tent = ceelle(3).Vela 8. Kode program button2 untuk Ubah Sunte Sub Sutton? _ick( Gye sender & Oaject, B/Ual © Ae Syatem.Svrtirge) Handiex Button? Click Vegsoe("tode Jenis belum ofies”) TextBox Foeue() Exdt sub sonere kodeventsn'” & Texttow. Text & c= Wen oleo8canwsd(Ubah, Conn) ed. Executetenduery() Diaglon("uosh deta sutsee..1", VepBoxStyle.Enfermation, “Pechatian") Galt Tenpitaenis() st] teseng() Sextaoxt.F0ei2() ind 2F tnd Se 9._ Kode program button’ untuk Hapus EE Private Sub autton3 Click(Bjial sender Ar Qbject, Bal e Ax Systen.Cventsras) Handles Author’ Lick egaox( "Kode fuk below dttst") ‘extaoxs. Focus) TF Hessogeton.shon( "akin akan manghapus data Jenls * & TextSoxt.Text & 2, "o5y icroapesoisuttors.Veslo) = Windows.Forms.Oialogiesultves, Th cn = Now OlsDComand( “Delete Fram denis where Kodelenie-"™ & TextBonl Text & °°", Conn) rd. Executenonguery() Gall Korongt) Cali Tempiidents() ease ‘all Korongt) eat cna 10. Kode program button4 untuk Batal : Private Sub Button click(eyval sender As chject, sya eA Systen.cventirgs) Handles Buttond.cLick (ait Kesong() nd Sub 3811. Kode program TextBox1_KeyPress berfungsi sebagai validasi Kode Jenis jika kode jenis yang telah ada didalam Tabel Jenis maka TextBox! akan secara otomatis muncul data yang telah ada. f rivate Sub TentBoxtKeyPress(8yval sender As Object, ByVal e As System.Mindows.Forasoy?resstventrgs) Handles Teresocamcengsh > 9 Pecteyihr = Gr) Then end = hw olebScomana("Select * Frum Jens where Kodedenks seat) 1 rasatows = Tve Ten Tertona Text = a-sten() Textbona Focus) tse “atl 1580) Teton Focus() eat A TevtBond.Text & °°", Conn) 12. Kode program TextBox3 berfungsi sebagai TextBox pencarian data yang telah tersimpan di dalam Tabel Jenis. I Private Sub Textbox) CLick(Gylal sender fe Object, Bye « As Systen.cuanticge) Handles TextBon3.Click tnd = New olebicomand("Belect © From denis where Kodevente like "A" & TextBoxs.Text €"", com) a= new Clobsbatandspter("Select * Fron tents where Kodedents Iike "A" & TextBox3.Text & “X'*, conn) Faticds, “Dapet*) agtan(Dets Side sttanaken") fa Sub 3. Tugas (Poin 50) Buatlah Form yang dapat menyimpan data Mahasiswa, sebagai berikut: 1. NIM Nama Alamat No Telepon/HP email 39