Microsoft Acces
Yang pertama adalah kita membuka microsoft acces dan membuka halaman barunya seperti berikut:
Pertama kita atur dulu fieldname dan data typenya
Lalu kita membuat tabelnya seperti ini
Setelah itu kita membuat query untuk menghitung rumus total harga dan kembalian
Caranya pilih creater dan pilih Query Design
Lalu pada querydesign kita mengisinya seperti di bawah ini
Setelah itu tabel akan menghitung sendiri total harga dan uang kembalian dan tampilan tabel menjadi
Setelah itu simpan Microsoft acces yang telah kita buat dan pastikan kita ingat tempat penyimpanannya
VB
Saya memakai visual studio 2012
Yak pada vb ini kita akan membuat 2 form
Pada form 1:
pertama kita akan menghubungkan microsoft acces kita tadi dengan vb kita
pertama tekan data sources lalu add new data source seperti gambar di bawah
lalu pilih database dan klik next
pilih dataset dan klik next
klik new connection dan pilih microsoft acces database file lalu browse data microsoft acces kita tadi lalu klik ok
Expand pada Connection string that .... copy untuk koding kita nanti, lalu klik Next
jika ada pertanyaan klick yes
lalu klik next
checklist table lalu tekan finish
Lalu susun form1 seperti di bawah ini
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
Public Class Form1
Private Sub TabelPembeliBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TabelPembeliBindingNavigatorSaveItem.Click
Me.Validate()
Me.TabelPembeliBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DatabaseDataSet)
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'DatabaseDataSet.TabelPembeli' table. You can move, or remove it, as needed.
Me.TabelPembeliTableAdapter.Fill(Me.DatabaseDataSet.TabelPembeli)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
IDPembeliTextBox.Text = ""
Nama_PembeliTextBox.Text = ""
EmailTextBox.Text = ""
Jumlah_SepatuTextBox.Text = ""
Harga_SatuanTextBox.Text = ""
Total_HargaTextBox.Text = ""
Uang_PembeliTextBox.Text = ""
KembalianTextBox.Text = ""
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\VB2\Database.accdb"
Dim tambah As String = "INSERT INTO TablePembeli values('" & IDpembeliTextBox.Text & "', '" & Nama_PembeliTextBox.Text & "','" & EmailTextBox.Text & "','" & Jumlah_SepatuTextBox.Text & "','" & Harga_SatuanTextBox.Text & "','" & Total_HargaTextBox.Text & "','" & Uang_PembeliTextBox.Text & "','" & KembalianTextBox.Text & "')"
Dim objekkoneksi As New OleDb.OleDbConnection(koneksi)
Dim ocmd = New OleDbCommand(tambah, objekkoneksi)
objekkoneksi.Open()
ocmd.ExecuteNonQuery()
MsgBox("Sukses")
objekkoneksi.Close()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Form2.Show()
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Me.Close()
End Sub
Private Function HargaSatuanTextBox() As Object
Throw New NotImplementedException
End Function
End Class
Form2
Pada Tab General, pilih Data Source, lalu double klik DataPembeliDataSet, setelah itu drag TablePembeli ke Form2. Berikut adalah tampilannya:
Mengecek Program
Setelah itu kita akan mengecek program yang kita buat .Langsung saja kita klik start
akan muncul gambar dibawah
nah saat kita pencet clear semua data di atas akan hilang .lalu kita masukkan data baru seperti di bawah ini
lalu setelah itu kita klik save dan untuk mengechecknya kita klick button check dan hasilnya
Sekian penuturan dari saya .
Mohon maaf kalau ada salah salah
Terimakasih
