Salamilmu's Blog

Home » PEMROGRAMAN » VB NET

VB NET

Perintah Insert,Update dan Delete pada VB Net Menggunakan database Access

Mungkin diantara anda agak sedikit bingung yang baru migrasi dari VB 6.0 ke  VB Net dalam pembuatan suatu program, contohnya penggunaan perintah insert, edit dan delete. Sebenarnya konsepnya sama saja baik VB 6.0 maupun VB Net yang membedakan hanyalah pada jendela dan sedikit perubahan struktur bahasa dan objeknya.Baik disini saya akan mencoba sedikit berbagi mengenai pengetahuan saya dalam pemrograman VB Net dengan database Access  beserta koneksinya. Berikut Langkah-langkahnya :

1. Buka Microsoft Visual Studio anda dengan cara pilih Start >> All Program >> Microsoft Visual Studio 2008 ini versi VB Net yang saya gunakan.

2. Setelah terbuka jendela Start Up kemudian pilih Create Project buat nama project anda sesuai keinginan anda dan disini saya buat proInputBarang simpan project anda sesuai keinginan anda dan usahakan satu directory dengan database anda kemudian pilih OK

3. Sebelum memulai berkoding ria sebelumnya kita buat dulu databasenya disini kita pake database Access. Pilih Start >> All Program >> Miscrosoft Office >> Miscrosoft Office Access 2007 ini versi yang saya gunakan. Buat nama database misalnya dbBarang dan jangan lupa simpan dengan ekstensi .mdb biar mudah konfigurasinya caranya pilih icon folder disamping nama database kemudian pada Save As Type pilih Miscrosoft Access Database (2000 format) (*.mdb) lalu pilih Ok kemudian pilih Create..

4. Kemudian buat sebuah tabel dengan nama tblBarang buat 5 field dengan kriteria sebagai berikut :

5. Setelah selesai membuat database beserta tabelnya selanjutnya kita masuk lagi ke project VB Net kita, buat beberapa control seperti label, textbox , button dan DataGridView desain seperti tampilan dibawah ini :

6. Pilih menu Project >> proInputbarangproperties , setelah muncul jendela properties maka pilih pada bagian Settings, kemudian buat konfigurasi seperti gambar di bawah ini :

untuk field value buat konfigurasinya seperti gambar berikut :

7. Kembali ke form design kemudian ketikkan perintah dibawah ini :

Imports System.Data.OleDb
Public Class Form1

Private Sub TampilData()
Using Conn As New OleDbConnection(My.Settings.ConnStr)
Using Adp As New OleDbDataAdapter(“Select * From tblBarang”, Conn)
Conn.Open()
Dim Tabel As New DataTable
Adp.Fill(Tabel)
DataGridView1.DataSource = Tabel
End Using
End Using
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Tambah As String = “Insert Into tblBarang Values(‘” & TextBox1.Text & “‘,'” & TextBox2.Text & “‘,'” & TextBox3.Text & “‘,'” & TextBox4.Text & “‘,'” & TextBox5.Text & “‘)”
Try
Using Conn As New OleDbConnection(My.Settings.ConnStr)
Using cmd As New OleDbCommand(Tambah, Conn)
Conn.Open()
cmd.ExecuteNonQuery()
MsgBox(“Data Berhasil Ditambah”, MsgBoxStyle.Information, “Perhatian”)
TampilData()
End Using
End Using
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Ubah As String = “Update tblBarang Set NamaBarang='” & TextBox2.Text & “‘, HargaBeli='” & TextBox3.Text & “‘,HargaJual='” & TextBox4.Text & “‘,Jumlah='” & TextBox5.Text & “‘ Where KodeBarang='” & TextBox1.Text & “‘”
Try
Using Conn As New OleDbConnection(My.Settings.ConnStr)
Using cmd As New OleDbCommand(Ubah, Conn)
Conn.Open()
cmd.ExecuteNonQuery()
MsgBox(“Data Berhasil DiUbah”, MsgBoxStyle.Information, “Perhatian”)
TampilData()
End Using
End Using
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim Hapus As String = “Delete From tblBarang Where KodeBarang='” & TextBox1.Text & “‘”
Try
Using Conn As New OleDbConnection(My.Settings.ConnStr)
Using cmd As New OleDbCommand(Hapus, Conn)
Conn.Open()
cmd.ExecuteNonQuery()
MsgBox(“Data Berhasil Dihapus”, MsgBoxStyle.Information, “Perhatian”)
TampilData()
End Using
End Using
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
End
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TampilData()
End Sub
End Class

selesai sudah program yang sudah kita buat sekarang coba anda jalankan kalau benar langkah-langkah yang anda kerjakan maka tampilan program anda akan seperti ini :

Maaf kalau tulisan saya masih berantakan yach…karena kejar tayang makanya seperti ini tapi yang penting artikel ini benar adanya…

Selamat Mencoba…


11 Comments

  1. Madan says:

    mantap bro…..

  2. Rany says:

    kurang jelas mas, di skripnya…
    maklum, saya masih belajar..
    tlg di perjelas yah..

  3. Rany says:

    kurang jelas mas, di skripnya…
    maklum, saya masih belajar..
    tlg di perjelas yah..
    trims..🙂

  4. defrian says:

    wah mkasih bro..
    Kalau bisa ditambahkan fitur pencarian data😀
    biar tambah mantap programnya..

  5. wahyu says:

    Mas, bagaimana kode programnya kalau mau menyimpan data yang sama pada tabel yang berbeda? misalnya tabel kode barang dan tabel barang.

    • AhmadIqbal says:

      JIka field dan tipe datanya sama, maka perintahnya sql nya tetap sama, sebagai contoh ada 2 tabel Barang dan Detail_Barang menggunakan database Acces.
      dengan Field dan tipe datanya
      Field | Tipe Data
      —————————-
      KodeBarang | Text
      NamaBarang | Text
      Qty | Number

      cara penggunaan sql nya sama saja contoh
      Dim sql1 as String = “Insert Into Barang(KodeBarang, NamaBarang, Qty) values(‘” & txtkodebrg.text & “‘,'” & txtnamabrg.text & “‘,'” & txtQty.text & “‘)”
      Dim sql2 as String = “Insert Into Detail_Barang(KodeBarang, NamaBarang, Qty) values(‘” & txtkodebrg.text & “‘,'” & txtnamabrg.text & “‘,'” & txtQty.text & “‘)”
      Dim cmd As OledbCommand()
      cmd = New OledbCommand(sql1, DbConn)
      cmd.ExecuteNonQuery()

      cmd = New OledbCommand(sql2, DbConn)
      cmd.ExecuteNonQuery()

      jika kondisinya 2 tabel dengan field yang berbeda, maka sesuaikan dengan parameter inputnya.
      semoga dapat membantu

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: