Latihan_25b_46110001

        

 1.   object-object yang terdapat dalam latihan 25b ini adalah

a.  Object Label

Terdapat 4 label pada form latihan 25B (Kode Barang, Harga Barang, Harga Jual dan Jumlah Barang).

b.  Object t3xbox

Pada form ini terdapat 4 object textbox yang nantinya akan menampilkan detail data yang telah dipilih pada Latihan_24A_46110001.

c.   Object DataGridView

Terdapat 1 object datagridview berfungsi untuk menampilkan data tabel yang diinginkan (sesuai dengan detail pada text box).

d.  Even

Load

CellContentClick

e.   Script Unique

·         Membuat Koneksi

Dim jembatan As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")

  

·         Membuat data tabel

Dim tabel As New DataTable

·         Membuat adapter

Dim adapter As New OleDb.OleDbDataAdapter

·         Membersihkan data tabel

tabel.Rows.Clear()

·         Mengisi data base kedalam data table

adapter.Fill(tabel)

DGV24B_46110001.DataSource = tabel

·         Menghancurkan adapter yang sudah dipakai

adapter.Dispose()

·         Mengisi data base kedalam data tabel

adapter.Fill(tabel)

DGV24B_46110001.DataSource = tabel

                  2.   Proses penyelesaian

•  Langkah pertama dalam membuat form/ latihan 24b ialah, 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_24b_46110001
    Dim jembatan As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim tabel As New DataTable

    Public Sub bahri(ByVal a As String)
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("SELECT DETAILTRANSAKSI.ID, DETAILTRANSAKSI.NoTrans, DETAILTRANSAKSI.Unit, DETAILTRANSAKSI.Harga FROM DETAILTRANSAKSI where kodebarang='" & a & "'", jembatan)
        tabel.Rows.Clear()
        adapter.Fill(tabel)
        adapter.Dispose()

        DGV24B_46110001.DataSource = tabel
    End Sub

    Private Sub latihan_24B_46110001_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub

    Private Sub dgv24b_46110001_CellContentClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV24B_46110001.CellContentClick



    End Sub
End Class

• langkah selanjutnya adalah jalankan program dengan Mengklik start debugging seperti pada gambar dibawah ini