Dejavu Campus Blog (Donny E Suprayogo)

Kali ini saya akan mempelajari bagaimana membuat fungsi tombol simpan (button) pada Visual Basic. NET.

Kita akan bahas semua dari awal, dengan sebuah database dan contoh aplikasinya.

Terlebih dahulu syarat dari pembelajaran ini, tentunya ada software pendukung yaitu Software Visual Studio. 2005/ 2008 / 2010, Wamp Server, dan SQlYog.

Baiklah kita mulai saya langkah demi langkahnya.
1.    Yang pertama yang harus kita lakukan adalah Aktifkan Wamp Server. (Silahkan Download disini : http://www.wampserver.com/en/ )
2.    Buka SQLYOG sebagai Database Manajemen Systemnya (Download disini : http://www.webyog.com/en/ )
3.    Buat Database nya :


Caranya gampang kok, nah ikuti yach…

CREATE DATABASE blog;
USE blog;
CREATE TABLE PEGAWAI(
NOMOR INT PRIMARY KEY AUTO_INCREMENT,
NAMA VARCHAR(30),
ALAMAT VARCHAR(50));
DESC PEGAWAI;

INSERT INTO PEGAWAI (NAMA, ALAMAT) VALUES
('TRI','KOMP. FILANO'),('APRILA','JL.DAMAR'),('RAMA','JL.BANDA PURUIH'),('DHONA','OLO LADANG');
SELECT * FROM PEGAWAI;


4.    Setelah selesai bikin database dengan 1 Table, kita masuk ke Visual Basic. NET nya
Buat Nama Project : BelajarVB
Buat tampilan / desaign form seperti dibawah ini :


Component yang ada didalamnya :
LABEL1 : GANTI PROPERTIES  (TEXT : TOMBOL SIMPAN PADA VB)
LABEL2 : GANTI PROPERTIES  (TEXT : NAMA)
LABEL3 : GANTI PROPERTIES  (TEXT : ALAMAT)
TEXTBOX1 : GANTI PROPERTIES (NAME : TXTNAMA)
TEXTBOX2 : GANTI PROPERTIES (NAME : TXTALAMAT)
DATAGRIDVIEW1 : GANTI PROPERTIES (NAME : DGV)
BUTTON 1 : GANTI PROPERTIES (NAME : BTSIMPAN, TEXT : &SIMPAN)
BUTTON 2 : GANTI PROPERTIES (NAME : BTKELUAR, TEXT : &KELUAR)

5.    Selanjutnya, pilih menu ‘Project’, klik ‘Add References’, dan akan terlihat kotak dialog seperti dibawah :

Pilik MySql.Data dengan Version 6.2.4.0.
Klik Ok.

6.    Masuk ke View Code, ketikan coding berikut :

Imports MySql.Data.MySqlClient

Public Class Form1
    Dim kon As New MySqlConnection("server=localhost;userid=root;database=blog")
    Dim perintah As New MySqlCommand
    Dim cek As MySqlDataReader
    Dim Simpan As Boolean
    Dim Data As New MySqlDataAdapter
    Dim ds As New DataSet

    Sub tampildata()
        kon.Open()
        perintah.Connection = kon
        perintah.CommandType = CommandType.Text
        perintah.CommandText = "select * from PEGAWAI"
        Data.SelectCommand = perintah

        ds.Tables.Clear()
        Data.Fill(ds, "PEGAWAI")
        DGV.DataSource = ds.Tables("PEGAWAI")
        kon.Close()
    End Sub

    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        tampildata()
    End Sub

    Private Sub BTKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTKELUAR.Click
        Me.Close()
    End Sub

    Private Sub BTSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTSIMPAN.Click
        kon.Open()
        perintah.Connection = kon
        perintah.CommandType = CommandType.Text
        perintah.CommandText = "insert into PEGAWAI(NAMA,ALAMAT) values('" & TXTNAMA.Text & "','" & TXTALAMAT.Text & "')"
        perintah.ExecuteNonQuery()
        kon.Close()
        MsgBox("Data Sukses Tersimpan", MsgBoxStyle.Information, "Pesan")
    End Sub
End Class


7.    Setelah selesai membuat codingnya, pastikan gak ada error nya, dan coba running :


8.    Silahkan Tes program anda, apa data yang diisikan bisa disimpan setelah diklik tombol SIMPAN,
Kalau berhasil, berarti anda telah berhasil mengikuti langkah sebagai syarat menjadi seorang programmer…