latihan_16_36110040

Latihan_16_36110040

Deskripsi Latihan_16_36110040
A. Object dalam latihan_16
     Hanya terdapat satu object yaitu DataGridView
B. Script Unique
Public Class latihan_16_36110040

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=D:\rahmi punya\semester 5\aplikasi komputer 4\tugas\datatransaksijualbeli.accdb")

    Dim DS As New DataTable

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

        Dim rahmi As New OleDb.OleDbDataAdapter

        rahmi = New OleDb.OleDbDataAdapter("select * from detailtransaksi", CONECT)

        DS.Rows.Clear()

        rahmi.Fill(DS)

        DGV16_36110040.DataSource = DS

        rahmi.Dispose()

End Sub

End Class

C. Even
Latihan_16_36110040_Load

Tahap Penyelesaian Latihan_16_36110040

1.      Buka Project yang telah dibuat, lalu buka solution Explorer
2.       Setelah itu klik kanan nama project, pilih add dan klik “new item”
3.      Click Add New Item terbuka, pilih Windows Form, lalu isi Name dengan Nama Latihan_16_36110040
4.      Buat Form Latihan_16 dibawah ini:

 5.       Berikut ini Rumus untuk menjalankan Form diatas:
Public Class latihan_16_36110040

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=D:\rahmi punya\semester 5\aplikasi komputer 4\tugas\datatransaksijualbeli.accdb")

    Dim DS As New DataTable

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

        Dim rahmi As New OleDb.OleDbDataAdapter

        rahmi = New OleDb.OleDbDataAdapter("select * from detailtransaksi", CONECT)

        DS.Rows.Clear()

        rahmi.Fill(DS)

        DGV16_36110040.DataSource = DS

        rahmi.Dispose()

End Sub

End Class

6. Setelah itu jalankan Programnya dengan menekan “start debugging”

7.      Setelah menekan  “start debugging”

8.      Kemudian simpan file tersebut dengan menekan icon “save”

9.      Selesai