Deskripsi form
latihan 383940
Dalam form Latihan 383940 terdapat dua object yaitu Button dan DataGridView.
Dalam form Latihan 383940 terdapat dua object yaitu Button dan DataGridView.
Object Button :
Dalam form ini terdapat dua buah object button yang bertuliskan “simpan” dan “tambah”. Button “tambah” digunakan untuk menampilkan data yang telah diinput di datagridview sedangkan Button “simpan” berfungsi untuk menyimpan data yang telah diinput di latihan ini ke dalam database.
Dalam form ini terdapat dua buah object button yang bertuliskan “simpan” dan “tambah”. Button “tambah” digunakan untuk menampilkan data yang telah diinput di datagridview sedangkan Button “simpan” berfungsi untuk menyimpan data yang telah diinput di latihan ini ke dalam database.
Object datagridview
:
Dalam form ini terdapat 1 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.
Script Unique :
Dalam form ini tidak terdapat script unique
Dalam form ini terdapat 1 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.
Script Unique :
Dalam form ini tidak terdapat script unique
Even :
Load
Langkah-langkah penyelesaian form latihan 383940
1.Buat form
baru seperti gambar dibawah ini,
2. Ketikkan nama
form latihan_383940_xxxxx, lalu
klik add
3. Buat form
seperti gambar di bawah ini:
4. Setelah itu input script berikut ini :
Public Class latihan_383940_46110004
Public Class latihan_383940_46110004
Dim Jalan As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source =D:\Dokumen Koe\SEMESTER 5\APKOM 4\Visual Basic\LATIHAN 35-40 DATA
MAJEMUK\Datamajemuk.ACCDB")
Dim gitik As New DataTable
Public Sub bojel()
'mendeklarasikan
kendaraan
Dim
Mobil As New
OleDb.OleDbDataAdapter
'Mengatur
data yang akan di angkut
Mobil = New
OleDb.OleDbDataAdapter("SELECT* FROM
BARANG", Jalan)
gitik.Rows.Clear()
'untuk
memasukkan data yg telah di angkut ke dalam datatable
Mobil.Fill(gitik)
Mobil.Dispose()
End Sub
Private Sub latihan_383940_46110004_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.Load
bojel()
dgv_46110004.DataSource = gitik
End Sub
End Class
5. Program ini akan muncul jika kode barang yang di input pada latihan 38, 39 dan 40 tidak terdapat pada database maka akan muncul tampilan seperti gambar dibawah ini:
Langganan:
Posting Komentar (Atom)






0 komentar:
Posting Komentar