berhubung postingan saya ini sebagai tugas quiz saya Makul Pemograman Visual II, dimana soalnya sebagai berikut:
**Buatlah program yang berorientasi pada database Access untuk menyimpan data SISWA**
Disini saya akan membuat postingan tentang cara membuat program sederhana dengan menggunakan microsoft Visual Basic 2008, sebelum kita membuat program sederhana, ada baiknya kita mengenal Microsoft Visual Studio 2008 terlebih dahulu.
Microsoft Visual Studio 2008 adalah aplikasi lengkap yang dibuat oleh Microsoft. Pada Visual Studio 2008 didalamnya terdapat beberapa bahasa pemograman yang sering dipakai, seperti Visual Basic 2008. Visual Studio 2008 Express Edition sangat populer sebagai Tools Pengembangan Aplikasi Windows. Tools yang lengkap, dan pengembangan Aplikasi secara cepat menjadikan VS 2008 Express pilihan No.1 di Dunia Programming.
VS 2008 Express sangat mudah untuk digunakan, bahkan bagi kalangan pemula bisa belajar programming berkat fitur Intellisense yang menuntun mereka menulis kode secara bertahap! Dengan adanya LINQ (Language Integrated Query), Programmer sekarang bisa menulis SQL query langsung di VS 2008 Express dengan mudah dan nyaman.
Tidak hanya itu, para Web Developer juga bisa menulis XML dengan WPF Form baru. Bagi pecinta Microsoft Office, VS 2008 Express adalah best friend anda dalam membuat Form, Template, Macros, lewat fitur VSTO (Visual Studio Tools Office).
ok, tanpa perlu berlama-lama langsung saja saya beri contoh membuat program sederhana dengan menggunakan Visual Basic 2008! di sini saya membuat program Input Data Siswa!
Sebelum kita mulai membuat programnya, buat dulu folder untuk tempat menyimpan database dan project yang akan kita buat, misalnya VB2,
Kemudian buat database access dengan nama datasiswa.mdb seperti dibawah ini :
nama database: datasiswa.mdb
nama tabel : siswa
Tampilan database datasiswa.mdb pada microsoft Acces
simpan database kedalam folder VB2
- setelah itu buka Microsoft Visual Studio 2008
- pilih new project
- lalu ketikkan nama project anda sesuai yang anda inginkan
- dan tekan ok/create
Tampilan Membuat Project Baru
Tampilan untuk Mendesign Tampilan Program
Form Menu Utama
Form Input Data Siswa
Proses Input, ketikkan NIS nya:
Isikan Data dan tekan Simpan
Setelah tersimpan maka akan tampil seperti berikut d DataGrideView :
Imports System.Data.OleDb
Public Class Form1
Public DB As OleDbConnection
Public CMD As OleDbCommand
Public ADP As OleDbDataAdapter
Public DR As OleDbDataReader
Public DS As New DataSet
Dim SQL As String
Public Sub OpenDB()
Dim LOKASI = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =C:\VB2\datasiswa.mdb"
DB = New OleDbConnection(LOKASI)
If DB.State = ConnectionState.Closed Then
DB.Open()
End If
End Sub
Sub tampildatasiswa()
ADP = New OleDbDataAdapter("SELECT * FROM siswa", DB)
DS = New DataSet
ADP.Fill(DS, "siswa")
DataGridView1.DataSource = DS.Tables("siswa")
End Sub
Sub buttonbaru()
btnbaru.Enabled = True
btnsimpan.Enabled = False
btnedit.Enabled = False
btnhapus.Enabled = False
btnbatal.Enabled = False
btnkeluar.Enabled = True
End Sub
Sub buttonedit()
btnbaru.Enabled = False
btnsimpan.Enabled = False
btnedit.Enabled = True
btnhapus.Enabled = True
btnbatal.Enabled = True
btnkeluar.Enabled = False
End Sub
Sub buttonsimpan()
btnbaru.Enabled = False
btnsimpan.Enabled = True
btnedit.Enabled = False
btnhapus.Enabled = False
btnbatal.Enabled = True
btnkeluar.Enabled = False
End Sub
Sub hapustext()
nis.Text = ""
nama.Text = ""
alamat.Text = ""
wali.Text = ""
tanggal.Value = Now
agama.Text = ""
jk.Text = ""
Call buttonbaru()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call OpenDB()
Call hapustext()
Call tampildatasiswa()
End Sub
Private Sub nis_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles nis.KeyPress
Dim Tombol As Integer = Asc(e.KeyChar)
Dim xkode As String
If Tombol = 13 Then
SQL = "SELECT * FROM siswa Where nis='" & nis.Text & "'"
CMD = New OleDbCommand(SQL, DB)
DR = CMD.ExecuteReader
DR.Read()
If DR.HasRows = True Then
nama.Text = DR.Item(1)
alamat.Text = DR.Item(2)
wali.Text = DR.Item(3)
tanggal.Text = DR.Item(4)
agama.Text = DR.Item(5)
jk.Text = DR.Item(6)
Call buttonedit()
MsgBox("Data Completed !")
Else
xkode = nis.Text
Call hapustext()
nis.Text = xkode
Call buttonsimpan()
End If
nama.Focus()
End If
End Sub
Private Sub nis_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nis.TextChanged
End Sub
Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click
Call hapustext()
nis.Focus()
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
SQL = "INSERT INTO siswa (nis,nama,alamat,namawali,tanggallahir,agama,jeniskelamin)" & _
"VALUES ('" & nis.Text & "','" & _
nama.Text & "','" & _
alamat.Text & "','" & _
wali.Text & "','" & _
Format(tanggal.Value, "dd-MM-yyyy") & "','" & _
agama.Text & "','" & _
jk.Text & "')"
CMD = New OleDbCommand(SQL, DB)
CMD.ExecuteNonQuery()
Call btnbaru_Click(sender, e)
Call tampildatasiswa()
End Sub
Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click
SQL = "UPDATE siswa SET nis='" & nis.Text & "', " & _
" nama='" & nama.Text & "', " & _
" alamat='" & alamat.Text & "', " & _
" namawali='" & wali.Text & "', " & _
" tanggallahir='" & Format(tanggal.Value, "dd-MM-yyyy") & "'," & _
" agama='" & agama.Text & "', " & _
" jeniskelamin='" & jk.Text & "'"
CMD = New OleDbCommand(SQL, DB)
CMD.ExecuteNonQuery()
Call btnbaru_Click(sender, e)
Call tampildatasiswa()
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
SQL = "DELETE FROM siswa Where nis='" & nis.Text & "'"
CMD = New OleDbCommand(SQL, DB)
CMD.ExecuteNonQuery()
Call btnbaru_Click(sender, e)
Call tampildatasiswa()
End Sub
Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
Call hapustext()
nis.Focus()
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
Me.Close()
End Sub
End Class
warning : selamat mencoba, apabila ada kekurangan dari program diatas saya mohon maaf. TQ for Blogger Indonesia :)
Tidak ada komentar:
Posting Komentar