1.
Klik Start lalu pilih Microsoft
Visual Studio 2008
2.
Lalu akan muncul jendela awal
Microsoft Visual Studio seperti di bawah ini.
3.
Lalu pilih New Project dan beri nama
serta pilih tempat folder untuk menyimpannya.
4.
Kemudian
buat form sesuai dengan form di bawah ini.
5.
Berikut
ini adalah rumus untuk menjalankan form di atas.
Public Class
Latihan_22_36110048
Dim bridgeRio As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=D:\Rhyo\SEMESTER 5\Apkom 4\LATIHAN 15-26 MENGAKSES
DATA\DataTransaksiJualBeli.accdb")
Dim tabelRio1 As New DataTable
Dim tabelRio2 As New DataTable
Dim setRio As New DataSet
Dim Rio1 As New BindingSource
Dim Rio2 As New BindingSource
Private Sub
Latihan_22_36110048_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Load
Dim truckRio1 As New OleDb.OleDbDataAdapter
Dim tructRio2 As New OleDb.OleDbDataAdapter
truckRio1 = New OleDb.OleDbDataAdapter("Select
* from MASTERTRANSAKSI", bridgeRio)
truckRio1.Fill(tabelRio1)
truckRio1.Dispose()
tructRio2 = New OleDb.OleDbDataAdapter("Select
DETAILTRANSAKSI.NOTRANS, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT,
DETAILTRANSAKSI.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT *
BARANG.HARGAJUAL AS JUMLAHSTANDAR, DETAILTRANSAKSI.UNIT * DETAILTRANSAKSI.HARGA
AS JUMLAHREALISASI FROM BARANG INNER JOIN DETAILTRANSAKSI ON
BARANG.KODEBARANG=DETAILTRANSAKSI.KODEBARANG", bridgeRio)
tructRio2.Fill(tabelRio2)
tructRio2.Dispose()
setRio.Tables.Add(tabelRio1)
setRio.Tables.Add(tabelRio2)
tabelRio1.TableName = "R1"
tabelRio2.TableName = "R2"
setRio.Relations.Add(New DataRelation("R3", setRio.Tables("R1").Columns("NOTRANS"),
setRio.Tables("R2").Columns("NOTRANS")))
Rio1.DataSource
= setRio
Rio1.DataMember
= "R1"
Rio2.DataSource
= Rio1
Rio2.DataMember
= "R3"
DGV1_36110048.DataSource = Rio1
DGV2_36110048.DataSource = Rio2
End Sub
End Class
6.
Setelah itu, jalankan programnya.
0 komentar:
Posting Komentar