Latihan_15_36110044 Aplikasi Komputer 4

Form Latihan 15

Terdapat object DataGridView satu buah

Script Unique

Script Unique dapat dilihat pada Prosedur Penyelesaian Latihan ini.

Even

Latihan_15_36110044_Load

PROSEDUR PENYELESAIAN:

1.      Klik star lalu pilih Microsoft Visual Studio 2008

 

2.      Pilih icon Add New Item

 

3.      Ubah nama pada lembar “Add New Item” kemudian add

 

4.      Buat design form dengan menggunakan DataGridView yang ada dalam "Toolbox”

 

5.      Ganti nama Textbox dan Button menggunakan "Properties Window"

 

6.      Klik 2x pada kotak design untuk membuka lembar vb
 Masukkan rumus berikut untuk menyelesaikan latihan_15

Public Class Latihan_15_36110044

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=D:\materi kuliah\apkom 4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")

    'deklarasi data table

    Dim DS As New DataTable

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

        Dim TIYA As New OleDb.OleDbDataAdapter

        'deklarasi adapter

        TIYA = New OleDb.OleDbDataAdapter("select * from barang", CONECT)

        'membersihkan data table

        DS.Rows.Clear()

        'mengisi database ke dalam data table

        TIYA.Fill(DS)

        'mengisi database ke dalam data table

        DGV_36110044.DataSource = DS

        'menghancurkan kendaraan(adapter) yang sudah dipakai

        TIYA.Dispose()

    End Sub

End Class

7.       Jalankan program dengan menggunakan  “start debugging”