Latihan_28A_46110020

Deskripsi Form Latihan_28A_46110020

Dalam form ini terdapat Dua buah object yaitu DataGriedView, dan Button.

Object DataGriedView

Dalam form ini terdapat satu objek DataGridView yang berfungsi untuk menampilkan data dari SQL (DATABARANG).

Object Button

Terdapat Dua item object Button yang digunakan untuk menyipan yang telah di input pada tombol “Input” dan mentup data pada tombol “Tutup”.

Cara Membuat Form Latihan 28A_46110020

1. Bukalah project yang anda telah buat sebelumnya

2. Pilih dan Bukalah Project dalam Visul Basic

3. Kemudian Pilih Add Windows form seperti berikut :

 

4. Lalu add new item dan rename file “form.vb menjadi Latihan_28A_46110020”

5. Setelah namenya di rename pilih add lalu muncullah form seperti ini :

6. Kemudian mulailah membuat form 28A dengan mengunakan Datagriedview, dan Button.

7. Lalu buatlah sesuai contoh latihan 28A maka akan menjadi seperti ini :

8. Setelah form di atas telah jadi maka klik kanan lalu pilih View Code,kemudian masukkan rumus seperti berikut :

Public Class Latihan_28A_46110020

    Dim YUNI As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")

    Dim EGA As New DataTable

    Public Sub CINTA()

        'mendeklarasikan adapter

        Dim data As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut

        data = New OleDb.OleDbDataAdapter("SELECT* FROM barang", YUNI)

        'bersihkan data dulu sebelum isi data lain

        EGA.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable

        data.Fill(EGA)

        data.Dispose()

    End Sub

    Private Sub Latihan_28A_46110020_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        CINTA()

        DGV_46110020.DataSource = EGA

    End Sub

    Private Sub INPUT_46110020_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INPUT_46110020.Click

        'Menampilkan form 28b

        If Latihan_28B_46110020.Visible = False Then

            Latihan_28B_46110020.Show()

        Else

            Latihan_28B_46110020.Activate()

        End If

    End Sub

    Private Sub TUTUP_46110020_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TUTUP_46110020.Click

        Me.Close()

    End Sub

End Class

9. Jalankan program dengan cara mengklik start debugging seperti berikut :

Langkah-Langkah Membuat Form Latihan 28A_46110020

1.        Klik start debugging

2.      Maka data SQL (databarang) akan tampil secara otomatis dari data yang telah di input pada latihan_28B_46110020 seperti di bawah :

3.      Semoga Berhasil :)

Script Unique

1.       Untuk Membuat Koneksi

Dim YUNI As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")

2.     Untuk Membuat 'perintah 'mendeklarasikan adapter

        Dim data As New OleDb.OleDbDataAdapter

3.  Untuk Membuat 'perintah 'Mengatur data yang akan di angkut

        data = New OleDb.OleDbDataAdapter("SELECT* FROM barang", YUNI)

4.    Untuk 'Menampilkan form 28b

        If Latihan_28B_46110020.Visible = False Then

            Latihan_28B_46110020.Show()

        Else

5.     Untuk Menutup Data

 Me.Close()

Even

Clik

Load