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

Kode Program

 ' === Export ke Excel ===

    Private Sub btnExportExcel_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnExportExcel.Click

        Try

            ' Koneksi ke database Access

            Dim connStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Materi Pembelajaran\2025 - 2026\Semester 1\XII-1\Tugas buat aplikasi input data siswa\Aplikasi VB\DataSiswa.mdb;"

            Dim conn As New OleDbConnection(connStr)

            conn.Open()

            ' Ambil data siswa

            Dim da As New OleDbDataAdapter("SELECT * FROM Siswa", conn)

            Dim dt As New DataTable

            da.Fill(dt)

            conn.Close()

            ' Buka aplikasi Excel

            Dim excelApp As New Excel.Application

            Dim workbook As Excel.Workbook = excelApp.Workbooks.Add()

            Dim worksheet As Excel.Worksheet = workbook.Sheets(1)

            ' Judul besar

            worksheet.Range("A1:L1").Merge()

            worksheet.Range("A1").Value = "DATA SISWA SMA PGRI 1 KOTA BOGOR"

            worksheet.Range("A1").Font.Size = 16

            worksheet.Range("A1").Font.Bold = True

            worksheet.Range("A1").HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter

            ' Header kolom

            Dim headers() As String = {"NIS", "NO", "Nama Lengkap", "Tempat Lahir", "Tanggal Lahir", "Jenis Kelamin", "Agama", "Alamat", "Orang Tua/Wali", "No Telepon", "Kelas", "Jurusan"}

            For i As Integer = 0 To headers.Length - 1

                worksheet.Cells(3, i + 1) = headers(i)

                worksheet.Cells(3, i + 1).Font.Bold = True

                worksheet.Cells(3, i + 1).Interior.Color = RGB(200, 200, 200) ' Background abu-abu

                worksheet.Cells(3, i + 1).HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter

                worksheet.Columns(i + 1).ColumnWidth = 15

            Next

            ' Isi data

            For r As Integer = 0 To dt.Rows.Count - 1

                For c As Integer = 0 To dt.Columns.Count - 1

                    worksheet.Cells(r + 4, c + 1) = "'" & dt.Rows(r)(c).ToString()

                Next

            Next

            ' Auto-fit kolom

            worksheet.Columns.AutoFit()

            ' Simpan file Excel

            Dim savePath As String = "D:\Materi Pembelajaran\2025 - 2026\Semester 1\XII-1\Tugas buat aplikasi input data siswa\DataSiswa.xlsx"

            workbook.SaveAs(savePath)

            workbook.Close()

            excelApp.Quit()

            MsgBox("Data berhasil diekspor ke Excel di: " & savePath)

        Catch ex As Exception

            MsgBox("Gagal ekspor: " & ex.Message)

        End Try

    End Sub

Kode Program

Imports System.Data.OleDb

Imports Microsoft.Office.Interop

Public Class Form1

    Dim conn As OleDbConnection

    Dim cmd As OleDbCommand

    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\Tugas buat aplikasi input data siswa\Aplikasi VB\DataSiswa.mdb;"

    ' ==== Membuka koneksi ====

    Sub Koneksi()

        conn = New OleDbConnection(db)

        If conn.State = ConnectionState.Closed Then

            conn.Open()

        End If

    End Sub

    ' ==== Tampilkan semua data ====

    Sub TampilkanData()

        Koneksi()

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

        ds = New DataSet

        da.Fill(ds, "Siswa")

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

        conn.Close()

    End Sub

    ' ==== Bersihkan TextBox ====

    Sub ClearInput()

        For Each ctl As Control In Me.Controls

            If TypeOf ctl Is TextBox Then

                ctl.Text = ""

            End If

        Next

        dtpTanggallahir.Value = Date.Now

        cmbJK.SelectedIndex = -1

        cmbAgama.SelectedIndex = -1

        cmbKelas.SelectedIndex = -1

        cmbJurusan.SelectedIndex = -1

        TextBox1.Focus()

    End Sub

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

        ' Tampilkan data awal

        TampilkanData()

        ' Isi Jenis Kelamin

        cmbJK.Items.Add("Laki-laki")

        cmbJK.Items.Add("Perempuan")

        ' Isi Agama

        cmbAgama.Items.Add("Islam")

        cmbAgama.Items.Add("Kristen")

        cmbAgama.Items.Add("Katolik")

        cmbAgama.Items.Add("Hindu")

        cmbAgama.Items.Add("Buddha")

        cmbAgama.Items.Add("Konghucu")

        ' Isi Kelas

        cmbKelas.Items.Add("X-1")

        cmbKelas.Items.Add("X-2")

        cmbKelas.Items.Add("X-3")

        cmbKelas.Items.Add("XI-1")

        cmbKelas.Items.Add("XI-2")

        cmbKelas.Items.Add("XI-3")

        cmbKelas.Items.Add("XI-4")

        cmbKelas.Items.Add("XII-1")

        cmbKelas.Items.Add("XII-2")

        cmbKelas.Items.Add("XII-3")

        ' Isi Jurusan

        cmbJurusan.Items.Add("Saintek")

        cmbJurusan.Items.Add("Soshum")

        'Format Tanggal Lahir

        dtpTanggallahir.Format = DateTimePickerFormat.Custom

        dtpTanggallahir.CustomFormat = "yyyy-MM-dd"

    End Sub

    ' ==== CREATE (Simpan Data Baru) ====

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

        Try

            Koneksi()

            Dim sql As String = "INSERT INTO Siswa (NIS, NamaLengkap, TempatLahir, TanggalLahir, JenisKelamin, Agama, Alamat, OrangTuaWali, NoTelepon, Kelas, Jurusan) " &

                                "VALUES (@NIS, @NamaLengkap, @TempatLahir, @TanggalLahir, @JenisKelamin, @Agama, @Alamat, @OrangTuaWali, @NoTelepon, @Kelas, @Jurusan)"

            cmd = New OleDbCommand(sql, conn)

            cmd.Parameters.AddWithValue("@NIS", TextBox1.Text)

            cmd.Parameters.AddWithValue("@NamaLengkap", TextBox2.Text)

            cmd.Parameters.AddWithValue("@TempatLahir", TextBox3.Text)

            cmd.Parameters.AddWithValue("@TanggalLahir", dtpTanggallahir.Value.Date) ' DateTimePicker

            cmd.Parameters.AddWithValue("@JenisKelamin", cmbJK.Text)            ' ComboBox

            cmd.Parameters.AddWithValue("@Agama", cmbAgama.Text)                ' ComboBox

            cmd.Parameters.AddWithValue("@Alamat", TextBox7.Text)

            cmd.Parameters.AddWithValue("@OrangTuaWali", TextBox8.Text)

            cmd.Parameters.AddWithValue("@NoTelepon", TextBox9.Text.Trim())

            cmd.Parameters.AddWithValue("@Kelas", cmbKelas.Text)                ' ComboBox

            cmd.Parameters.AddWithValue("@Jurusan", cmbJurusan.Text)            ' ComboBox

            cmd.ExecuteNonQuery()

            conn.Close()

            MsgBox("Data berhasil disimpan!")

            TampilkanData()

            ClearInput()

        Catch ex As Exception

            MsgBox("Gagal menyimpan data: " & ex.Message)

        End Try

    End Sub

    ' ==== READ (Pilih Data dari Grid ke TextBox) ====

    Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick

        If e.RowIndex >= 0 Then

            Dim row As DataGridViewRow = DataGridView1.Rows(e.RowIndex)

            TextBox1.Text = row.Cells("NIS").Value.ToString()

            TextBox2.Text = row.Cells("NamaLengkap").Value.ToString()

            TextBox3.Text = row.Cells("TempatLahir").Value.ToString()

            If Not IsDBNull(row.Cells("TanggalLahir").Value) AndAlso row.Cells("TanggalLahir").Value IsNot Nothing Then

                dtpTanggallahir.Value = Convert.ToDateTime(row.Cells("TanggalLahir").Value).Date

            Else

                dtpTanggallahir.Value = Date.Today

            End If

            cmbJK.Text = row.Cells("JenisKelamin").Value.ToString()

            cmbAgama.Text = row.Cells("Agama").Value.ToString()

            TextBox7.Text = row.Cells("Alamat").Value.ToString()

            TextBox8.Text = row.Cells("OrangTuaWali").Value.ToString()

            TextBox9.Text = row.Cells("NoTelepon").Value.ToString()

            cmbKelas.Text = row.Cells("Kelas").Value.ToString()

            cmbJurusan.Text = row.Cells("Jurusan").Value.ToString()

        End If

    End Sub

    ' ==== UPDATE (Ubah Data) ====

    Private Sub btnUpdate_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnUpdate.Click

        Try

            Koneksi()

            Dim sql As String = "UPDATE Siswa SET NamaLengkap=@NamaLengkap, TempatLahir=@TempatLahir, TanggalLahir=@TanggalLahir, JenisKelamin=@JenisKelamin, Agama=@Agama, Alamat=@Alamat, OrangTuaWali=@OrangTuaWali, NoTelepon=@NoTelepon, Kelas=@Kelas, Jurusan=@Jurusan WHERE NIS=@NIS"

            cmd = New OleDbCommand(sql, conn)

            cmd.Parameters.AddWithValue("@NamaLengkap", TextBox2.Text)

            cmd.Parameters.AddWithValue("@TempatLahir", TextBox3.Text)

            cmd.Parameters.AddWithValue("@TanggalLahir", dtpTanggallahir.Value.Date)

            cmd.Parameters.AddWithValue("@JenisKelamin", cmbJK.Text)

            cmd.Parameters.AddWithValue("@Agama", cmbAgama.Text)

            cmd.Parameters.AddWithValue("@Alamat", TextBox7.Text)

            cmd.Parameters.AddWithValue("@OrangTuaWali", TextBox8.Text)

            cmd.Parameters.AddWithValue("@NoTelepon", TextBox9.Text)

            cmd.Parameters.AddWithValue("@Kelas", cmbKelas.Text)

            cmd.Parameters.AddWithValue("@Jurusan", cmbJurusan.Text)

            cmd.Parameters.AddWithValue("@NIS", TextBox1.Text)

            cmd.ExecuteNonQuery()

            conn.Close()

            MsgBox("Data berhasil diperbarui!")

            TampilkanData()

            ClearInput()

        Catch ex As Exception

            MsgBox("Gagal memperbarui data: " & ex.Message)

        End Try

    End Sub

    ' ==== DELETE (Hapus Data) ====

    Private Sub btnDelete_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnDelete.Click

        Try

            Koneksi()

            Dim sql As String = "DELETE FROM Siswa WHERE NIS=@NIS"

            cmd = New OleDbCommand(sql, conn)

            cmd.Parameters.AddWithValue("@NIS", TextBox1.Text)

            cmd.ExecuteNonQuery()

            conn.Close()

            MsgBox("Data berhasil dihapus!")

            TampilkanData()

            ClearInput()

        Catch ex As Exception

            MsgBox("Gagal menghapus data: " & ex.Message)

        End Try

    End Sub

    ' === Export ke Excel ===

    Private Sub btnExportExcel_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnExportExcel.Click

        Try

            ' Koneksi ke database Access

            Dim connStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Materi Pembelajaran\2025 - 2026\Semester 1\XII-1\Tugas buat aplikasi input data siswa\Aplikasi VB\DataSiswa.mdb;"

            Dim conn As New OleDbConnection(connStr)

            conn.Open()

            ' Ambil data siswa

            Dim da As New OleDbDataAdapter("SELECT * FROM Siswa", conn)

            Dim dt As New DataTable

            da.Fill(dt)

            conn.Close()

            ' Buka aplikasi Excel

            Dim excelApp As New Excel.Application

            Dim workbook As Excel.Workbook = excelApp.Workbooks.Add()

            Dim worksheet As Excel.Worksheet = workbook.Sheets(1)

            ' Judul besar

            worksheet.Range("A1:L1").Merge()

            worksheet.Range("A1").Value = "DATA SISWA SMA PGRI 1 KOTA BOGOR"

            worksheet.Range("A1").Font.Size = 16

            worksheet.Range("A1").Font.Bold = True

            worksheet.Range("A1").HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter

            ' Header kolom

            Dim headers() As String = {"NIS", "NO", "Nama Lengkap", "Tempat Lahir", "Tanggal Lahir", "Jenis Kelamin", "Agama", "Alamat", "Orang Tua/Wali", "No Telepon", "Kelas", "Jurusan"}

            For i As Integer = 0 To headers.Length - 1

                worksheet.Cells(3, i + 1) = headers(i)

                worksheet.Cells(3, i + 1).Font.Bold = True

                worksheet.Cells(3, i + 1).Interior.Color = RGB(200, 200, 200) ' Background abu-abu

                worksheet.Cells(3, i + 1).HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter

                worksheet.Columns(i + 1).ColumnWidth = 15

            Next

            ' Isi data

            For r As Integer = 0 To dt.Rows.Count - 1

                For c As Integer = 0 To dt.Columns.Count - 1

                    worksheet.Cells(r + 4, c + 1) = "'" & dt.Rows(r)(c).ToString()

                Next

            Next

            ' Auto-fit kolom

            worksheet.Columns.AutoFit()

            ' Simpan file Excel

            Dim savePath As String = "D:\Materi Pembelajaran\2025 - 2026\Semester 1\XII-1\Tugas buat aplikasi input data siswa\DataSiswa.xlsx"

            workbook.SaveAs(savePath)

            workbook.Close()

            excelApp.Quit()

            MsgBox("Data berhasil diekspor ke Excel di: " & savePath)

        Catch ex As Exception

            MsgBox("Gagal ekspor: " & ex.Message)

        End Try

    End Sub

    ' ==== KELUAR ====

    Private Sub btnTutup_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnTutup.Click

        Me.Close()

    End Sub

End Class