Koneksi VB dengan SQL Server

Langkah pertama yang harus dilakukan

1. Pertama buka Microsoft SQL Server 

2.  Buat Database baru , klik kanan Database >> Pilih New Database

3. Pada Database name beri nama data mahasiswa >> klik tombol Ok

4.  Klik ganda pada Databases, kemudian klik ganda pada pada pilihan data mahasiswa 

5.   Klik kanan pada table kemudian pilih new table

6. Buat tabel seperti ini

7.  Buka VB 2010 dan buat Project Baru kemudian buat form baru seperti ini

8. Koneksi form dengan database . Data -Add New Data Source

    tekan next

9.   Pilih New Connection- Microsoft SQL Server-Continue

      Tekan Next

10. lalu next ,centang pada tab tables -> finish

tampilan form pada vb, drag database 

Penjelasan VB 2010 

1. Tombol Delete

Kode :

   Private Sub hapus_Click(ByVal sender As System.Object, ByVal e AsSystem.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 AsSystem.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 AsSystem.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 AsSystem.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 AsSystem.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 AsSystem.EventArgs) Handles Baru.Click

        TbmahasiswaBindingSource.AddNew()

        NimTextBox.Focus()

        Tgl_lhrDateTimePicker.ResetText()

    End Sub

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

        TbmahasiswaBindingSource.MoveFirst()

    End Sub

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

        TbmahasiswaBindingSource.MovePrevious()

    End Sub

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

        TbmahasiswaBindingSource.MoveNext()

    End Sub

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

        TbmahasiswaBindingSource.MoveLast()

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e AsSystem.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 AsSystem.EventArgs) Handles edit.Click

        NimTextBox.Focus()

    End Sub

End Class

Posted in: