Visual Basic 

Tuliskan script & buat aplikasi visual basic sesuai dengan flowchart & design dibawah ini 

DataGridView di Visual Basic adalah sebuah kontrol (komponen) yang digunakan untuk menampilkan dan mengelola data dalam bentuk tabel di aplikasi Windows Forms.
Kontrol ini sangat berguna ketika kita ingin menampilkan data dari database atau daftar (list) dalam format baris dan kolom yang rapi, mirip seperti spreadsheet di Excel.

Script :

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

        ' Membuat kolom untuk DataGridView

        DataGridView1.ColumnCount = 4

        DataGridView1.Columns(0).Name = "No"

        DataGridView1.Columns(1).Name = "Nama Produk"

        DataGridView1.Columns(2).Name = "Jumlah Terjual"

        DataGridView1.Columns(3).Name = "Harga Per Unit (Rp)"

        ' Menambahkan baris data ke dalam DataGridView

        Dim row As String() = New String() {"1", "Komputer A", "10", "5000000"}

        DataGridView1.Rows.Add(row)

        row = New String() {"2", "Komputer B", "5", "4500000"}

        DataGridView1.Rows.Add(row)

        row = New String() {"3", "Komputer C", "8", "6000000"}

        DataGridView1.Rows.Add(row)

        row = New String() {"4", "Komputer D", "3", "7000000"}

        DataGridView1.Rows.Add(row)

        row = New String() {"5", "Komputer E", "7", "6500000"}

        DataGridView1.Rows.Add(row)

        ' Menyesuaikan lebar kolom

        DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill

        'DataGridView1.ColumnCount = 4: Menentukan jumlah kolom dalam DataGridView.

        'DataGridView1.Columns(0).Name = "No": Memberi nama pada setiap kolom.

        'DataGridView1.Rows.Add(row): Menambahkan baris data ke dalam DataGridView.

        'DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill: Mengatur agar lebar kolom menyesuaikan dengan lebar DataGridView.

    End Sub

1. Persiapan Database Access

2. Membuat Project di Visual Basic

3. Menambahkan Library Koneksi

Kode Program

Imports System.Data.OleDb

Public Class Form9

    Dim conn As OleDbConnection

    Dim cmd As OleDbCommand

    Dim sql As String

    Dim db As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Materi Pembelajaran\2025 - 2026\Semester 1\XII-1\Integrasi Database Access\db_siswa.mdb;"

    Sub koneksi()

        conn = New OleDbConnection(db)

        conn.Open()

    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click

        Call koneksi()

        sql = "INSERT INTO tbl_siswa (NIS, Nama, Jurusan) VALUES (@nis, @nama, @jurusan)"

        cmd = New OleDbCommand(sql, conn)

        cmd.Parameters.AddWithValue("@nis", txtNIS.Text)

        cmd.Parameters.AddWithValue("@nama", txtNama.Text)

        cmd.Parameters.AddWithValue("@jurusan", txtJurusan.Text)

        cmd.ExecuteNonQuery()

        MessageBox.Show("Data berhasil disimpan")

        conn.Close()

    End Sub

End Class

Desain Form

• Tambahkan DataGridView dengan nama DataGridView1.

• Tambahkan Button bernama btnTampil (untuk memanggil data).

Kode Program

Imports System.Data.OleDb

Public Class Form10

    Dim conn As OleDbConnection

    Dim da As OleDbDataAdapter

    Dim ds As DataSet

    Dim db As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Materi Pembelajaran\2025 - 2026\Semester 1\XII-1\Integrasi Database Access\db_siswa.mdb;"

    ' Prosedur koneksi

    Sub koneksi()

        conn = New OleDbConnection(db)

        conn.Open()

    End Sub

    ' Tampilkan data ke DataGridView

    Sub tampilData()

        Call koneksi()

        da = New OleDbDataAdapter("SELECT * FROM tbl_siswa", conn)

        ds = New DataSet()

        da.Fill(ds, "tbl_siswa")

        DataGridView1.DataSource = ds.Tables("tbl_siswa")

        conn.Close()

    End Sub

    ' Event klik tombol tampil

    Private Sub btnTampil_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnTampil.Click

        tampilData()

    End Sub

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

        Form9.Show()

        Me.Hide()

    End Sub

End Class

Kode Program

  Try

            Call koneksi()

            cb = New OleDbCommandBuilder(da) ' Otomatis buat query Insert, Update, Delete

            da.Update(ds, "tbl_siswa") ' Simpan perubahan dataset ke database

            conn.Close()

            MessageBox.Show("Data berhasil diperbarui!", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

        Catch ex As Exception

            MessageBox.Show("Gagal update: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try

Kode Program

  Try

            If DataGridView1.CurrentRow IsNot Nothing Then

                ' Konfirmasi hapus

                If MessageBox.Show("Yakin ingin menghapus data ini?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then

                    ' Hapus baris dari DataGridView & DataSet

                    DataGridView1.Rows.Remove(DataGridView1.CurrentRow)

                    ' Update perubahan ke database

                    Call koneksi()

                    cb = New OleDbCommandBuilder(da)

                    da.Update(ds, "tbl_siswa")

                    conn.Close()

                    MessageBox.Show("Data berhasil dihapus!", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

                End If

            Else

                MessageBox.Show("Pilih data yang ingin dihapus dulu!", "Peringatan", MessageBoxButtons.OK, MessageBoxIcon.Warning)

            End If

        Catch ex As Exception

            MessageBox.Show("Gagal hapus: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try