Latihan_18_46110022

06.48 by Unknown
--> 
Deskripsi Form Latihan_18_46110022
Dalam form ini hanya terdapat 1 buah object yaitu DataGriedView.

Object Datagriedview
Terdapat sebuah object Datagriedview yang digunakan untuk menampilkan data tabel yang telah dibuat.


Script Unique

1.  Dim DS As New DataTable ==> untuk membuat DataTable baru.
2.  ega = New OleDb.OleDbDataAdapter ==> untuk membuat adapter baru.
3.  DS.Rows.Clear() ==> untuk membersihkan DataTable
4.  ega.Fill(DS)
      dgv46110022.DataSource = DS ==> untuk mengisi database ke dalam DataTable
5.  ega.Dispose() ==> untuk menghancurkan adapter yang telah dipakai.
 
Even
Load

Langkah-Langkah Membuat Form Latihan 18_46110022

1. Buat form baru seperti langkah berikut :
2. Input nama form pada kolom  "add" seperti berikut :
3. Buat desain form seperti gambar berikut :
4. Input script di bawah ini :

Public Class Latihan_18_46110022
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= E:\SEMESTER 5\apkom\bahan ajar\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")

    Dim DS As New DataTable

    Private Sub Latihan_18_46110022_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim ega As New OleDb.OleDbDataAdapter
        ega = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, detailtransaksi.notrans, detailtransaksi.unit, detailtransaksi.harga from barang inner join detailtransaksi on barang.kodebarang=detailtransaksi.kodebarang", CONECT)
        DS.Rows.Clear()
        ega.Fill(DS)
        dgv46110022.DataSource = DS
        ega.Dispose()
    End Sub
End Class
5. Jalankan program dengan cara mengklik start debugging seperti berikut :

Langkah-Langkah Membuat Form Latihan 18_46110022
  1. Klik start debugging
  2. Hasil akan muncul sendiri secara otomatis.
  3. Good luck :)



0 komentar
0 Responses

Langganan: Posting Komentar (Atom)