Membuat project yang
terkoneksi ke database dan memanipulasinya
Assalamu’alaikum
wr.wb
Selamat datang
kembali di blog saya. Postingan saya kali ini merupakan UAS Lab.Pemrograman
Bisnis 2 saya dalam mata kuliah Lab Pengantar Pemrograman Bisnis 2. Pada kesempatan ini saya akan membuat program
mengenai database yang terkoneksi ke Visual Basic sekaligus bisa
memanipulasinya. Silakan disimak langkah pembuatannya :D
Langkah-langkahnya:
Pertama saya membuat
database pada Microsoft Access. Disini saya akan membuat tabel yang saya
namakan tabelpenjualan, dengan nama-nama field dan tipe data seperti berikut:
Setelah itu, simpan
tabel . Lalu masukkan data-data yang diperlukan seperti berikut:
Lalu simpan
databasenya. Buat project baru dengan VB, lalu koneksikan dengan database yang
telah dibuat sebelumnya.
Caranya, klik
Data-> add New Data Sources -> Pilih Next -> klik New
Connection -> kemudian browse -> klik test
connection -> ok -> next -> yes -> next -> finish.
Setelah itu, saya
akan membuat 2 form, seperti berikut:
Form1
Form2
Berikut adalah
source codenya:
Form 1
Public Class Form1
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
If
TextBox1.Text = "Shanita" And TextBox2.Text = "1506"
Then
MsgBox("Login
Sukses", MsgBoxStyle.Information, "Login")
Form2.Show()
Else
If
TextBox1.Text = "" And TextBox2.Text = ""
Then
MsgBox("Username
dan Password Tidak Ditemukan", MsgBoxStyle.Critical, "Error")
Else
If
TextBox1.Text = "" Then
MsgBox("Username Tidak Ditemukan",
MsgBoxStyle.Critical, "Error")
Else
If
TextBox2.Text = "" Then
MsgBox("Password Tidak Ditemukan",
MsgBoxStyle.Critical, "Error")
Else
MsgBox("Username dan/atau Password salah",
MsgBoxStyle.Critical, "Error")
End
If
End If
End
If
End If
End Sub
Private Sub Button2_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
End Class
Form2
Imports
System.Data
Imports
System.Data.SqlClient
Imports
System.Data.OleDb
Public Class Form2
Dim tabel As OleDb.OleDbDataAdapter
Dim
cmdUpdate As OleDbCommand
Dim data As DataSet
Dim record As New BindingSource
Dim koneksi
As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=" & System.Environment.CurrentDirectory & "\C:\Users\axioo\Documents\Database7.accdb"
Dim
objekkoneksi As New
OleDb.OleDbConnection(koneksi)
Private Sub TabelpenjualanBindingNavigatorSaveItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
TabelpenjualanBindingNavigatorSaveItem.Click
Me.Validate()
Me.TabelpenjualanBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Database7DataSet)
End Sub
Private Sub Form2_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'TODO: This
line of code loads data into the 'Database7DataSet.tabelpenjualan' table. You
can move, or remove it, as needed.
Me.TabelpenjualanTableAdapter.Fill(Me.Database7DataSet.tabelpenjualan)
End Sub
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
TotalTextBox.Text =
Val(HargaTextBox.Text) * Val(JumlahTextBox.Text)
KembalianTextBox.Text =
Val(PemayaranTextBox.Text) - Val(TotalTextBox.Text)
If
PemayaranTextBox.Text > TotalTextBox.Text Then
ElseIf
TotalTextBox.Text > PemayaranTextBox.Text Then
MsgBox("Pembayaran
Kurang, Silahkan Tambahkan", MsgBoxStyle.Critical)
End If
End Sub
Private Sub Button2_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
If
TextBox1.Text Then
Me.TabelpenjualanBindingSource.Filter
= "IDPenjualan ='" &
TextBox1.Text & "'"
End If
End Sub
Private Sub Button3_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
Me.Validate()
Me.TabelpenjualanBindingSource.EndEdit()
TabelpenjualanTableAdapter.Update(Me.Database7DataSet.tabelpenjualan)
Dim
koneksi As String
= "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\axioo\Documents\Database6.accdb
"
Dim
tambah As String
= "INSERT into tabelpenjualan values('"
& IDPenjualanTextBox.Text & "','"
& NamaBarangTextBox.Text & "','"
& HargaTextBox.Text & "','"
& JumlahTextBox.Text & "','"
& TotalTextBox.Text & "','"
& PemayaranTextBox.Text & "','"
& KembalianTextBox.Text & "','"
& TanggalTextBox.Text & "')"
Dim
objekkoneksi As New
OleDb.OleDbConnection(koneksi)
objekkoneksi.Open()
Dim
ocmd = New OleDbCommand(tambah, objekkoneksi)
ocmd.Dispose()
MsgBox("Data
telah tersimpan")
objekkoneksi.Close()
End Sub
Private Sub Button5_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button5.Click
TabelpenjualanBindingSource.RemoveCurrent()
End Sub
Private Sub Button4_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button4.Click
If
IDPenjualanTextBox.Text <> ""
And NamaBarangTextBox.Text <> "" And HargaTextBox.Text
<> "" And JumlahTextBox.Text <> "" And
TotalTextBox.Text <> "" And PemayaranTextBox.Text <> "" And
KembalianTextBox.Text <> "" And TanggalTextBox.Text <> "" Then
Dim
query As String
= "Update tabelpenjualan set
NamaBarang='" & NamaBarangTextBox.Text & "',Harga='" & HargaTextBox.Text
& "',Jumlah='" &
JumlahTextBox.Text & "' where IDPenjualan=
" & IDPenjualanTextBox.Text & ""
'MsgBox(cmdUpdate.CommandText)
Dim
command As New
OleDbCommand
With
command
.CommandText = query
.Connection = objekkoneksi
.ExecuteNonQuery()
End
With
IDPenjualanTextBox.Text = ""
NamaBarangTextBox.Text = ""
HargaTextBox.Text = ""
JumlahTextBox.Text = ""
TotalTextBox.Text = ""
PemayaranTextBox.Text = ""
KembalianTextBox.Text = ""
TanggalTextBox.Text = ""
Else
MsgBox("Enter
the required values:" & vbNewLine & "1. IDPenjualan" & vbNewLine & "2.NamaBarang" & vbNewLine & "3.Harga" & vbNewLine & "4. Jumlah" & vbNewLine & "5.Total" & vbNewLine & "6.Pemayaran" & vbNewLine & "7.Kembalian" & vbNewLine & "7.Tanggal")
End If
objekkoneksi.Dispose()
End Sub
Private Sub Button6_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button6.Click
TabelpenjualanBindingSource.AddNew()
End Sub
End Class
Kemudian kita jalankan program yang tadi di
buat
Username : Shanita
Password : 1506
Kemudian klik ok dan akan muncul login sukses
Klik ok maka akan muncul form 2
Jika button baru diklik maka akan seperti ini
Sebelum meng klik button hitung
Setelah meng klik button hitung
Saat mengklik button simpan
Saat mengklik button hapus
Saat akan mencari data, tulislah di textbox
pencarian dengan menulis id penjualannya, maka akan seperti ini
Saat mengklik button edit
Sekian penjelasan mengenai program yang saya
buat, mohon maaf jika masih ada kekurangan. Semoga bermanfaat.
Wassalamualaikum wr.wb
