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 sihyes 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 :
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 :
*Lanjut untuk code formnya silakan klik form1.vb pada kolom Solution Explore dan pilih View Code, copykan code dibawah ini
* Criiing udah jadi dehhidanganya 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.
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
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:
* 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
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
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
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.
