Membuat Navigasi Mengontrol Database lewat VB2010

Membuat Navigasi Next, Previous, Move Last, Move First

New, Delete, Update, Save, Filter, dan Find

Pada VB2010 dengan Database dari Microsoft SQL Server 2005

                Kali ini “Blogger” akan membahas mengenai Koneksi Database Microsoft SQL Server ke dalam VB2010, dan juga membuat Navigasi – Navigasi yang bisa merubah data Pada Database SQL Server 2005. Pertama-tama, Kita membuat dahulu Database menggunakan Microsoft SQL Server 2005 (Penulis tidak menjelaskan cara penginstallan SQL Server dan membuat Database SQL Server, jika ingin ditanyakan tolong beri komentar...).

Buat project baru, beri nama project sesuai keinginan. Lalu buatlah connection VB dengan SQL Server dengan cara sebagai berikut::

Pertama, pilih Menu “Data” >> “Add New Data Source”. Lalu akan muncul “Tab Wizard” seperti beikut::

Pilih “Database” >> Next, lalu Pilih “Dataset” >> Next. Lalu pilih “New Connection”

 

Lalu Pilih dengan ketentuan sebagai berikut ::

Setelah itu, buatlah form seperti berikut ::

 

Untuk Cara memberi NIM, Nama, dll, dan Table, pertama caranya hanya tinggal drag & Drop, seperti berikut::

Lalu, untuk Coding Navigasi seperti berikut ::

1. Melihat awal Record

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

        Me.TbmhsBindingSource.MoveFirst()

    End Sub

2. Melihat Sebelum Record

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

        Me.TbmhsBindingSource.MovePrevious()

    End Sub

3. Melihat Sesudah Record

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

        Me.TbmhsBindingSource.MoveNext()

    End Sub

4. Melihat Akhir Record

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

        Me.TbmhsBindingSource.MoveLast()

    End Sub

5. Menambah Record

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

        Me.TbmhsBindingSource.AddNew()

    End Sub

6. Menghapus Record

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

        Me.TbmhsBindingSource.RemoveCurrent()

    End Sub

7. Menyimpan Record

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

        Me.Validate()

        Me.TbmhsBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.DbmhsDataSet)

    End Sub

8. Mencari Record

Dim str As String = "Data Source=.;uid=sa;pwd=123;database=master"

        Dim con As New SqlConnection(str)

        Dim cmd As New SqlCommand("select * from logn where username like '%" + TextBox1.Text + "%'", con)

        Dim Adpt As New SqlDataAdapter(cmd)

        Dim ds As New DataSet()

        If (Adpt.Fill(ds, "logn")) Then

            DataGridView1.DataSource = ds.Tables(0)

            MessageBox.Show("match found")

        Else

            MessageBox.Show("match not found")

        End If

    End Sub

Sekian, umumnya coding coneksi sudah otomatis terbentuk oleh VB2010. Jadi tidak usah khawatir.