Shanita's: UAS PEMROGRAMAN BISNIS 2

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 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