Cara Membuat Aplikasi Database Menggunakan Visual Basic 2010

Hai sobat apa kabarnya...???

Di artikel kali ini saya akan membahas bagaimana caranya membuat apliakasi database dengan menggunakan virtual basic 2010...

Ok langsung ke TKP ja ya sobh...

Bahan – bahan yang di perlukan:

          1.       Kopi + roko ( biar sobat semua rilex & kaga setres dalam pengerjaanya ) J

          2.       Cewek cantik ( biar dimana sobat – sobat sekalian keringetan ada yang ngelapin tuh ) :D

          3.       Tawa dulu bentar yuk... hehehe...

          4.       Ok yg paling penting nih pc/laptop mesti ada...

          5.       Tentunya aplikasi VB 2010 nya...

kalo sobat sekalian belum ada yang punya bisa download dulu disini , buat cara penginstalannya sudah saya terangkan di artikel sebelumnya.

Ok kalo semuanya sudah dipersiapkan langsung saja jalankan aplikasi VB 2010 nya...

• Dari menu view => other windows => database explorer ( ctrl+alt+s ).

• Setelah menu di akses maka di bagian panel sebelah kiri akan muncul panel baru, yaitu database explorer.

• Pilih menu data connection => klik kanan => pilih add connection .

• Setelah menu add connection terpilih akan muncul jendela sperti berikut

• Pilih Microsot SQL Server Database File => continue

• Dan akan keluar jendela seperti berikut

• Isikan nama file database yang akan dibuat di bagian database file name (disini saya memasukan nama test ) lalu tekan ok.

maka akan keluar message box tekan klik yes saja...

• setelah itu di tab data explorer akan ada tulisan test.mdf

• klik test.mdf => klik kanan sub menu table => lalu klik add new table.

• maka akan keluar tampilan sperti ini

• isikan masing - masing field dengan data yang telah di siapkan ... untuk mempermudah ikuti saja langkah - langkah seperti apa yang saya lakukan...

• untuk menambahkan definisi bahwa field NIK adalah primary key... maka klik kanan tulisan NIK pilih set Primary Key

setelah semua langkah dilakukan tekan Ctrl + S

• isikan nama tabel karyawan diikuti dengan klik OK untuk menyimpan tabel tersebut

• perhatikan di bagian data base explorer sudah muncul nama tabel karyawan yang baru saja anda buat..

• langkah selanjutnya klik file => new project maka akan keluar tampilan speri berikut...

• pilih windows form application diikuti dengan menekan ok

• maka akan keluar tampilan form1 yang nantinya akan menjadi bahan anda untuk membuat database

• di tab menu pilih Data => show data source .. 

• dan akan keluar tampilan seperti berikut lalu pilih add new data source

• pada jendela yang keluar pilih database lalu next

• di jendela selanjutnya pilih dataset lalu next

• di jendela selanjutnya klik next lagi... dan pastikan di kolom terisi nama database yang sebelumnya kita buat ( test.mdf) . apabila keluar message box klik yes..

• untuk selanjutnya klik next sampai keluar jendela seperti berikut 

• lalu tandai kolom tabel dan karyawan seperti berikut diikuti klik finish

• dan lihat di menu data source yang di samping sebelah kiri akan tampil seperti berikut

• lalu klik tanda panah kecil di tulisan karyawan dan klik detail pada menu popup yang keluar , 

• lau klik dan tahan tulisan karyawan dan tarik ke form 1 maka tampilan jendela  form1 akan menjadi seperti berikut.

• selanjutnya klik tanda panah kecil di tulisan karyawan lagi, namun kali ini klik DataGridView pada menu popup yang keluar dan setelah itu klik dan tahan tulisan karyawan dan tarik kembali ke form 1.. maka di jendela form 1 akan menjadi seperti berikut ..

• di sebelah kanan icon disk yang berada di jendela form 1 klik kanan dan akan keluar ikon kecil yg tersembunyi dan klik tanda panah kecilnya lalu pilih button di menu popup yang keluar ..

• setelah itu akan ada icon baru muncul seperti berikut 

• lalu doble klik icon yang baru muncul tersebut dan akan keluar code editor .

• lalu isikan code berikut diantara private sub dan end sub ;

        Try

            Dim cariKaryawan As String = InputBox("Masukan NIK Karyawan", "Pencarian Data")

            Dim rowKaryawan As DataRow

            rowKaryawan = TestDataSet.karyawan.Rows.Find(cariKaryawan)

            If Not (rowKaryawan Is Nothing) Then

                Me.KaryawanBindingSource.Position = rowKaryawan.Table.Rows.IndexOf(rowKaryawan)

            Else

                MessageBox.Show("Data tidak ditemukan", "Pencarian gagal", MessageBoxButtons.OK, MessageBoxIcon.Information)

            End If

        Catch ex As Exception

            MessageBox.Show("Kode Buku Berupa Huruf", "Diisi Karakter Lain", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End Try

• setelah selesai tekan Ctrl + S atu pilih menu Save untuk menyimpan hasil pekerjaan anda..

• untuk melihat hasilnya tekan tombol F5 di keyboard atau pilih menu Debug => Start debugging..
• inilah hasilnya:

anda bisa memasukan data dan menghapus data disitu..

cukup sekian tutorial membuat database dengan VB 2010 ini... apabila ada pertanyaan silahkan berkomentar dengan baik...

semoga bermanfaat... sampai jumpa di artikel berikutnya... 

yang mau CoPas tolong sertakan sumbernya... thx