Tugas Rania: November 2014

Pada postingan saya saat ini, saya akan menampilkan step-step pembuatan VB dengan menyambungkan ke MS. Access.

Saya membuat rancangan tentang pelatihan atau les dengan sistem bayar harian. Jadi, untuk mengikuti pelatihan ini harus bayar sebesar Rp 50.000,- setiap pertemuan dan ada 5 pertemuan. Peserta bebas memilih berapa hari akan mengikuti pelatihan ini.

Baiklah, mari kita mulai.

Pertama tama, saya akan membuat base dari database itu sendiri. Saya menggunakan Ms. Access untuk pembuatan database ini


Database

Setelah itu saya mengisi satu baris untuk percobaan.

Lalu saya save.

Setelah selesai dengan Ms. Access, saya berpindah ke Visual Studio. Saya buat project baru. Saya menggunakan 3 Form, yaitu Form Log In, Form utama atau Main Form untuk mengisi data yang nantinya akan terintegrasi dengan Ms. Access, dan yang terakhir adalah form browse yaitu Form untuk melihat apakah data sudah masuk ke Ms. Access.

Saya membuat interface Form pertama yaitu Form LogIn

Source Code untuk Button OK

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.Text = "rania" Then
            If TextBox2.Text = "12345" Then
                MainForm.Show()
            Else
                MessageBox.Show("ID atau Password anda salah. Silahkan ulang kembali!")
            End If
        Else
            MessageBox.Show("ID atau Password anda salah. Silahkan ulang kembali!")
        End If
    End Sub
End Class

Kemudian saya membuat MainForm

Source Code

Jangan lupa menambahkan code ini di paling atas
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb

Public Class MainForm

Untuk Button Save

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\DatabaseTugasVB2.accdb"
        Dim objekKoneksi As New OleDb.OleDbConnection(koneksi)
        objekKoneksi.Open()

        Dim tambah As String = "INSERT INTO PesertaPelatihan values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & ComboBox1.Text & "','" & Label9.Text & "','" & ComboBox2.Text & "','" & TextBox4.Text & "')"
//PesertaPelatihan didapat dari nama Table di Ms. Access

        Dim oCmd = New OleDbCommand(tambah, objekKoneksi)

        oCmd.ExecuteNonQuery()
        MsgBox("SUKSES")
        objekKoneksi.Close()
    End Sub

    Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged

    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        If ComboBox1.Text = "1" Then
            ComboBox2.Text = "5%"
        End If
        If ComboBox1.Text = "2" Then
            ComboBox2.Text = "5%"
        End If
        If ComboBox1.Text = "3" Then
            ComboBox2.Text = "5%"
        End If
        If ComboBox1.Text = "4" Then
            ComboBox2.Text = "10%"
        End If
        If ComboBox1.Text = "5" Then
            ComboBox2.Text = "10%"
        End If

        If ComboBox2.Text = "5%" Then
            TextBox4.Text = (Label9.Text * ComboBox1.Text) - (Label9.Text * ComboBox1.Text * 5 / 100)
        End If
        If ComboBox2.Text = "10%" Then
            TextBox4.Text = (Label9.Text * ComboBox1.Text) - (Label9.Text * ComboBox1.Text * 10 / 100)
        End If
    End Sub

Untuk Button Browse
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Browse.Show()
    End Sub
End Class

Bagaimana cara mendapatkan code dari:

    Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\DatabaseTugasVB2.accdb"

Step ini juga akan menjelaskan cara untuk mengitegrasi Visual Studio dengan Ms. Access