Latihan_22_46110022

07.00 by Unknown
Deskripsi Form Latihan_22_46110022
Dalam form ini hanya terdapat 1 buah object yaitu DataGriedView.

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

Script Unique

1.  Dim ega1 As New DataTable ==> untuk membuat DataTable baru.
2.  Dim puss1 As New OleDb.OleDbDataAdapter  ==> untuk membuat adapter baru.
3.  Dim noldi1 As New BindingSource ==> untuk membuat data Binding Source baru.
4. Dim dss As New DataSet ==> untuk membuat data set baru.
5. dss.Tables.Add(ega1) ==> untuk menambahkan data table ke dalam dataset.
6. ega1.TableName = "01" ==> untuk membuat nama lain pada DataTable
7. puss1.Fill(ega1) ==> untuk mengisi database ke dalam data table
8. dss.Relations.Add(New DataRelation("03", dss.Tables("01").Columns("notrans"), dss.Tables("02").Columns("notrans"))) ==>  untuk membuat relationship.
9.  ega.Dispose() ==> untuk menghancurkan adapter yang telah dipakai.
10. noldi1.DataSource = dss
   noldi1.DataMember = "01"
   noldi2.DataSource = noldi1
   noldi2.DataMember = "03"   ==>  ketika data set menjadi data sorce
11. dgv146110022.DataSource = noldi1
   dgv246110022.DataSource = noldi2 ==> Binding source menjadi data source pda datagridview.
Even
Load

Langkah-Langkah Membuat Form Latihan 22_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_22_46110022
    Dim hubung 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 ega1 As New DataTable
    Dim ega2 As New DataTable

    Dim dss As New DataSet

    Dim noldi1 As New BindingSource
    Dim noldi2 As New BindingSource

    Private Sub Latihan_22_46110022_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim puss1 As New OleDb.OleDbDataAdapter
        Dim puss2 As New OleDb.OleDbDataAdapter

        puss1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", hubung)
        puss1.Fill(ega1)
        puss1.Dispose()

        puss2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", hubung)
        puss2.Fill(ega2)
        puss2.Dispose()

        dss.Tables.Add(ega1)
        dss.Tables.Add(ega2)

        ega1.TableName = "01"
        ega2.TableName = "02"

        dss.Relations.Add(New DataRelation("03", dss.Tables("01").Columns("notrans"), dss.Tables("02").Columns("notrans")))

        noldi1.DataSource = dss
        noldi1.DataMember = "01"
        noldi2.DataSource = noldi1
        noldi2.DataMember = "03"

        dgv146110022.DataSource = noldi1
        dgv246110022.DataSource = noldi2
    End Sub
End Class

5. Jalankan program dengan cara mengklik start debugging seperti berikut :

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




0 komentar
0 Responses

Langganan: Posting Komentar (Atom)