LAPORAN PEMROGRAMAN BASIS DATA JOB 2 “INSERT DATA” Disusun oleh : Nama : Dewi Setiana NIM : 3.34.14.1.05 PROGRAM STUDI TEKNIK INFORMATIKA JURUSAN TEKNIK ELEKTRO POLITEKNIK NEGERI SEMARANG 2015  INSERT DATA Tujuan Instruksional Khusus Setelah melakukan praktikum ini mahasiswa dapat : Memahami dan mempraktikkan program Insert data pada database menggunakan program visual basic. Memahami dan menggunakan kode program untuk tampil data dari database ke tabel pada program. Membuat aplikasi insert dan tampil data gambar pada database menggunakan visual basic. Memahami proses validasi data yang masuk pada insert data dengan program visual untuk membatasi data yang masuk pada database. Dasar Teori Memanipulasi Database Langkah-langkah memanipulasi data base: Mengkomunikasikan aplikasi dengan data base Mengubah database dengan cara insert, modify, dan delete data. Teknologi ADO.Net Microsoft ActiveX Data Objects.Net (ADO.Net) adalah sebuah model, bagian dari framework.Net yang digunakan oleh aplikasi .Net untuk retieve, access, dan update data. ADO Model Data terletak di dalam data store atau database adalah diambil dari data provider. Macam-macam komponen data provider mengambil data untuk application dan update data. Application mengakses data dari salah satu dari dataset atau data reader. Dataset menyimpan data didalam disconnected cache dan application mengambil dari dari disconnected cache. Data reader menyediakan data untuk application yang hanya dapat di baca dan hanya memiliki satu mode. Data Provider Data provider digunakan untuk koneksi ke database, mengeksekusi perintah dan mengambil data, menyimpan data dalam dataset, membaca data yang disimpan dan update database. Data Provider Object Data provider di dalam ADO.Net terdiri dari empat object, Connection Komponen ini digunakan untuk menyetting connection dengan data source. Command Command adalah SQL atau sebuah procedure yang disimpan yang digunakan untuk retrieve, insert, delete, atau modify data dalam data source. DataReader Data reader digunakan untuk mengambil data dari data source yang hanya dapat dibaca dan hanya memiliki satu mode. DataAdapter Data adapter adalah integral untuk bekerja pada ADO.Net sejak data ditransfer untuk dan dari sebuah database sampai ke data adapter. Data adapter mengambil data dari database ke dataset dan mengupdate database. Ketika perubahan terjadi pada dataset, perubahan pada database otomatis selesai oleh data adapter. DataSet Dataset adalah di dalam memori yang mereprentasikan data. Dataset adalah disconnected, memori menyetting records yang mengambil dari database. Ketika sebuah koneksi terjadi dengan database, data adapter membuat sebuah dataset dan menyimpan data di dataset, connection dengan database akan terputus. Hal ini disebut ‘disconnected architecture’. Dataset bekerja sebagai sebuah database virtual yang berisi tables, row, dan columns. Data Set Model Komponen Data Set Data TableCollection Data TableCollection berisi semua tabel yang diambil dari data source. DataRelationCollection DataRelationCollection berisi relationship dan link diantara tabel dalam data set. ExtendedProperties ExtendedProperties berisi penambahan informasi, seperti SQL untuk mengambil data, waktu pengambilan, dan lain-lain. DataTable DataTable mewakili sebuah tabel dalam DataTableCollection dari dataset. DataTable terdiri dari DataRow dan DataColumn objek. DataTable object bersifat case-sensitive. DataRelation DataRelation mewakili relationship di dalam DataRelationshipCollection dari dataset. DataRelation digunakan untuk merelasikan dua dataTable object yang lainnya dalam DataColumn object DataRowCollection DataRowCollection berisi semua rows dalam DataTable DataView DataView mewakili sebuah customized view yang pasti dari DataTable untuk sorting, filtering, searching, editing dan navigasi. PrimaryKey PrimaryKey mewakili column yang merupakan identitas unik sebuah row dalam DataTable. DataRow DataRow mewakili sebuah row dalam DataTable. DataRow object dan DataRow propertis dan method digunakan untuk retrieve, evaluate, insert, delete, dan update nilai dalam DataTable. NewRow method digunakan untuk membuat row baru dan Add method menambah sebuah row ke tabel. DataColumnCollection DataColumnCollection mewakili semua column dalam DataTable. DataColumn DataColumn berisi nomor dari column yang mengcomprise dataTable. Koneksi ke Database Framework .Net terdiri dari dua tipe kelas koneksi: SqlConnection, di design untuk koneksi ke Microsoft SQL Server. OleDbConnection, di design untuk koneksi yang memiliki jangkauan luas pada database, seperti Microsoft Access dan Oracle. INSERT DATA Teks Dengan memanfaatkan Objek Command OLEDBCommand dan menggunakan properties pada Objek Command diantaranya menggunakan deklarasi seperti berikut: Dim PerintahInsert As OleDbCommand Menggunakan properties CommandText untuk memberikan query insert berupa teks. Contoh: PerintahInsert.CommandText = “Insert into NamaTabel “(‘Field’)” Values “(‘Field’)”” Gambar Dengan memanfaatkan sebuah parameter dari objek OLEDB yaitu dengan menggunakan deklrasi : PerintahInsert.CommandText = “Insert into NamaTabel “(‘Field’)” Values “(@picture)””. Keterangan: @picture merupakan sebuah parameter gambar dari kolom yang bertipe OLE OBJECT PerintahInsert.Parameter.Add(“@picture”) VALIDASI DATA Validasi data adalah proses untuk memastikan bahwa program beroperasi pada data yang bersih, yang benar dan berguna. Menggunakan rutinitas, sering disebut " aturan validasi "atau" cek rutinitas ", yang memeriksa kebenaran, kebermaknaan, dan keamanan data yang masukan ke sistem. Aturan dapat diimplementasikan melalui fasilitas otomatis dari kamus data , atau dengan masuknya eksplisit program aplikasi validasi logika. Alat dan Bahan PC Processor minimal Pentium IV, RAM minimal 512 MB Microsoft Visual Studio 2013 Professional atau versi di bawahnya Microsoft Access 2013 Langkah Kerja/Percobaan Membuat database dengan Microsoft Access : Langkah pertama yang harus dilakukan adalah membuka Microsoft Access 2013 Membuat database baru dengan nama Akademik.accdb Membuat Tabel dan Record seperti berikut : Tabel Master_Mahasiswa Field Name Data Type Field_Size NIM Nama_Mhs Tempat_Lahir Tanggal_Lahir Alamat Kota Provinsi No_HP Email Foto Short Text Short Text Short Text Date/Time Short Text Short Text Short Text Short Text Short Text OLE Object 12 30 20 - 50 20 20 13 30 - Tabel Master_Dosen Field Name Data Type Field_Size NIP Nama_Dosen Tempat_Lahir Tanggal_Lahir Alamat Kota Provinsi No_HP Email Foto Short Text Short Text Short Text Date/Time Short Text Short Text Short Text Short Text Short Text OLE Object 20 30 20 - 50 20 20 13 30 - Tabel Master_MK Field Name Data Type Field_Size Kode_MK Nama_MK SKS Jam_Teori Jam_Praktek Short Text Short Text Number Number Number 7 20 Byte Byte Byte Tabel Master_Beasiswa Field Name Data Type Field_Size Kode_BS Nama_BS Intitusi_Sponsor Jumlah Short Text Short Text Short Text Currency 4 30 20 Standar Tabel Beasiswa Field Name Data Type Field_Size NIM Kode_BS Tahun_Akademik Short Text Short Text Short Text 12 4 9 Tabel Jadwal Field Name Data Type Field_Size Semester Tahun_Akademik Hari Jam Kelas Kode_MK NIP Short Text Short Text Short Text Short Text Short Text Short Text Short Text 2 9 6 10 5 7 20 Tabel Kehadiran Field Name Data Type Field_Size NIM Semester Tahun_Akademik Tanggal Ijin Sakit Alpa Short Text Short Text Short Text Date/Time Number Number Number 12 2 9 - Byte Byte Byte Tabel Kelas Field Name Data Type Field_Size NIM Kelas Short Text Short Text 12 5 Tabel Nilai Field Name Data Type Field_Size NIM Kode_MK Semester Tahun_Akademik Nilai Short Text Short Text Short Text Short Text Short Text 12 7 5 9 5 Tabel Prestasi Field Name Data Type Field_Size NIM Tanggal Tingkat Prestasi Short Text Date/Time Short Text Short Text 12 - 10 30 Membuat Relationship dari Record yang telah dibuat : Untuk membuat relationship pilih database tools pada menu kemudian pilih relationship. Untuk memasukkan tabel, pilih tabel yang akan dimasukkan kemudian klik add. Kemudian atur relationship sesuai dengan Primary Key dan Foreign Key dari masing-masing record dalam tabel. Membuat aplikasi Insert Data dengan menggunakan Visual Studio Langkah pertama adalah membuka aplikasi Visual Studio 2013 Kemudian membuat project baru dengan nama Akademik, kemudian buat form baru seperti pada gambar berikut. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut: Object Properties Nilai Form1 Text Form1 Label1 Text Form Pengisian Data Mahasiswa Label2 Text NIM Label3 Text Nama Label4 Text Tempat Lahir Label5 Text Tanggal Lahir Label6 Text Alamat Label7 Text Kota Label8 Text Provinsi Label9 Text No HP Label10 Text Email Label11 Text Foto TextBox1 Name TxtNIM TextBox2 Name TxtNama TextBox3 Name TxtTLahir TextBox4 Name TxtAlamat TextBox5 Name TxtNoHP TextBox6 Name TxtEmail TextBox7 Name TxtFoto DateTimePicker Name Tgl ComboBox1 Name Items CmbKota Kota Semarang; Kab Semarang; Kendal; Demak; Pati; Magelang; Wonosobo; Purwokerto; Blora; Lamongan; Rambang ComboBox2 Name Items CmbProvinsi Jawa Tengah ; Jawa Timur Button1 Name Text BtnBrowse Browse Button2 Name Text BtnSimpan Simpan DataGridView1 Name DataGridView1 PictureBox1 Name SizeMode PictureBox1 StretchImage Klik Ganda pada Form1, kemudian memasukkan kode program seperti berikut pada bagian paling atas atau di atas baris kode “Public Class Form1” Imports System.Data Imports System.Data.OleDb Imports System.IO Lalu di bawah baris kode “Public Class Form1” Tambahkan kode program sebagai berikut : Dim cnnOLEDB As New OleDbConnection Dim cmdOLEDB As New OleDbCommand Dim cmdInsert As New OleDbCommand Dim strConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _ System.Environment.CurrentDirectory & "\Akademik.accdb" Public ADP As OleDbDataAdapter Public DS As New DataSet Pada baris program diatas menunjukkan lokasi database yang digunakan yaitu file Akademik.accdb yang telah dibuat sebelumnya. Letakkan file tersebut pada folder project Akademik/bin/debug. Untuk mendeklarasikan ConnectionString memberikan batasan pada TextBox masukkan kode berikut: Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load cnnOLEDB.ConnectionString = strConnectionString cnnOLEDB.Open() TampilData() TxtNIM.MaxLength = 12 TxtNama.MaxLength = 30 TxtTLahir.MaxLength = 20 TxtAlamat.MaxLength = 50 TxtNoHP.MaxLength = 13 TxtEmail.MaxLength = 30 End Sub Tambahkan kelas TampilData() Sub TampilData() ADP = New OleDbDataAdapter("SELECT * FROM Master_Mahasiswa ORDER BY NIM", cnnOLEDB) DS = New DataSet ADP.Fill(DS, "Tabel1") DataGridView1.DataSource = DS.Tables("Tabel1") End Sub Tambahkan kelas Bersih() Sub Bersih() TxtNIM.Text = "" TxtNama.Text = "" TxtTLahir.Text = "" Tgl.Text = "" TxtAlamat.Text = "" CmbKota.SelectedText = "" CmbProvinsi.SelectedText = "" TxtNoHP.Text = "" TxtFoto.Text = "" TxtEmail.Text = "" PictureBox1.Image = Nothing End Sub Klik ganda pada Button Simpan kemudian masukkan kode program seperti berikut: Private Sub BtnSimpan_Click(sender As Object, e As EventArgs) Handles BtnSimpan.Click 'Declare a file stream object Dim o As System.IO.FileStream 'Declare a stream reader object Dim r As StreamReader 'Shorter variable name for FileStream (optional) Dim jpgFile As String = TxtFoto.Text 'Open image file o = New FileStream(jpgFile, FileMode.Open, FileAccess.Read, FileShare.Read) 'Read the image into a stream reader r = New StreamReader(o) If TxtNIM.Text <> "" And TxtNama.Text <> "" And TxtTLahir.Text <> "" And TxtAlamat.Text <> "" And CmbKota.Text <> "" _ And CmbProvinsi.Text <> "" And TxtNoHP.Text <> "" And TxtFoto.Text <> "" Then Try 'Declare a Byte array to hold the image Dim FileByteArray(o.Length - 1) As Byte 'Fill the Byte array with image byte data o.Read(FileByteArray, 0, o.Length) cmdInsert.CommandText = "INSERT INTO Master_Mahasiswa " & _ "(NIM, Nama_Mhs, Tempat_Lahir, Tanggal_Lahir, Alamat, Kota, Provinsi, No_HP, Email, Foto) " & _ "VALUES('" & TxtNIM.Text & "','" & TxtNama.Text & "','" & TxtTLahir.Text & "','" & Tgl.Text & "','" & TxtAlamat.Text & "','" & _ CmbKota.Text & "','" & CmbProvinsi.Text & "','" & TxtNoHP.Text & "','" & TxtEmail.Text & "', @Gambar)" cmdInsert.Parameters.Add("@Gambar", System.Data.OleDb.OleDbType.Binary, o.Length).Value = FileByteArray cmdInsert.CommandType = CommandType.Text cmdInsert.Connection = cnnOLEDB cmdInsert.ExecuteNonQuery() MsgBox("Record inserted") Catch ex As Exception MsgBox(ex.ToString) End Try Else MsgBox("Masukkan Data Secara Lengkap :") End If cmdInsert.Dispose() TampilData() Bersih() End Sub Klik ganda pada Button Browse kemudian masukkan kode program seperti berikut Private Sub BtnBrowse_Click(sender As Object, e As EventArgs) Handles BtnBrowse.Click Dim OpenFileDialog1 As New OpenFileDialog With OpenFileDialog1 .CheckFileExists = True .ShowReadOnly = False .Filter = "All Files |*.*|Bitmap Files(*)|*.bmp;*.gif;*.jpg|PNG Files(*)|*.png" .FilterIndex = 2 If .ShowDialog = Windows.Forms.DialogResult.OK Then PictureBox1.Image = Image.FromFile(.FileName) TxtFoto.Text = .FileName.ToString End If End With End Sub Untuk mengatur pada TxtNoHP agar hanya dapat menginputkan karakter angka (0-9) dan tanda plus (+) saja. Klik ganda pada TxtNoHP kemudian atur propertinya menjadi keypress pada kanan atas lembar kerja. Kemudian masukkan kode program sebagai berikut : Private Sub TxtNoHP_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles TxtNoHP.KeyPress If Asc(e.KeyChar) <> 8 And Asc(e.KeyChar) <> 43 Then If Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57 Then e.Handled = True End If End If End Sub Lembar Kerja No Praktik Hasil Kerja/Program 1 Pembuatan Tabel 2 ERD 2 Form 1 Pertanyaan dan Tugas Mengapa diperlukan validasi dalam proses input data. Jawab : Validasi dalam suatu pemrograman sangatlah penting karena validasi bertujuan untuk meminimalisir error yang terjadi. Selain itu juga tujuan utama dari validasi adalah untuk mengarahkan user mengisi data dengan tepat. Dalam pemrograman ada istilah mengatakan "Garbage In Garbage Out" artinya kira-kira jika Anda memasukkan data sampah yang keluar sampah juga. Oleh karena itu, validasi sangat diperlukan untuk programmer dalam membuat suatu program. Buatlah sub rutin untuk validasi alamat email dan URL. Format data email : namaemail@namadomain contoh: ahmad@yahoo.com Format data URL : www.namaurl atau http://www.namaurl contoh www.polines.ac.id atau http://www.polines.ac.id Jawab : Buatlah form seperti dibawah ini : Masukkan kode programnya : Imports System.Text.RegularExpressions Public Class Form2 Dim EmailVal As Boolean Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load txtemail.Focus() End Sub Private Function ValidEmail(ByVal value As String) As Boolean Dim pattern As String = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$" If Regex.Match(value, pattern).Success Then Return True Else Return False End If End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If ValidEmail(txtEmail.Text) = True Then MsgBox("Terima Kasih, Email Anda Valid") Else MsgBox("Maaf, Email Anda tidak Valid") txtEmail.Focus() End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If ValidURL(txtURL.Text) = True Then MsgBox("Terima Kasih, URL Valid") Else MsgBox("Maaf, URL tidak Valid") txtURL.Focus() End If End Sub Private Sub TxtEmail_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtEmail.Validating If ValidEmail(txtEmail.Text) = False Then MsgBox("Email tidak valid", MsgBoxStyle.Exclamation, "Peringatan") txtEmail.Text = "" End If End Sub Private Function ValidURL(ByVal value As String) As Boolean Dim pattern As String = "^(http|https|ftp|)\://|[a-zA-Z0-9\-\.]+\.[a-zA-Z](:[a-zA-Z0-9]*)?/?([a-zA-Z0-9\-\._\?\,\'/\\\+&amp;%\$#\=~])*[^\.\,\)\(\s]$" If Regex.Match(value, pattern).Success Then Return True Else Return False End If End Function Private Sub txtURL_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtURL.Validating If ValidURL(txtURL.Text) = False Then MsgBox("Website tidak valid", MsgBoxStyle.Exclamation, "Peringatan") txtURL.Text = "" End If End Sub End Class Cek Email : Cek URL : Kesimpulan Dari praktikum di atas dapat kita simpulkan bahwa : Objek Command digunakan untuk melakukan pernyataan SQL atau prosedur yang akan dilaksanakan pada Database. Untuk perintah insert data objek command yang digunakan adalah OLEDBCommand. OleDbCommand adalah suatu program yang menjalankan perintah-perintah pada sumber data. Validasi data adalah proses pengecekan data yang dientry oleh user apakah memenuhi persyaratan atau kriteria yang kita inginkan atau tidak, jika ya maka data akan disimpan dalam tabel tetapi jika tidak aplikasi memberitahu user mengenai kesalahan input data tersebut.