Deskripsi Form :
Form Latihan ini Terdapat hanya 1 object yaitu datagridview:
Object
datagridview.
object datagridview pada form ini ada 2 yang masing-masing akan berisikan tabel data sesuai dengan fungsi yang dimasukkan
Cara Membuat Form
A.
Buka
project anda, lalu pilih “Project” pada menu bar dan pilih add windows form.
B.
Masukkan
nama form yang sesuai dengan kemauan anda lalu tekan “add”.
C.
Buatka
desain form sesuai dengan gambar dibawah ini, lihat dan sesuaikan dengan deskripsi
agar tidak salah memilih object.
D.
Ubah
nama object tersebut. Ingat, nama object di desain harus sama dengan nama
object di rumus vb.
E.
Setelah
itu, klik kanan lalu pilih view code untuk memasukkan fungsi dan masukkan
fungsi yang sesuai. Atau masukkan fungsi dibawah ini.
Public Class Latihan_21_46110021
Dim hubung As New
OleDb.OleDbConnection("provider =
microsoft.ace.oledb.12.0;data source =" &
Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim dede1 As New DataTable
Dim dede2 As New DataTable
Dim dss As New DataSet
Dim ikha1 As New BindingSource
Dim ikha2 As New BindingSource
Private Sub latihan_21_045_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim
chiko1 As New
OleDb.OleDbDataAdapter
Dim
chiko2 As New
OleDb.OleDbDataAdapter
chiko1 = New
OleDb.OleDbDataAdapter("select * from
mastertransaksi", hubung)
chiko1.Fill(dede1)
chiko1.Dispose()
chiko1 = New
OleDb.OleDbDataAdapter("select * from
detailtransaksi", hubung)
chiko1.Fill(dede2)
chiko2.Dispose()
dss.Tables.Add(dede1)
dss.Tables.Add(dede2)
dede1.TableName = "01"
dede2.TableName = "02"
dss.Relations.Add(New DataRelation("03",
dss.Tables("01").Columns("notrans"), dss.Tables("02").Columns("notrans")))
ikha1.DataSource = dss
ikha1.DataMember = "01"
ikha2.DataSource = ikha1
ikha2.DataMember = "03"
DataGridView1_46110021.DataSoumastertransaksirce =
ikha1
DataGridView2_46110021.DataSource =
ikha2
End Sub
End Class
Script Unik
A. chiko1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", hubung)-> script ini digunakan untuk mendeklarasaikan sebuah data access objet yang akan mengambil dari tabel
B. chiko1.Fill(dede2)-> script ini berfungsi untuk mengisi data tabel dede2 dengan data dari chiko1
Langkah
untuk menjalankan form ini :
A.
Klik
start debugging.
B.
Data
akan secara otomatis muncul pada object datagridview.