Visual Basic 2008 dengan MySQL

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(TrueFalseFalseFalseTrue)
NPM.Enabled = True
End Sub
Sub RubahButton(ByVal Btn1 As BooleanByVal Btn2 As BooleanByVal
Btn3 As BooleanByVal Btn4 As BooleanByVal 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(FalseTrueTrueTrueFalse)
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 ObjectByVal 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(FalseTrueFalseTrueFalse)
BtnSimpan.Text = "Simpan"
End Try
Nama.Focus()
rs.Close()
End If
End If
End Sub
End Class 





CARA MEMBUAT DATA BASE DARI SQL SERVER EXPRESS 2005

CARA MEMBUAT DATA BASE DARI SQL SERVER EXPRESS 2005

* buka sql server express 2005
* setelah muncul
         1.klik kanan database pilih new database....













2.setelah muncul tampilan seperti gambar di bawah
     *isi database name (contoh :perusahaan)
     *setelah itu tekan enter














3.muncul gambar seperti di bawah
     *database sudah di buat














selanjutnya kita akan membuat table
    *ketikan  USE PEGAWAI;
    *klik Execute
    *seperti gambar di bawah














masukan kode di bawah ini?


CREATE TABLE BAGIAN(
KDBAGIAN varchar(5) ,
BAGIAN varchar(30) ,
PIMPINAN varchar(40) );
*klik Execute
seperti gambar di bawah ini














hapus semua kode dan ketikan 
select * from bagian ;
seperti gambar di bawah













selesai pembuatan database perusahaan

selamat mencoba