Prosedur Penyelesaian Latihan_21_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_21_36110040
4. Buat Form Latihan_21_36110040 dibawah ini:
5. Berikut
ini Rumus untuk menjalankan Form diatas:
Public Class Latihan_21_36110040
Dim hubung As New
OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data
source= D:\rahmi punya\semester 5\aplikasi komputer
4\tugas\datatransaksijualbeli.accdb")
Dim tbl As New DataTable
Dim tbl2 As New DataTable
Dim rpt As New DataSet
Dim rahmi As New BindingSource
Dim rahmi2 As New BindingSource
Private Sub Latihan_21_36110040_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim
truk As New
OleDb.OleDbDataAdapter
Dim
truk2 As New
OleDb.OleDbDataAdapter
truk = New
OleDb.OleDbDataAdapter("select * from
mastertransaksi", hubung)
truk.Fill(tbl)
truk.Dispose()
truk = New
OleDb.OleDbDataAdapter("select * from
detailtransaksi", hubung)
truk.Fill(tbl2)
truk2.Dispose()
rpt.Tables.Add(tbl)
rpt.Tables.Add(tbl2)
tbl.TableName = "01"
tbl2.TableName = "02"
rpt.Relations.Add(New DataRelation("03",
rpt.Tables("01").Columns("notrans"), rpt.Tables("02").Columns("notrans")))
rahmi.DataSource = rpt
rahmi.DataMember = "01"
rahmi2.DataSource = rahmi
rahmi2.DataMember = "03"
kertas1_36110040.DataSource = rahmi
kertas2_36110040.DataSource = rahmi2
End Sub
End ClassEnd Class
6. Setelah itu jalankan Programnya dengan
menekan “start debugging”
7. Kemudian simpan file tersebut dengan
menekan icon “save”
8. Selesai
Deskripsi Latihan_21_36110040
A.
Object dalam Latihan_21_36110040 :
Hanya ada
satu object dalam Latihan_21_36110040, yaitu object DataGridView sebanyak satu.
B.
Script Unique
Untuk script, dapat diliat secara
lebih lengkap pada Prosedur Penyelesaian Latihan_21_36110040.
C.
Even
Latihan_21_36110040_Load
Tidak ada komentar:
Posting Komentar