Nama Database :
Barang
Nama Tabel : Kosmetik
Tabel BARANG dengan struktur sebagai berikut:
Nama
Field
|
Type
|
Jumlah
|
kodebarang
|
text
|
10
|
namabarang
|
text
|
100
|
harga
|
text
|
50
|
jumlah
|
text
|
50
|
LISTING PROGRAM
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:\vb3\barang1.mdb"
DB = New
OleDbConnection(LOKASI)
If
DB.State = ConnectionState.Closed Then
DB.Open()
End If
End Sub
Sub
Recordkosmetik()
ADP = New
OleDbDataAdapter("SELECT * FROM kosmetik",
DB)
DS = New
DataSet
ADP.Fill(DS, "kosmetik")
DataGridView1.DataSource = DS.Tables("kosmetik")
End Sub
Sub
butoonbaru()
btn_baru.Enabled = True
btn_simpan.Enabled = False
btn_edit.Enabled = False
btn_hapus.Enabled = False
btn_batal.Enabled = False
btn_keluar.Enabled = True
End Sub
Sub
butoonedit()
btn_baru.Enabled = False
btn_simpan.Enabled = False
btn_edit.Enabled = True
btn_hapus.Enabled = True
btn_batal.Enabled = True
btn_keluar.Enabled = False
End Sub
Sub
butoonsimpan()
btn_baru.Enabled = False
btn_simpan.Enabled = True
btn_edit.Enabled = False
btn_hapus.Enabled = False
btn_batal.Enabled = True
btn_keluar.Enabled = False
End Sub
Sub
hapustext()
kode_barang.Text = ""
nama_barang.Text = ""
harga.Text = ""
jumlah.Text = ""
Call
butoonbaru()
End Sub
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Call
OPENDB()
Call
hapustext()
Call
Recordkosmetik()
End Sub
Private Sub btn_hapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btn_hapus.Click
SQL = "DELETE
FROM kosmetik Where kode_barang='" & kode_barang.Text & "'"
CMD = New
OleDbCommand(SQL, DB)
CMD.ExecuteNonQuery()
Call
btn_baru_Click(sender, e)
Call
Recordkosmetik()
End Sub
Private Sub btn_baru_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btn_baru.Click
Call
hapustext()
kode_barang.Focus()
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
Private Sub kode_barang_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
kode_barang.KeyPress
Dim
tombol As Integer
= Asc(e.KeyChar)
Dim
xkode As String
If
tombol = 13 Then
SQL = "SELECT
* FROM kosmetik Where kode_barang='" & kode_barang.Text & "'"
CMD = New
OleDbCommand(SQL, DB)
DR = CMD.ExecuteReader
DR.Read()
If
DR.HasRows = True Then
nama_barang.Text = DR.Item(1)
harga.Text = DR.Item(2)
jumlah.Text = DR.Item(3)
Call
butoonedit()
MsgBox("DATA
DITEMUKAN!")
Else
xkode = kode_barang.Text
Call
hapustext()
kode_barang.Text = xkode
Call
butoonsimpan()
End
If
nama_barang.Focus()
harga.Focus()
jumlah.Focus()
End If
End Sub
Private Sub btn_batal_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btn_batal.Click
Call
hapustext()
kode_barang.Focus()
End Sub
Private Sub btn_edit_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btn_edit.Click
SQL = "UPDATE
kosmetik SET NAMA='" & nama_barang.Text & "'," & _
"harga='" & harga.Text
& "'," & _
"jumlah='" &
jumlah.Text & "' " & _
"Where kode_barang='" &
kode_barang.Text & "'"
CMD = New
OleDbCommand(SQL, DB)
CMD.ExecuteNonQuery()
Call
btn_baru_Click(sender, e)
Call
Recordkosmetik()
End Sub
Private Sub btn_simpan_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btn_simpan.Click
SQL = "INSERT
INTO kosmetik (kode_barang, nama_barang, harga, jumlah)" & _
"Values ('" & kode_barang.Text &
"','" & _
nama_barang.Text & "','"
& _
harga.Text & "','"
& _
jumlah.Text & "')"
CMD = New
OleDbCommand(SQL, DB)
CMD.ExecuteNonQuery()
Call
btn_baru_Click(sender, e)
Call
Recordkosmetik()
End Sub
End Class