Latihan_15_46110001
A.
Object dalam
Latihan_15_46110001:
pada form atau pada latihan 15 ini, Hanya ada satu object, yaitu object
DataGridView .
B.
Script Unique
Untuk script
unique, dapat diliat secara lebih lengkap pada Prosedur Penyelesaian Latihan_15_46110001.
C.
Even
Latihan_15_46110001_Load
D.
Cara penyelesaian
- Langkah pertama dalam membuat form/ latihan 15 alah, pada desktop anda, pilih microsoft visual studio 2008.seperti pada langkah dibawah ini
- Setelah itu pilih file kemudian New setelah itu pilih project, maka akan muncul tampilan seperti dibawah ini
- Setelah langkah ke dua selesai maka langkah selanjutnya adalah, pada tampilan project tersebut silahkan anda mengganti nama form sesuai dengan yang anda inginkan
- atau jika anda pernah membuat form sebelumnya, maka langkah selanjutnya yang perlu anda lakukan adalah hanya dengan membuat buat form baru dengan memilih project kemudian pilih add windows form, seperti pada gambar dibawah ini.
- Buatlah form seperti gambar dibawah ini,
- Berikut ini adalah rumus untuk menjalankan form di atas
Public Class Latihan_15_46110001
'deklarasi connection
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
'deklarasi data table
Dim DS As New DataTable
Private Sub Latihan_15_46110001Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim BAHRI As New OleDb.OleDbDataAdapter
'deklarasi adapter
BAHRI = New OleDb.OleDbDataAdapter("select * from barang", CONECT)
'membersihkan data table
DS.Rows.Clear()
'mengisi database ke dalam data table
BAHRI.Fill(DS)
'mengisi database ke dalam data table
DGF_46110001.DataSource = DS
'menghancurkan kendaraan(adapter) yang sudah dipakai
BAHRI.Dispose()
End Sub
End Class
'deklarasi connection
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
'deklarasi data table
Dim DS As New DataTable
Private Sub Latihan_15_46110001Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim BAHRI As New OleDb.OleDbDataAdapter
'deklarasi adapter
BAHRI = New OleDb.OleDbDataAdapter("select * from barang", CONECT)
'membersihkan data table
DS.Rows.Clear()
'mengisi database ke dalam data table
BAHRI.Fill(DS)
'mengisi database ke dalam data table
DGF_46110001.DataSource = DS
'menghancurkan kendaraan(adapter) yang sudah dipakai
BAHRI.Dispose()
End Sub
End Class
- langkah selanjutnya adalah jalankan program dengan Mengklik start debugging seperti pada gambar dibawah in

0 komentar:
Posting Komentar