Program Database dan Koneksi dari SQL Server ke VB.Net 2010

1. Langkah pertama kita membuat Database. 

Buka SQL Server, bikin new database isikan tabel diantaranya : NIM, Nama, Tanggal lahir, Alamat, Jurusan dan SPP lalu simpan dgn nama tabel anda sendiri cth dbARIFDWI. Kemudian siap membuat program memakai VB 2010 dengan memanfaatkan database tersebut.
 
2. Sekarang buka VB 2010. Buat koneksi Database SQL Server dengan VB 2010. 

•   Buat Project Baru (Form) pada VB 2010.
•   Klik menu Data, pilih New Data Source atau klik tab Data Sources dibawah tab Toolbox, muncul tulisan Add New Data Source dan klik.
•   Akan muncul jendela Choose a Data Source Type, pilih Database dan klik tombol Next.
•   Muncul jendela Chosse a Database Model, pilih Dataset dan klik tombol Next.
•   Muncul jendela Chosse Your Connection dan klik tombol New Connection....
•   Muncul jendela Chosse Data Source, klik SQL Server Database File sebagai Data Source lalu klik tombol Continue.
•   Kemudian Pilih file database yg anda buat tadi cth dbARIFDWI dengan mengeklik tombol Browse... pada kotak Database File, kemudian anda klik Test Connection, jika koneksi berhasil muncul informasi berikut.

•   Jika muncul konfirmasi mengopi file data dari project, klik No --> Next.
•   Muncul jendela Choose Your Database, klik tanda panah ke kanan pada folder Tables dan klik kota di depan tabel dbARIFDWI, sehingga diberi tanda checklist. Kemudian klik tombol Finish.
•   Muncul dbARIFDWI dijendela Data Source.
•   Tarik (drag n drop) semua record ke Form seperti berikut. 

Keterangan :

1. Tombol |< : untuk berpindah ke data pertama.
2. Tombol < : untuk berpindah ke data sebelumnya.
3. Tombol > : untuk berpindah ke data selanjutnya.
4. Tombol >| : untuk berpindah ke data terakhir.
5. Tombol Add : untuk menambahkan data baru.
6. Tombol Save : untuk menyimpan data.
7. Tombol Remove : untuk menghapus data.
8. Tombol Find : untuk mencari data dengan yang telah ditentukan.

Masukan Source Code dibawah ini pada masing - masing Button sesuai dengan fungsinya.

Public Class Datamahasiswa

    Private Sub TblmahasiswaBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TblmahasiswaBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.TblmahasiswaBindingSource.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.tblmahasiswa' table. You can move, or remove it, as needed.
        Me.TblmahasiswaTableAdapter.Fill(Me.DbmahasiswaDataSet.tblmahasiswa)

    End Sub

    Private Sub First_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles First.Click
        TblmahasiswaBindingSource.MoveFirst() ''Untuk button |<''
    End Sub

    Private Sub Previous_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Previous.Click
        TblmahasiswaBindingSource.MovePrevious() ''Untuk button <''
    End Sub

 Private Sub Next__Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Next_.Click
        TblmahasiswaBindingSource.MoveNext() ''Untuk button >''
    End Sub

    Private Sub Last_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Last.Click
        TblmahasiswaBindingSource.MoveLast() ''Untuk button >|''
    End Sub

    Private Sub Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Add.Click
        TblmahasiswaBindingSource.AddNew() ''Untuk button Add''
        NIMTextBox.Focus()
    End Sub

    Private Sub Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save.Click
        Me.Validate()
        Me.TblmahasiswaBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet) ''Untuk button Save''
    End Sub

    Private Sub Remove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Remove.Click
        TblmahasiswaBindingSource.ResetCurrentItem() ''Untuk button Remove''
    End Sub

    Private Sub Find__Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Find_.Click
        If (TblmahasiswaBindingSource.Find("Nama", tbx_find.Text)) > -1 Then
            MsgBox("Data berhasil ditemukan")
        Else
            MsgBox("Data tidak berhasil ditemukan") ''Untuk button Find''
        End If
    End Sub
End Class

Semoga bermanfaat.Mohon maaf jika ada kesalahan atau kekurangan dari analisis saya karena saya juga masih dalam tahap belajar. ^_^