Implementasi Perintah Dasar SQL dengan VB.Net

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

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