Latihan_383940_46110020

Deskripsi Form Latihan_383940_46110020

Dalam form ini terdapat Satu buah object yaitu DataGriedView.

Object DataGriedView

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

Cara Membuat Form Latihan_383940_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_383940_46110020”

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

6. Kemudian mulailah membuat form 383940 dengan mengunakan Datagriedview.

7. Lalu buatlah sesuai contoh latihan 383940 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_383940_46110020

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

    Dim AYU As New DataTable

    Public Sub BATU()

        'mendeklarasikan kendaraan

        Dim YUYU As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut

        YUYU = New OleDb.OleDbDataAdapter("SELECT* FROM BARANG", YUNI)

        AYU.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable

        YUYU.Fill(AYU)

        YUYU.Dispose()

    End Sub

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

        BATU()

        DGV_46110020.DataSource = AYU

    End Sub

End Class

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

Langkah-Langkah Membuat Form Latihan _383940_46110020

1. Klik start debugging

2. Maka data tersebut  akan tampil secara otomatis  seperti di bawah :

3.      Semoga Berhasil J

Script Unique

Script unik pada latihan ini :

Untuk Mengatur data yang akan di angkut:

        YUYU = New OleDb.OleDbDataAdapter("SELECT* FROM BARANG", YUNI)

        AYU.Rows.Clear()

Even

Load