Laman

Rabu, 10 Mei 2017

Program Input Data di Visual Basic 2010 dan Microsoft Access

Pada kesempatan kali ini saya akan membagi sedikit ilmu tentang Pemrograman Visual Basic.Net dengan Database Microsoft Access. Mungkin banyak yang bertanya, kenapa harus pake access? kenapa gak pake MySQL aja? dan lain sebagainya. Mengapa saya menggunakan access karena yang pertama cukup mudah digunakan karena tidak perlu menggunakan connector khusus seperti yang digunakan oleh MySQL. Kita harus install MySQL Connector for .Net
untuk bisa menggunakannya. Kedua membuat database di Access cukup mudah sehingga saya lebih menggunakan access sebagai postingan kali ini. Gak usah banyak Mukaddimah lagi, langsung aja kita kerjakan.

Pertama-tama buka Microsoft Visual Studio 2010 dan buat sebuah Project baru dengan nama AplikasiMahasiswa1. Selanjutnya Simpan Dilokasi yang anda Inginkan (terserah dimana saja). Harus disimpan terlebih dahulu ya.



Disini saya akan menyimpannya di C:\Users\Public\Documents.


Jika sudah disimpan dan sudah tahu dimana posisi folder program yang akan dibuat. Selanjutnya Buatlah sebuah database menggunakan Microsoft Access (terserah mau pake versi berapa, mau 2003, 2007, 2010, 2013, atau 2016) dan simpan dengan nama db_akademik.mdb (ingat simpan dengan extensi file .mdb JANGAN simpan dengan eksetensi .accdb) kedalam folder AplikasiMahasiswa1 - AplikasiMahasiswa1 - bin - Debug (dilokasi program vb tadi disimpan).

Setelah database tersimpan dan berada di AplikasiMahasiswa1 - AplikasiMahasiswa1 - bin - Debug, buatlah sebuah tabel pada database dan beri nama tbl_mahasiswa. Dengan Field-Field sebagai berikut:


Field Name
Data Type
Size/Format
npm
Short Text
8
nama
Short Text
30
alamat
Short Text
100
tmp_lahir
Short Text
30
tgl_lahir
Date/Time
Short
jkel
Short Text
15
agama
Short Text
20
no_hp
Short Text
18
thn_masuk
Number
Integer

Simpan dan Tutup aplikasi Microsoft Access-nya. Langkah berikutnya adalah :
  1. Kembali ke Program VB 2010 dan tambahkan sebuah module dan beri nama Module1.vb dan ketikkan koding berikut:
  2. Selanjutnya buat desain interface aplikasi pada form1 seperti berikut ini:
     dengan Properties berikut ini:
    Jenis
    Properties
    Nilai
    Form
    Name
    Text
    Form1
    Form Input Data Mahasiswa
    Lable1
    Lable2
    Lable3
    Lable4
    Lable5
    Lable6
    Lable7
    Lable8
    Lable9
    Text
    Text
    Text
    Text
    Text
    Text
    Text
    Text
    Text
    NPM
    Nama
    Alamat
    Tempat Lahir
    Tanggal Lahir
    Jenis Kelamin
    Agama
    No. Handphone
    Tahun Masuk
    TextBox1
    Name
    txtnpm
    TextBox2
    Name
    txtnama
    TextBox3
    Name
    txtalamat
    TextBox4
    Name
    txttmplahir
    DateTimePicker
    Name
    Format
    dtlahir
    Short
    ComboBox1
    Name
    Items
    cbojkel
    - Laki-Laki, Perempuan
    ComboBox2
    Name
    Items
    cboagama
    - Islam, Kristen Protestan, Kristen Katholik, Hindu, Budha, Konghucu, Dll
    TextBox5
    Name
    txtnope
    ComboBox3
    Name
    Items
    cbothnmasuk
    2012 s/d 2030
    Button1
    Name
    Text
    btn_simpan
    Simpan
    Button2
    Name
    Text
    btn_update
    Update
    Button3
    Name
    Text
    btn_hapus
    Hapus
    Button4
    Name
    Text
    btn_batal
    Batal
    Button5
    Name
    Text
    btn_keluar
    Keluar
    DataGridView1
    Name
    DGV1

  3. Selanjutnya ke View Code (Coding Window) dan ketikkan koding imports di paling atas sebagai berikut:
  4.     Imports System.Data.OleDb 
     
  5. Selanjutnya Tambahkan kode berikut ini:
  6.  
        Dim da As OleDbDataAdapter
        Dim ds As DataSet 
     
    
    
  7. Tambahkan Subrutin berikut ini:
  8. 
        Private Sub bersih()
            txtnpm.Text = ""
            txtnama.Text = ""
            txtalamat.Text = ""
            txttmplahir.Text = ""
            dtlahir.Text = ""
            cbojkel.Text = ""
            cboagama.Text = ""
            txtnope.Text = ""
            cbothnmasuk.Text = ""
            txtnpm.Select()
        End Sub
    
        Private Sub refresh_isi()
            bersih()
            da = New OleDbDataAdapter("Select * From tbl_mahasiswa", conn)
            ds = New DataSet
            ds.Clear()
            da.Fill(ds, "tbl_mahasiswa")
            DGV1.DataSource = (ds.Tables("tbl_mahasiswa"))
        End Sub
    
    
  9. Pada Form Load tambahkan kode berikut:
  10. 
       Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
           cekKoneksi()
           refresh_isi()
       End Sub
    
    
  11. Kode Di Button Simpan:
  12. 
       Private Sub btn_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_simpan.Click
          Dim perintah As String = "insert into tbl_mahasiswa values('" & txtnpm.Text & "','" & txtnama.Text & "','" _ 
              & txtalamat.Text & "','" & txttmplahir.Text & "','" & dtlahir.Text & "','" _ 
              & cbojkel.Text & "','" & cboagama.Text & "','" & txtnope.Text & "','" _ 
              & cbothnmasuk.Text & "')"
          Dim eksekusi As New OleDbCommand(perintah, koneksi)
          Try
             eksekusi.ExecuteNonQuery()
             MsgBox("Data berhasil update", MsgBoxStyle.Information, "Pesan")
             refresh_isi()
          Catch ex As Exception
             MsgBox(ex.Message)
          End Try
       End Sub
    
    
  13. Kode untuk txtnpm dengan event LostFocus :
  14. 
        Private Sub txtnpm_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtnpm.LostFocus
           If txtnpm.Text = String.Empty Then
              Exit Sub
           End If
    
           Dim perintah As String = "select * from tbl_mahasiswa where npm = '" & txtnpm.Text & "'"
           Dim eksekusi As New OleDbCommand(perintah, koneksi)
           Dim data As OleDbDataReader
           data = eksekusi.ExecuteReader()
           If data.HasRows Then
              data.Read()
              txtnpm.Text = data(0)
              txtnama.Text = data(1)
              txtalamat.Text = data(2)
              txttmplahir.Text = data(3)
              dtlahir.Text = data(4)
              cbojkel.Text = data(5)
              cboagama.Text = data(6)
              txtnope.Text = data(7)
              cbothnmasuk.Text = data(8)
           End If
           data.Close()
        End Sub
    
    
  15.  Kode untuk Button Update:
  16. 
        Private Sub btn_update_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_update.Click
            Dim perintah As String = "update tbl_mahasiswa set nama = '" & txtnama.Text & "', alamat = '" _ 
          & txtalamat.Text & "', tmp_lahir = '" & txttmplahir.Text & "', tgl_lahir = '" & dtlahir.Text & "', jkel = '" _ 
          & cbojkel.Text & "', agama = '" & cboagama.Text & "', no_hp = '" _ & txtnope.Text & "', thn_masuk = '" _ 
          & cbothnmasuk.Text & "' where npm = '" & txtnpm.Text & "'"
            Dim eksekusi As New OleDbCommand(perintah, koneksi)
            Try
                eksekusi.ExecuteNonQuery()
                MsgBox("Data berhasil disimpan", MsgBoxStyle.Information, "Pesan")
                refresh_isi()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End Sub
    
    
  17. Kode untuk Button Hapus:
  18. 
        Private Sub btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapus.Click
            Dim perintah As String = "delete from tbl_mahasiswa where npm = '" & txtnpm.Text & "'"
            Dim eksekusi As New OleDbCommand(perintah, koneksi)
            Try
                eksekusi.ExecuteNonQuery()
                MsgBox("Data berhasil dihapus", MsgBoxStyle.Information, "Pesan")
                refresh_isi()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End Sub
    
    
  19. Kode untuk Button Batal dan Button Keluar:
  20. 
        Private Sub btn_batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_batal.Click
            bersih()
        End Sub
    
        Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click
            Me.Close()
        End Sub  
 
Demikian postingan ini saya perbuat. Semoga Bermanfaat.... :)

Tidak ada komentar:

Posting Komentar

Materi Pengantar Teknologi Informasi

Berikut Ini di merupakan materi perkuliahan dari Pengantar Teknologi Informasi