Menggabungkan Database pada SQL Server 2005 dengan Visual Basic 2010

1. Jalankan SQl Server, Buatlah database baru dan inputkan : NIM, Nama, Tanggal Lahir, Alamat,  Jurusan dan SPP lalu simpan misal dengan nama Dbmahasiswa.
2. Kemudian Jalankan Visual Basic 2010, Buatlah Project baru (Form) pada VB 2010. Lalu koneksikan SQl server dengn VB 2010 Caranya: 

      - Klik menu Data > Pilih New Data Source atau klik tab data Source 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 tulisan Add New Data Model, pilih Database dan klik Next.

      - Muncul Jendela  Choose Your Connection dan klik tombol New Connection

      - Muncul Jendela Choose Data Source, klik SQL Server Database File sebagai Data Source lalu klik 

        Continue.

      - Kemudian pilih file database yang anda buat tadi contoh Dbmahasiswa dengan klik tombol Browse 

         pada kotak Database File, lalu klik Test Connection, jika koneksi berhasil maka muncul tampilan 

         berikut :

g.        Jika muncul konfirmasi mengopi file data dari project, klikNo –> Next.

h.        Muncul jendelaChoose Your Database, klik tanda panah ke kanan pada folder Tables dan klik kota   

       di  depan tabel Dbmahasiswa, sehingga diberi tandachecklist. Kemudian klik tombol Finish.

i.         Muncul Dbmahasiswa dijendela Data Source.

j.         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
  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

1. kode program ’’Untuk button <’’

Private Sub First_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles First.Click
TblmahasiswaBindingSource.MoveFirst()

End Sub

2. kode program ’’Untuk button <’’

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

3. kode progaram ’’Untuk button >’’

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

4. kode program ’’Untuk button >|’’

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

5. kode program ’’Untuk button Add’’

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

6. kode program ’’Untuk button Save’’

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)
End Sub

7.kode program  ’’Untuk button Remove’’

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

End Sub

8. kode program ’’Untuk button Find’’

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