Membuat koneksi VB 2010 ke SQL server 2005 (Data Base)

Kali ini saya akan membahas tentang Cara menggabungkan VB dan SQL, yang saya gunakan adalah VB 2010 dan SQL server 2005

Berikut penjelasannya :

è Klik Start >> All Programs >> Microsoft SQL Server 2005 >>  SQL Server Managenent Studio, maka akan muncul jendela dialog seperti dibawah ini kemudian Pilih Connect

è Buat Database baru , klik kanan Database >> Pilih New Database

è Pada Database name beri nama data mahasiswa >> klik tombol Ok

è Klik ganda pada Databases, kemudian klik ganda pada pada pilihan data mahasiswa 

è  Klik kanan pada table kemudian pilih new table

è  Buat Table dengan desain seperti gambar dibawah ini,simpan dan beri nama tbmahasiswa kemudian          simpan

è Buka VB 2010 dan buat Project Baru di VB. Net 2010 kemudian buat form baru seperti tampilan berikut ini :

è Koneksikan form dengan database

è Data >> Add New Data Source

 è  Tekan Next >> 

è  Tekan Next >> 

è  Pilih New Connection- Microsoft SQL Server-Continue

è Pada Server Name anda bisa copy nama server dari SQL server anda dan bisa juga mengetikan “local” atau “.”  [tanda titik] >> Klik Connect to a Database>>pada kolom dibawah ada pilihan untuk memilih database yang telah kita buat drag dan pilih sesuai nama database yang telah dibuat>>untuk memastikan koneksi berhasil bisa mengetest koneksi dengan klik tombol TestConnection dan akan diketahui lewat pesan yang muncul

è  Tekan Next >> 

è  Tekan  next kemudian  beri centang pada tab tables, otomatis tbmahasiswa semua terpilih >> Finish

è  Desain form pada VB 2010 seperti dibawah ini, drag database ke form sesuaikan juga layoutnya

Penjelasan VB 2010 :

1. Tombol Delete :

Kode :

   Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        If MsgBox("Apakah Anda Yakin ?", vbYesNo + vbQuestion + vbDefaultButton2, "Delete") = vbYes Then

            TbmahasiswaBindingSource.RemoveCurrent()

        End If

    End Sub

2.  Tombol Search :

Kode :

    Private Sub Search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mencari.Click

        If (TbmahasiswaBindingSource.Find("Nama", Tbsearch.Text)) > -1 Then

            MsgBox("Data berhasil ditemukan")

        Else

            MsgBox("Data tidak berhasil ditemukan")

        End If

    End Sub

3.  Tombol Filter :

Kode :

   Private Sub filter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles filter.Click

        Dim Mencari As String

        Mencari = InputBox("Masukkan Jurusan Yang Di Cari", "Filter ...")

    End Sub

Kode  selengkapnya : 

 Public Class Form1

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

        Me.Validate()

        Me.TbmahasiswaBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.Data_mahasiswaDataSet)

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

        Me.TbmahasiswaTableAdapter.Fill(Me.Data_mahasiswaDataSet.tbmahasiswa)

    End Sub

    Private Sub Baru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Baru.Click

        TbmahasiswaBindingSource.AddNew()

        NimTextBox.Focus()

        Tgl_lhrDateTimePicker.ResetText()

    End Sub

    Private Sub Pertama_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pertama.Click

        TbmahasiswaBindingSource.MoveFirst()

    End Sub

    Private Sub Sebelumnya_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Sebelumnya.Click

        TbmahasiswaBindingSource.MovePrevious()

    End Sub

    Private Sub Berkutnya_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Berkutnya.Click

        TbmahasiswaBindingSource.MoveNext()

    End Sub

    Private Sub Terkhir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Terkhir.Click

        TbmahasiswaBindingSource.MoveLast()

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        Me.Validate()

        Me.TbmahasiswaBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.Data_mahasiswaDataSet)

    End Sub

    Private Sub edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit.Click

        NimTextBox.Focus()

    End Sub

End Class

Maaf bila ada kesalahan dalam kode program 

TERIMA KASIH