Tugas 12 Pemograman Bisnis 2

Saat ini saya akan menjelaskan tentang penggunaan data base dan bagaimana bisa memanupulasi database seperti, insert,delete, dan select, yang terkontrol oleh vb.net.
Aplikasi yang ingin dibuat adalah aplikasi pendaftaran volunteer kegiatan sosial.

Langkah Pertama:
Buat Project baru pada visual stuido dengan bahasa pemograman vb
Buat 2 macam Form yaitu, FormLogin, Form 1 untuk pendaftaran

Form Login
kah

Form 1 untuk pendaftaran

Langkah Kedua:

Buat Database pada Ms. Access 

Langkah Ketiga

Sambugnkan visuak studio dengan database

klik Data,  Lalu Pilih Add New Data Source, Lalu klik Next, New Connection Pilih Ms Access dan setelah oke copy connection string data tersebut, klik next hingga selesai.

Langkah Keempat

Isi Coding Form Login dengan

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim Username As String

        Dim password As String

        Username = System.Convert.ToString(TextBox1.Text)

        password = System.Convert.ToString(TextBox2.Text)

        If Username.Contains(" Ayu ") Then

           password.Contains("13304")

        Else

            MessageBox.Show("Masukkan Username dan Password yang benar")

        End If

    End Sub

Disini saya mengkondisikan yang bisa mengakses form ini hanya Ayu sebagai sekeretaris Organisasi.

Langkah Kelima 

isi coding Form Pendaftaran dengan

//Diatas

Imports System.Data

Imports System.Data.SqlClient

Imports System.Data.OleDb

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

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

        Dim ObjekKoneksi As New OleDb.OleDbConnection(Koneksi)

    End Sub

// Pada Button Save

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

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

        Dim ObjekKoneksi As New OleDb.OleDbConnection(Koneksi)

        ObjekKoneksi.Open()

        Dim Tambah As String = "INSERT INTO TableVolunteer values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.T

ext & "','" & TextBox5.Text & "')"

        Dim oCmd = New OleDbCommand(Tambah, ObjekKoneksi)

        oCmd.ExecuteNonQuery()

        MsgBox("Sukses..")

        ObjekKoneksi.Close()

    End Sub

Jika berhasil menyimpan maka data yang input dalam aplikasi akan otomatis terinput pada database, Contoh:

saya menginput data Elsa dan data tersebut otomatis tersimpan dalam Database

// pada Button Delete

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

    End Sub

// pada button exit

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Me.Close()

    End Sub

SELESAI

SELAMAT MENCOBA