LATIHAN_20_36110052

Latihan_20_36110052

A.    Object-object dalam Latihan_20_36110052

Hanya ada satu object dalam Latihan_20_36110052, yaitu object DataGridView sebanyak satu.

B.      Script Unique

Untuk script, dapat diliat secara lebih lengkap pada langkah-langkah kerja Latihan_20_36110052.

C.          Even

Latihan_20_36110052_Load

Langkah-langkah kerja  latihan_20_36110052

1.      Buat new windows form dengan cara ketik project àadd windows form  pada project yang telah dibuat dan berikan nama form yang diinginkan

Contoh: latihan_20_36110052

2.      Design form dengan menggunakan tools pada toolbox

3.      Setiap tools yang diambil pada textbox dapat diubah propertiesnya seperti nama dan teksnya dengan cara klik kanan-properties

4.      Buat form dengan bentuk seperti ini:

5.      Setelah selesai form, masuk ke lembar Vb dan masukkan script

Public NotInheritable Class LATIHAN_20_36110052

    Dim via As New DataTable

    Dim vee As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

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

        Dim soe As New OleDb.OleDbDataAdapter

        soe = New OleDb.OleDbDataAdapter("select  * from Query3", vee)

        soe.Fill(via)

        soe.Dispose()

        DataGridView_36110052.DataSource = via

    End Sub

End Class

6.      Uji  program dengan mengklik “Start  Debbuging” dan save program dengan mengklik “Save”.

7.      SELESAI