CARA MEMBUAT KONEKSI PROGRAM VB 2012 SEDERHANA KE DATABASE MYSQL

CARA MEMBUAT KONEKSI PROGRAM VB 2012 SEDERHANA KE DATABASE MYSQL

Langkah 1

Buka Program Visual Studio 2012

Langkah 2

Desain Form seperti ini

Dengan keterangan :

Toolbox	Name	Keterangan
Label1	NPM	-
Label2	Nama	-
Label3	Unit	-
TextBox1	-	Textbox_npm
TextBox2	-	Textbox_nama
TextBox3	-	Textbox_unit
Button1	-	SIMPAN
Button2	-	UBAH
Button3	-	HAPUS
Button4	-	KELUAR

Langkah 3

Buat Modulenya untuk koneksi database sql ke vb

caranya : Klik Menu Project > Add Module

Setelah muncul kotak dialog tinggal kik ok

Langkah 4

Masukkan sintak berikut:

Langkah 5

Kembali ke form 1 klik 2 kali di form1

Masukkan sintak berikut letakkan dipaling atas sintak form

Option Explicit On

Langkah 6

klik 2 kali form 1 masukkan sintak berikut:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BukaKoneksi()

End Sub

Langkah 7

Klik 2 kali pada button simpan masukkan sintak berikut :

Dim UInsert As String
        UInsert = "INSERT INTO latihan(npm,nama,unit) VALUES " & _
                    "('" & TextBox_npm.Text & "', '" & TextBox_nama.Text & "', '" & TextBox_unit.Text & "')"
        oConn.Execute(UInsert)
        MsgBox("Data tersimpan")

Langkah 8

Klik 2 kali pada button ubah masukkan sintak berikut :

Dim strEdit As String
        strEdit = "UPDATE latihan Set nama = '" & TextBox_nama.Text & "' " & _
                  "unit='" & TextBox_unit.Text & "' " & _
                  "Where npm = '" & TextBox_npm.Text & "'"
        oConn.Execute(strEdit)

Langkah 9

Klik 2 kali pada Button hapus masukkan sintak berikut :

Dim strDel As String
strDel = " DELETE FROM latihan where npm = '" & TextBox_npm.Text & "'"
oConn.Execute(strDel)

Langkah 10

Klik 2 kali pada Button keluar masukkan sintak berikut :

Dim tutup As String
        tutup = MessageBox.Show("Anda Yakin Ingin Menutup Program ini ?", "Informasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If tutup = MsgBoxResult.Yes Then
            End
        Else
        End If

Langkah 11

buat referensinya dengan cara

Klik menu Project>Add Reference