Deskripsi form Latihan_27_46110003
Dalam form Latihan_27_46110003 hanya terdapat tiga object yaitu Label, Textbox, Button.
Dalam form Latihan_27_46110003 hanya terdapat tiga object yaitu Label, Textbox, Button.
Object Label :
Dalam form ini terdapat lima buah object label yang bertuliskan “penginputan barang”, “kode barang”, “nama barang”, “harga jual”, dan “ jumlah barang”.
Dalam form ini terdapat lima buah object label yang bertuliskan “penginputan barang”, “kode barang”, “nama barang”, “harga jual”, dan “ jumlah barang”.
Object Textbox :
Dalam form ini terdapat empat buah object textbox yang semuanya berstatus input.
Dalam form ini terdapat empat buah object textbox yang semuanya berstatus input.
Object Button :
Dalam form ini terdapat sebuah object button yang bertuliskan “simpan”. Button ini berfungsi untuk menyimpan data yang telah diinput di latihan ini ke dalam database.
Script Unique :
Dalam form ini terdapat sebuah object button yang bertuliskan “simpan”. Button ini berfungsi untuk menyimpan data yang telah diinput di latihan ini ke dalam database.
Script Unique :
If
kb46110003.Text.Length = 0 Then
MsgBox("kode
barang belum terisi")
Exit
Sub
End
If
==> Perintah ini digunakan untuk mencari jangan sampai data yg akan dimasukkan tidak lengkap
cari.AturPencarianDataBase("BARANG", "KODEBARANG",
kb46110003.Text, 1, conect)
==>Perintah ini digunakan untuk mencari jangan sampai data yg akan dimasukkan sudah ada
Dim Cm As New
OleDb.OleDbCommand
Cm = New
OleDb.OleDbCommand("INSERT INTO BARANG
(KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" &
kb46110003.Text & "','" &
nb46110003.Text & "', " &
Val(hj46110003.Text) & ","
& Val(jb46110003.Text) & ")",
Jalan)
Jalan.Open()
Cm.ExecuteNonQuery()
Jalan.Close()
Cm.Dispose()
kb46110003.Text = " "
nb46110003.Text = " "
hj46110003.Text = " "
jb46110003.Text = " "
==>Perintah ini digunakan untuk memasukkan data dari visual basic ke dalam acces :
==>Perintah ini digunakan untuk memasukkan data dari visual basic ke dalam acces :
Even :
Button click
Langkah-langkah Penyelesaian
1. Buat desain Form seperti contoh
dibawah ini:
2. Masukkan rumus:
Public Class Latihan_27_46110003
Dim Jalan As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source =" & Application.StartupPath & "\DataBarang.ACCDB")
Private Sub save46110003_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles save46110003.Click
If
kb46110003.Text.Length = 0 Then
MsgBox("Plase
Insert Your Text")
Exit
Sub
End If
If
nb46110003.Text.Length = 0 Then
MsgBox("Plase
Insert Your Text")
Exit
Sub
End If
If
Val(hj46110003.Text) = 0 Then
MsgBox("Plase
Insert Your Text")
Exit
Sub
End If
If
Val(jb46110003.Text) = 0 Then
MsgBox("Plase
Insert Your Text")
Exit
Sub
End If
Dim
PENCARI As New
ByIskandar.CariKeDataBaseByIskandar
PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG",
kb46110003.Text, 1, Jalan)
If
PENCARI.JumlanBaris > 0 Then
MsgBox("The
data has been exist please insert new data")
kb46110003.Text = " "
nb46110003.Text = " "
hj46110003.Text = " "
jb46110003.Text = " "
Exit
Sub
End If
Dim Cm As New
OleDb.OleDbCommand
Cm = New
OleDb.OleDbCommand("INSERT INTO BARANG
(KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" &
kb46110003.Text & "','" &
nb46110003.Text & "', " &
Val(hj46110003.Text) & ","
& Val(jb46110003.Text) & ")",
Jalan)
Jalan.Open()
Cm.ExecuteNonQuery()
Jalan.Close()
Cm.Dispose()
kb46110003.Text = " "
nb46110003.Text = " "
hj46110003.Text = " "
jb46110003.Text = " "
End Sub
End Class
3. Jalankan Program dengan mengklik
Debugging.
4. Maka file yang telah diinput pada form akan tersimpan pada database acces.
0 komentar:
Posting Komentar