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.
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
- 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;
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...
-
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 = ""
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 & "'," & _
"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
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
