vb.net 2010 input data

assalamua'laikum...
selamat malam temen2...
tadi barusan saya dapet Qius dari dosen saya untuk buat form input data menggunakan VB.NET 2010 dengan database Ms.Acces sebagai databasenya..
program ini sebenarnya masih dibilang sederhana tapi ga papa buat bahan pembelajaran temen2..
ok kita langsung ke TKP..
untuk tampilan dibawah ini:

Disini kita akan buat form registrasi Mahasiswa dengan atribut NIM, Nama, dan Jurusan.. terlihat jelas pada gambar di atas
Pertama  sebelum kita masuk kepembuatan databasenya kita buat foder dulu dengan nama latihan vb.net untuk penyimpan database dan programnya karen kita akan simpan dalam satu folder terserah mau dipartisi mana aja kalo saya sih yes  di direktori D:\latihan vb.net
Caranya buka Porgam Ms.Acess terserah mau yang versi berapa juga boleh yang penting Ms.Acces, tapi disini saya menggunakan Ms.Acces 2007
* Klik Blank Database
* Kita buat dabasenya dengan nama db_latihan.accdb
* Lanjut kepembuatan tabel dengan nama t_mhs

* Kalo udah kita design seperti ini:

  (* untuk field NIM kita jadikan Primary Key

* Dan hasilnya seperti ini:

* Kalo sudah kita kita simpan dan keluar
* Lanjut untuk kepembuatan form nya..
* Silahkan buka program vb.net 2010 anda mungkin temen2 dah tau kan caranya
* Klik New Project trus Klik Windows Form Application
* Kalo sudah masukan komposisi Tool sbg berikut:
   - 3 buah Label
   - 2 buah TextBox
   - 1 Buah ComboBox
   - 1 Buah Button
   - 1 Buah DataGridView

Dengan Ketentuanya :

Properties	Name	Text
Label1	Label1	NIM
Label2	Label2	Nama
Label3	Label3	Jurusan
Textbox1	TxtNIM	NIM
Textbox2	TxtNama	Nama
Combobox1	comboJurusan	Jurusan
Button1	cmdSave	Simapan
DataGridView1	DataGridView1	-

Design tampilanya kurang lebih seperti ini :

*  Kalo udah silahkan disimpan pada folder yang kita buat tadi
*  Terus pindahkan file database db_latihan.accdb kedalam foder debug.
Seperti ini latihan vb.net\WindowsApplication1\WindowsApplication1\bin\Debug
* Ok sekarang kitA masuk pengkodingan
* Pertama tambah modul terlebih dahulu untuk code koneksi dengan databasenya
Caranya Klik Menubar Project  > Add New Item > Pilih module > Klik Add
  Copy code di bawah ini :

Imports System.Data.OleDb
Module Module1
Public con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='db_latihan.accdb'")
End Module

*Lanjut untuk code formnya silakan klik form1.vb pada kolom Solution Explore dan pilih View Code, copykan code dibawah ini

Public Class Form1
    Sub kosongData()
        TxtNIM.Text = ""
        TxtNama.Text = ""
        comboJurusan.Text = ""

        TxtNIM.Focus()
    End Sub
    Sub tampilGrid()
        con.Close()
        con.Open()

        Dim da As New OleDb.OleDbDataAdapter("select * from t_mhs", con)
        Dim ds As New DataSet

        da.Fill(ds, "t_mhs")
        DataGridView1.DataSource = (ds.Tables("t_mhs"))
    End Sub

    Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
        Dim cek = validasiForm()
        con.Close()
        con.Open()

        Dim x = MsgBox("Simpan Data?", vbYesNo + vbQuestion, "Konfirmasi")
        If x = vbYes And cek = "valid" Then
            Dim cmdSave As New OleDb.OleDbCommand
            cmdSave.Connection = con
            cmdSave.CommandType = CommandType.Text
            cmdSave.CommandText = "INSERT INTO t_mhs VALUES('" & TxtNIM.Text & "', '" & TxtNama.Text & "', '" & comboJurusan.Text & "')"
            cmdSave.ExecuteNonQuery()
            MsgBox("Data Mahasiswa berhasil disimpan")

            Call tampilGrid()
            Call kosongData()
        ElseIf cek = "tidak valid" Then
            MsgBox("Data tidak valid, silahkan coba kembali...")
            TxtNIM.Focus()
        Else
            TxtNIM.Focus()
        End If
    End Sub

    Function validasiForm()
        If TxtNIM.Text = "" Or TxtNama.Text = "" Or comboJurusan.Text = "" Then
            validasiForm = "tidak valid"
        Else
            validasiForm = "valid"
        End If
    End Function

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

        comboJurusan.Items.Add("Teknik Informatika")
        comboJurusan.Items.Add("Sistem Informatika")

    End Sub

End Class

* Criiing udah jadi deh hidanganya eh maksudnya programnya silahkan anda jalankan dengan tekan F5 atau Klik tombol play yang ada di menubar




Mudahkan temen2 ... hehehe
saya harap sih temen2 bukan sekedar copy-paste doank tapi coba sedikit dipahami pasti itu akan mempermudah temen2 untuk pengembanganya ...OK.. OK

Untuk file yang udah jadi silahkan langsung donlot aja Disini
ok cukup sekian dari saya semoga bermanfaat buat kita semua... Amiin.
wassalam.