VB2 , koneksi dengan database

yaaa kali ini saya ada tugas kuliah tentang aplikasi yang tersambung dengan database. Awalnya bingung mau buat aplikasi apa, eh setelah liat pot bunga di dekat jendela akhirnya saya coba buat aplikasi tersebut dengan database untuk toko bunga , isinya tentang daftar pelanggan dan barang yang dipesan tiap bulan ,jadi barang yang dipesan tetap jumlahnya setiap kali pesanan..  Inilah Aplikasinya

->Langkah pertama yaitu sediakan dulu file database untuk menampung data pelanggan dan juga barangnya seperti ini:

setelah data pelanggan, selanjutnya yaitu data barang yang  pelanggan tersebut beli

setelah itu lanjut dengan query , itu gunanya buat menggabung data dari tabel pelanggan dan barang










dasar penyimpanan database selesai, nah sekarang tinggal disimpan di tempat yang diingninkan lalu lita lanjut membuat aplikasinya, saya buat aplikasinya dengan microsoft visual studio 2008


untuk menu awal silahkan dihias sebaik mungkin, kalau saya cukup seperti ini :

untuk button lanjut isinya yaitu : form2.show ( ) <--merupakan form data pelanggan

sedangkan button keluar yaitu : me.close ( )

saatnya untuk form 2.....

form 2 sebagai berikut

pertama-tama sediakan form dulu seperti biasa,lalu di menu data kita klik add new data source,nanti yang muncul yaitu notification seperti ini 

pilih yang database lalu klik next , selanjutnya akan muncul seperti ini

klik new connection lalu muncul seperti ini

nah setting dulu di tombol changeuntuk data source microsoft access database file setelah itu klik browse untuk mencari file database yang sebelumnya kita buat

setelah itu silahkan dicoba koneksinya dengan mengklik tombol 'test connection" lalu ok

klik next lagi dan akan muncul seperti ini..

centang semua object lalu finish.. setelah itu kita kembali ke form 2.. jadikan tampilan form 2 seperti ini

caranya gimana? caranya kita tinggal drag saja object2 yang ada di kolom data source yang ada di kiri atau di kanan,jika tidak ada kolom tersebut jangan khawatir, cukup tekan ctrl+alt+del atau dari menu data juga ada.. untuk yang berupa label dan textbox kita ubah dulu objectnya menjadi detail dengan mengklik objectnya di kolom datasource dan ubah menjadi detail. untuk yang berupa data seperti yang di kanan yaitu dengan mengdrag saat object berupa data grid yaitu dengan mengubah object menjadi datagrid view..

tombol next isinya yaitu : formdatabarang.show( ) <-- form data barang a.k.a. form 3

selanjutnya kita ke form berikutnya yaitu yang berisi tentang data barang caranya sama seperti yang kita lakukan di form 2 yaitu tinggal mendrag dari data source yang tadi hingga akhirnya seperti ini,cuma objectnya dari tabel data barang

tombol next isinya ke form selanjutnya : formlaporan.show ( )

untuk form selanjutnya kita isikan data pelanggan dan barang yang dibeli juga , textboxtnya kita juga drag dari datasource seperti yang kita lakukan di form sebelumnya

di form ini juga bisa untuk menambah daftar pelanggan baru yaitu dengan mengklik tombol tambah di binding navigator diatas form tersebut. tombol hitung yaitu untuk menjumlah harga total dari banyak pesanan perbulan dan harga bunga per tangkai nya, kodingnya yaitu : 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Integer
a = Banyak_pemesanan_per_bulanTextBox.Text & Harga_per_bungaTextBox.Text
TextBox1.Text = Banyak_pemesanan_per_bulanTextBox.Text * Harga_per_bungaTextBox.Text

End Sub

tombol laporan yaitu kita akan ke form  report, kodingnya yaitu:    formreport.show()

Untuk membuat form report yang kita lakukan yaitu membuat form baru lalu mendrag microsoftreportviewer ke form report

sesuaikan ukuran lalu klik pemberitahuan kecil yang ada di kanan atas dari report viewer tersebut lalu chose new design>>klik next lalu akan ketemu pemberitahuan seperti ini

pilih yang query karna kita akan menggabungkan barang dan juga data pelanggan>> next

next saja terus karna selanjutnya merupakan pilihan tampilan yang merupakan keinginan masing2...selanjutnya akan ketemu pemberitahuan ini

untuk ini masukkan ke yang seharusnya yaitu seperti:

kode pelanggan > page

nama pelanggan > group

alamat,jenis bunga,banyak pemesanan, harga perbunga > details

setelah itu tekan tombol next terus untuk variasi atau langsung finish

setelah itu akan ada object baru yaitu report1.rdlc 

untuk variasi menambahkan tanggal yaitu dengan =Now ( ) dan untuk total harga yaitu dengan mengetik =(Fields!Banyak_pemesanan_per_bulan.Value) * (Fields!Harga_per_bunga.Value)

hasilnya akan seperti ini jadinya : 

untuk koding2 dari setiap form seperti berikut 

form utama:

Public Class Form1


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Me.Close()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Formdatapelanggan.Show()

End Sub
End Class

form 2 (form data pelanggan):

Public Class formdatapelanggan

Private Sub TabelpelangganBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabelpelangganBindingNavigatorSaveItem.Click
Me.Validate()
Me.TabelpelangganBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Database1DataSet)

End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'Database1DataSet.tabelpelanggan' table. You can move, or remove it, as needed.
Me.TabelpelangganTableAdapter.Fill(Me.Database1DataSet.tabelpelanggan)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
formdatabarang.Show()

End Sub
End Class

Form 3 (form data barang)

Public Class formdatabarang

Private Sub TabelbarangBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabelbarangBindingNavigatorSaveItem.Click
Me.Validate()
Me.TabelbarangBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Database1DataSet)

End Sub

Private Sub formdatabarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'Database1DataSet.tabelbarang' table. You can move, or remove it, as needed.
Me.TabelbarangTableAdapter.Fill(Me.Database1DataSet.tabelbarang)

Me.ReportViewer1.RefreshReport()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Formlaporan.Show()

End Sub
End Class

Form4(form laporan) :

Public Class Formlaporan


Private Sub TabelbarangBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.TabelbarangBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Database1DataSet)

End Sub

Private Sub Formlaporan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'Database1DataSet.tabelbarang' table. You can move, or remove it, as needed.
Me.TabelbarangTableAdapter.Fill(Me.Database1DataSet.tabelbarang)
'TODO: This line of code loads data into the 'Database1DataSet.tabelbarang' table. You can move, or remove it, as needed.
Me.TabelbarangTableAdapter.Fill(Me.Database1DataSet.tabelbarang)
'TODO: This line of code loads data into the 'Database1DataSet.tabelpelanggan' table. You can move, or remove it, as needed.
Me.TabelpelangganTableAdapter.Fill(Me.Database1DataSet.tabelpelanggan)
'TODO: This line of code loads data into the 'Database1DataSet.tabelpelanggan' table. You can move, or remove it, as needed.
Me.TabelpelangganTableAdapter.Fill(Me.Database1DataSet.tabelpelanggan)
'TODO: This line of code loads data into the 'Database1DataSet.tabelpelanggan' table. You can move, or remove it, as needed.
Me.TabelpelangganTableAdapter.Fill(Me.Database1DataSet.tabelpelanggan)
'TODO: This line of code loads data into the 'Database1DataSet.tabelbarang' table. You can move, or remove it, as needed.
Me.TabelbarangTableAdapter.Fill(Me.Database1DataSet.tabelbarang)

End Sub

Private Sub TabelpelangganBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabelpelangganBindingNavigatorSaveItem.Click
Me.Validate()
Me.TabelpelangganBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Database1DataSet)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Integer
a = Banyak_pemesanan_per_bulanTextBox.Text & Harga_per_bungaTextBox.Text
TextBox1.Text = Banyak_pemesanan_per_bulanTextBox.Text * Harga_per_bungaTextBox.Text

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
formreport.Show()

End Sub
End Class

Form 4(Form Report) :
Public Class formreport

Private Sub formreport_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'Database1DataSet.tabelpelanggan_Query' table. You can move, or remove it, as needed.
Me.tabelpelanggan_QueryTableAdapter.Fill(Me.Database1DataSet.tabelpelanggan_Query)

Me.ReportViewer1.RefreshReport()
End Sub
End Class



sekian aplikasinya,terimakasih... maaf-maaf jika banyak kekurangan... sampai jumpa di post berikutnya..