MENGGABUNGKAN SEBUAH PROGRAM DENGAN DATA BASE

 

Untuk menggabungkan sebuah data base ke dalam program visual basic kita membutuhkan sebuah applikasi program pembuat data base seperti SQL server 2005.

Untuk langkah - langkahnya adalah sebagai berikut:

Buka SQL server 2005 -> SQL server management studio

Kemudian muncul kotak dialog connect to server, lalu klik Connect

 

Kemudian pada Data Base, Klik kanan dan New Data Base

 

 

 Kemudian beri Nama Data Basenya pada "Name Data Base" dan pilih juga tempat penyimpanannya

 

 

Kemudian klik 2x pada "Data Base" dan pada "Nama Data Base tersebut", lalu klik kanan dan pilih "New Table" 

 

Setelah itu isikan tabel tersebut dengan atribut - atributnya beserta tipe datanya

kemudian simpan dan beri nama sub table tersebut

Setelah itu pada nama table, klik kanan dan pilih Open Table

Kemudia isikan Datanya sesuai nama atributnya

 

Setelah itu kita buka Visual Basic 2010 dan buat from baru

Kemudian koneksikan Data Base dengan Form

Pilih Menu Data -> Add New Data Source -> pilh "Data Base" -> next

Klik New Conection -> pilih Microsoft SQL Server -> continou

Lengkapi isian lalu klik Test Conection, jika koneksi succes berarti koneksi berhasil -> Ok -> next

Pada Chouse Your Data Base Object pilih nama table yang akan di tampilkan dengan mencentangnya.

Kemudian Finish

Kemudian pada form baru kita isikan dengan nama - nama atrubut - atribut yang berada pada data base, yaitu dengan cara drag nama - nama atribut kemudian pindahkan ke form.

Dan beri button tambahan seperti Sebelum, Selanjutnya, Awal, Akhir, Simpan, Hapus, Filter, dan Cari

 

 

 

 

 

 

Dan Untuk Kode programnya Sebagai Berikut:

 

Public Class Form1

    Private Sub TbmahasiswaBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbmahasiswaBindingNavigatorSaveItem.Click

        Me.Validate()

        Me.TbmahasiswaBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)

    End Sub

    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 'DbmahasiswaDataSet.tbmahasiswa' table. You can move, or remove it, as needed.

        Me.TbmahasiswaTableAdapter.Fill(Me.DbmahasiswaDataSet.tbmahasiswa)

    End Sub

    Private Sub JurusanTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub BindingNavigatorMoveNextItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorMoveNextItem.Click

    End Sub

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

        Me.Validate()

        Me.TbmahasiswaBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)

    End Sub

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

        TbmahasiswaBindingSource.MoveFirst()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        TbmahasiswaBindingSource.MovePrevious()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        TbmahasiswaBindingSource.MoveNext()

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        TbmahasiswaBindingSource.MoveLast()

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        TbmahasiswaBindingSource.AddNew()

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        If MsgBox("Yakin ingin Menghapus", vbQuestion + vbYesNo + vbDefaultButton1, "Perhatian") = vbYes Then

            TbmahasiswaBindingSource.RemoveCurrent()

        End If

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        TbmahasiswaBindingSource.Find()

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        TbmahasiswaBindingSource.Filter

    End Sub

End Class

 

 

 

Penjelasan Programnya untuk setiap button Sebagai Berikut:

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

        Me.Validate()

        Me.TbmahasiswaBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)

    End Sub

=>Untuk program diatas merupakan code program untuk perintah button Save, yaitu untuk menyimpan sebuah data base yang telah di tuliskan atau data base baru

 

 

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

        TbmahasiswaBindingSource.MoveFirst()

    End Sub

=>Untuk program diatas merupakan code program untuk perintah button keawal

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        TbmahasiswaBindingSource.MovePrevious()

    End Sub

 =>Untuk program diatas merupakan code program untuk perintah button sebelumnya


 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        TbmahasiswaBindingSource.MoveNext()

    End Sub

=>Untuk program diatas merupakan code program untuk perintah button selanjutnya

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        TbmahasiswaBindingSource.MoveLast()

    End Sub

=>Untuk program diatas merupakan code program untuk perintah button keakhir

  Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        TbmahasiswaBindingSource.AddNew()

    End Sub

=>Untuk program diatas merupakan code program untuk perintah button tambah, yaitu untuk menambah data base

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        If MsgBox("Yakin ingin Menghapus", vbQuestion + vbYesNo + vbDefaultButton1, "Perhatian") = vbYes Then

            TbmahasiswaBindingSource.RemoveCurrent()

        End If

    End Sub

=>Untuk program diatas merupakan code program untuk perintah button hapus, yaitu untuk menghapus data base

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        TbmahasiswaBindingSource.Find()

    End Sub

=>Untuk program diatas merupakan code program untuk perintah button cari, yaitu untuk mencari suatu data base

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        TbmahasiswaBindingSource.Filter

    End Sub

=>Untuk program diatas merupakan code program untuk perintah button filter, yaitu untuk menyaring data base yang kita inginkan