Latihan_28A_46110055

Deskripsi Latihan 28A

Pada form latihan 28A terdapat 2 object yang digunakan yaitu Button dan DataGridView.

Object Datagridview

Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Object Button

Terdapat 2 object button (input dan tutup). Tombol input digunakan untuk menampilkan form penginputan data pada “Latihan_28B_46110055”, sedangkan tombol tutup untuk mengakhiri program yang dijalankan.

Script Unique

-

Even 

Load

ButtonClick

Langkah-langkah membuat Latihan 28A:

1. Buka  Microsoft Visual Studio 2008

2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 28A”

6. Setelah itu beri teks pada label dan button , serta ganti nama design yang diakhiri nim anda pada semua object, kecuali label.

7. Pilih menu “view” klik  “code”.

8. Masukkan rumus berikut :

Public Class Latihan_28A_46110055

    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_46110055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ambildata()

        dgv46110055.DataSource = ambil

    End Sub

    Private Sub input46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles input46110055.Click

        'Menampilkan form 28b

        If Latihan_28B_46110055.Visible = False Then

            Latihan_28B_46110055.Show()

        Else

            Latihan_28B_46110055.Activate()

        End If

    End Sub

    Private Sub tutup46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tutup46110055.Click

        Me.Close()

    End Sub

End Class

9. Klik start debugging

10. maka akan muncul hasil seperti dibawah ini,