Visual
Studio 2010
D
I
S
U
S
U
N
OLEH :
NAMA
: M KAITO EFRANSYAH
NIM : 061640831787
KELAS
: 4MIB
DOSEN
PEMBIMBING : HENNY MADDORA S.Kom,M.M
TAHUN AJARAN 2018/2019
POLITEKNIK NEGERI SRIWIJAYA
Nama : M Kaito Efransyah Kelas :
4MIB
NIM
: 061640831787
Dosen : Henny Maddora S.Kom,M.M
Membuat Visual Studio 2010 Perpustakaan
Form Buku
Terdiri Dari (5 TextBox,5 Label,6
Button+DataGrid+BlindingSource)
Sebelum Membuat Itu Buat Dahulu Database
Dengan Microsoft Access 2010 Dan Koneksi Kan Ke Visual Studio 2010
. Aktifkan program
Visual Basic 2010
Pada menu bar,
klik Data-add new datasource-New connection.
Pilih Database
pada Pemilihan Tipe Data Source, lalu klik Next.
Pada pemilihan
Data Connection, klik New Connection.
Akan muncul
kotak Add Connection, lalu ubah Data Source menjadi Microsoft Access Database
File (OLE DB), kemudian masukkan nama dan lokasi file database yang telah
dibuat dengan menggunakan tombol Browse, lalu untuk memastikan database
terhubung dengan baik klik Test Connection. Jika sudah terhubung maka klik Ok.
Klik Next,
kemudian akan muncul dialog box seperti pada gambar di bawah, klik Yes
Pilih Objek
Database yang dibutuhkan, klik keduanya (tables dan views) jika keduanya
dibutuhkan, lalu klik Next.
Kemudian pada
bagian kiri layar, klik Datasource, maka akan muncul database yang telah
dimasukkan, lalu drag data yang akan ditampilkan pada Visual Basic, kemudian
drop di form Visual Basic yang kosong.
Maka otomatis
akan muncul komponen BindingNavigator, BindingSource, dan DataGridView pada
form Visual Basic, dan pada bagian listingnya akan terisi otomatis sesuai
dengan database yang digunakan.
Lalu Membuat Database nya pada Microsoft
Access 2010 dengan table nama nya buku1 dan berisikan
ID,JUDUL,PENGARANG,PENERBIT,TAHUN,HARGA.
Listing Program
Public
Class Form1
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
'TODO: This line of code loads data into the
'Buku1DataSet.buku1' table. You can move, or remove it, as needed.
Me.Buku1TableAdapter.Fill(Me.Buku1DataSet.buku1)
'TODO: This line of code loads data into the
'Buku1DataSet.buku1' table. You can move, or remove it, as needed.
Me.Buku1TableAdapter.Fill(Me.Buku1DataSet.buku1)
'TODO: This line of code loads data into the
'Buku1DataSet1.buku1' table. You can move, or remove it, as needed.
Me.Buku1TableAdapter.Fill(Me.Buku1DataSet.buku1)
'TODO: This line of code loads data into the
'Buku1DataSet.buku1' table. You can move, or remove it, as needed.
Me.Buku1TableAdapter.Fill(Me.Buku1DataSet.buku1)
'TODO: This line of code loads data into the
'Buku1DataSet.buku1' table. You can move, or remove it, as needed.
Me.Buku1TableAdapter.Fill(Me.Buku1DataSet.buku1)
'TODO: This line of code loads data into the
'Buku1DataSet.buku1' table. You can move, or remove it, as needed.
Me.Buku1TableAdapter.Fill(Me.Buku1DataSet.buku1)
End Sub
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Buku1BindingSource.MovePrevious()
End Sub
Private Sub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button2.Click
Buku1BindingSource.AddNew()
End Sub
Private Sub
Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button3.Click
Buku1BindingSource.MoveNext()
End Sub
Private Sub
Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button6.Click
On Error
GoTo SaveErr
Buku1BindingSource.EndEdit()
Buku1TableAdapter.Update(Buku1DataSet.buku1)
MessageBox.Show("OK BOSS")
SaveErr:
Exit Sub
End Sub
Private Sub
Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button5.Click
Buku1BindingSource.RemoveCurrent()
End Sub
Private Sub
Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button4.Click
Me.Close()
End Sub
End
Class
Komentar
Posting Komentar