latihan_17_46110006

Deskripsi Form Latihan 17

 Pada form latihan 17 ini, hanya terdapat satu object, yaitu object DataGridView .

Script Unique :
Membuat koneksi :
Dim CONECT As NewOleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\apkom 4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")
Membuat Adapter :
Dim fitri As New OleDb.OleDbDataAdapter

        fitri = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)

                             
Mengisi datatable ke database :
fitri.Fill(DS)

        dtg_46110006.DataSource = DS
Menghancurkan adapter yg telah dipakai :
 fitri.Dispose()

Even 
Load 

Langkah-langkah Membuat Form 17 :

1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

 

2.       Lalu add new item dan rename file “form.vb menjadi Latihan_17_46110006”

      

3.       Buatlah design form seperti pada gambar berikut ini :

6.    Klik kanan lalu pilih “View Code” ,setelah itu ketik rumus untuk menjalankan from diatas

            

Public Class Latihan_17_46110006

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

    Dim DS As New DataTable

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

        Dim fitri As New OleDb.OleDbDataAdapter

        fitri = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)

        DS.Rows.Clear()

        fitri.Fill(DS)

        dtg_46110006.DataSource = DS

        fitri.Dispose()

    End Sub

End Class

Langkah-langkah menjalankan Form Latihan_17_46110006 :

1.    Klik start debugging maka akan tampil seperti berikut :

 2. Selamat Mencoba