BAB VIII PENGENALAN DATABASE Pembahasan Materi : Mengetahui cara pembuatan database menggunakan MySQL. Mengetahui cara mengkoneksikan VB.NET 2008 dengan MySQL. Mengetahui cara menyimpan, mengedit dan menghapus record di database menggunakan VB.NET 2008. Tujuan Belajar : Mahasiswa dapat membuat database menggunakan MySQL. Mahasiswa dapat mengkoneksikan VB.Net dengan MySQL. Mahasiswa dapat menyimpan, mengedit dan menghapus record di database menggunakan VB.NET 2008.
8.1 Database MySQL Database dapat diartikan sebagai kumpulan data yang terdiri atas satu atau lebih tabel yang terintegrasi satu sama lain, di mana setiap pemakai (user) diberi wewenang untuk dapat mengakses (mengubah, menghapus, menganalisis, menambah, memperbaiki) data dalam tabel-tabel tersebut. Tabel itu berfungsi untuk menyimpan data dan merupakan suatu kumpulan data yang berhubungan dengan topik tertentu, misalnya daftar pembelian dan tabel penjualan. Tabel terdiri atas baris yang disebut record dan kolom yang disebut field. Langkah-langkah pembuatan database dengan menggunakan MySQL adalah : -
Aktifkan terlebih dahulu MySQL-D
STMIK BUDIDARMA MEDAN
40
-
Buka explorer dengan addres “C:\apache\mysql\bin”, dan buka file mysql.exe.
-
Setelah file mysql dibuka akan tampil program mysql.
-
Buat database dengan perintah : Create Database Akademik;
-
Pilih database yang ingin digunakan : Use Akademik;
-
Buat Table dengan perintah :
-
Create Table Mahasiswa( NPM Varchar(7), Nama Varchar(30), Jenjang Varchar(2), Jurusan Varchar(30)); Masukkan data ke tabel mahasiswa : Insert into mahasiswa values(‘0711213’,’Surya Darma’,’S1’,’Sistem Informasi’);
-
Tampilkan record yang ada : Select * from Mahasiswa;
STMIK BUDIDARMA MEDAN
41
8.2 Menggunakan Database MySQL dengan VB.Net 2008. Program Praktek
-
Instalkan connector ODBC untuk VB.NET.
-
Buatlah project baru, dan design form seperti gambar dibawah ini.
-
Tambahkan reference kedalam project dengan Project | Add Reference...
STMIK BUDIDARMA MEDAN
42
-
Pilih tab Browse dan cari file mysqldata.dll dengan alamat “C:\Program Files\MySQL\MySQL Connector Net 1.0.7\bin\.NET 1.1\” dan klik tombol OK.
LISTING PROGRAM Imports MySql.Data.MySqlClient Public Class Form1 Public db As New MySql.Data.MySqlClient.MySqlConnection Public sql As String Public cmd As MySqlCommand Public rs As MySqlDataReader Sub opendb() sql = "server=localhost;uid=root;pwd;database=Akademik" Try db.ConnectionString = sql db.Open() Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub Sub Bersih() NPM.Text = "" Nama.Text = "" Jenjang.Text = ""
STMIK BUDIDARMA MEDAN
43
Jurusan.Text = "" RubahButton(True, False, False, False, True) NPM.Enabled = True End Sub Sub RubahButton(ByVal Btn1 As Boolean, ByVal Btn2 As Boolean, ByVal Btn3 As Boolean, ByVal Btn4 As Boolean, ByVal Btn5 As Boolean) BtnBaru.Enabled = Btn1 BtnSimpan.Enabled = Btn2 BtnHapus.Enabled = Btn3 BtnBatal.Enabled = Btn4 BtnKeluar.Enabled = Btn5 End Sub Sub BuatTabel() lv.Columns.Add("NPM", 80, HorizontalAlignment.Center) lv.Columns.Add("Nama", 180, HorizontalAlignment.Left) lv.Columns.Add("Jenjang", 80, HorizontalAlignment.Left) lv.Columns.Add("Jurusan", 100, HorizontalAlignment.Left) lv.GridLines = True lv.FullRowSelect = True lv.View = View.Details End Sub Sub IsiTabel() lv.Items.Clear() sql = "Select * from mahasiswa" cmd = New MySqlCommand(sql, db) rs = cmd.ExecuteReader Try While rs.Read Dim lst As New ListViewItem lst.Text = rs("NPM") lst.SubItems.Add(rs("Nama")) lst.SubItems.Add(rs("Jenjang")) lst.SubItems.Add(rs("Jurusan")) lv.Items.Add(lst) End While Catch ex As Exception MsgBox(ex.Message) End Try rs.Close() End Sub Sub prosesdb(ByVal log As Integer) Dim pesan As String = "" Select Case log Case 0 sql = "Insert into mahasiswa(npm,nama,jenjang,jurusan)" & _ " values('" & NPM.Text & _ "','" & Nama.Text & _ "','" & Jenjang.Text & _ "','" & Jurusan.Text & "')" pesan = "Data Telah Tersimpan" Case 1 sql = "update mahasiswa set Nama='" & Nama.Text & "', " & _ "jenjang='" & Jenjang.Text & "'," & _
STMIK BUDIDARMA MEDAN
44
"jurusan='" & Jurusan.Text & "' " & _ "where npm='" & NPM.Text & "'" pesan = "Data Telah Terupdate" Case 2 sql = "Delete from mahasiswa where npm='" & NPM.Text & "'" pesan = "Data Telah Dihapus" End Select Try cmd = New MySqlCommand(sql, db) cmd.ExecuteNonQuery() MsgBox(pesan, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Konfirmasi") Call Bersih() Call IsiTabel() Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub Sub ShowDB() rs.Read() NPM.Text = rs("npm") nama.Text = rs("Nama") Jenjang.Text = rs("jenjang") Jurusan.Text = rs("jurusan") RubahButton(False, True, True, True, False) BtnSimpan.Text = "Edit" NPM.Enabled = False End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Call opendb() Call Bersih() Call BuatTabel() Call IsiTabel() End Sub Private Sub BtnBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBaru.Click Call Bersih() NPM.Focus() End Sub Private Sub BtnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBatal.Click Call Bersih() NPM.Focus() End Sub Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click End End Sub
STMIK BUDIDARMA MEDAN
45
Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click Dim x As String x = MsgBox("Anda Yakin Akan dihapus", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Hapus") If x = vbYes Then Call prosesdb(2) End If End Sub Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click If BtnSimpan.Text = "Simpan" Then prosesdb(0) Else prosesdb(1) End Sub Private Sub NPM_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NPM.KeyPress Dim tombol As Integer = Asc(e.KeyChar) If tombol = 13 Then Dim x As String If NPM.Text = "" Then MsgBox("Isi NPM terlebih dahulu") Else sql = "select * from mahasiswa where NPM='" & NPM.Text & "'" cmd = New MySqlCommand(sql, db) rs = cmd.ExecuteReader Try Call ShowDB() Catch ex As Exception x = NPM.Text Bersih() NPM.Text = x RubahButton(False, True, False, True, False) BtnSimpan.Text = "Simpan" End Try Nama.Focus() rs.Close() End If End If End Sub End Class
STMIK BUDIDARMA MEDAN
46