Latihan_28A_46110045

Deskripsi :
Dalam form Latihan 28A hanya ada Datagridview dan Button.


Object datagridview :

Dalam form ini terdapat  1 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.

 

Object button :

Dalam form ini terdapat sebuah object button yang bertuliskan “simpan”. Button ini berfungsi untuk menyimpan data yang telah diinput di latihan ini ke dalam database.

Langkah-langkah penyelesaian form 28A :

1. Pilih add windows form lalu tambahkan form 28A.

2. Buatlah desain formnya.

3. Masukkan rumus seperti ini

Public Class Latihan_28A_46110045
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Dim ambil As New DataTable
    Public Sub ambildata()
        'mendeklarasikan adapter
        Dim data As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut
        data = New OleDb.OleDbDataAdapter("SELECT* FROM barang", Jalan)

        'bersihkan data dulu sebelum isi data lain
        ambil.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable
        data.Fill(ambil)
        data.Dispose()

    End Sub

    Private Sub Latihan_28A_46110045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ambildata()
        dgv46110045.DataSource = ambil
    End Sub

    Private Sub input46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles input46110045.Click
        'Menampilkan form 28b
        If Latihan_28B_46110045.Visible = False Then
            Latihan_28B_46110045.Show()
        Else
            Latihan_28B_46110045.Activate()
        End If
    End Sub

    Private Sub tutup46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tutup46110045.Click
        Me.Close()
    End Sub
End Class

 

Even :

Load

Button click