Contoh Dan Pengenalan Database

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('1111706','Cut Iswahyuni','S1',Teknik Informatika');

• Tampilkan record yang ada : Select * from Mahasiswa;
• Hasilnya akan terlihat gambar seperrti dibawah ini:

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 OK

LISTING PROGRAM

• Copykan listing dibawah kotak yang dibawah ini!

Imports MySql.Data.MySqlClient Public Class Form1 Dim db As New MySql.Data.MySqlClient.MySqlConnection Dim sql As String Dim cmd As MySqlCommand Dim 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 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

• Dan Hasilnya akan terlihat seperti gambar dibawah ini!

By : Cutt Iswahyuni