1.
Klik Start lalu pilih Microsoft
Visual Studio 2008
2.
Lalu akan muncul jendela awal
Microsoft Visual Studio seperti di bawah ini.
3.
Lalu pilih New Project dan beri nama
serta pilih tempat folder untuk menyimpannya.
4.
Kemudian
buat form sesuai dengan form di bawah ini.
5.
Berikut
ini adalah rumus untuk menjalankan form di atas.
Public Class
Latihan_32B_36110048
Dim bridgeRio As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=D:\Rhyo\SEMESTER 5\Apkom 4\LATIHAN 27-34 SIMPAN EDIT DELETE
DATA\DATABARANG.accdb")
Private Sub
SIMPAN_36110048_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles SIMPAN_36110048.Click
If KB_36110048.Text.Length = 0 Then
MsgBox("Anda Harus Masukkan Kode Barangnya")
Exit Sub
End If
If NB_36110048.Text.Length = 0 Then
MsgBox("Anda Harus Masukkan Nama Barangnya")
Exit Sub
End If
If Val(HJ_36110048.Text) = 0 Then
MsgBox("Anda Harus Masukkan Harga Barangnya")
Exit Sub
End If
Dim Periksa As New ByIskandar.CariKeDataBaseByIskandar
Periksa.AturPencarianDataBase("BARANG",
"KODEBARANG", KB_36110048.Text, 1,
bridgeRio)
If Periksa.JumlanBaris > 0 Then
MsgBox("Kode Barang Sudah Ada")
Exit Sub
End If
Dim truckRio As New OleDb.OleDbCommand
truckRio = New OleDb.OleDbCommand("Insert
Into BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) "
& _
"Values ( '" & KB_36110048.Text
& "', '" &
NB_36110048.Text & "'," &
Val(HJ_36110048.Text) & ", "
& Val(JB_36110048.Text) & ")",
bridgeRio)
bridgeRio.Open()
truckRio.ExecuteNonQuery()
bridgeRio.Close()
truckRio.Dispose()
KB_36110048.Text = ""
NB_36110048.Text = ""
HJ_36110048.Text = ""
JB_36110048.Text = ""
Latihan_32A_36110048.isiRio()
End Sub
End Class
6.
Setelah itu, jalankan programnya.
0 komentar:
Posting Komentar