tugas 9

koneksi  Visual Basic 2010 dan  SQL Server 2005

Pembahasan kali ini adalah pembahasan mengenai koneksi  Visual Basic 2010 dan  SQL Server 2005.

Membuat Navigasi

Button Pertama

Button Berikutnya

Button Sebelumnya

Button Terahir

Button Tambah

Button Hapus

Button Cari

Button Simpan

Button Filter

Pertama form yang ini pada properties TbmahasiswaBindingNavigator pada Visible di buat False

Seperti gmabar di bawah ini

Setelah itu buat form dan button-buttonnya seperti ini

Navigasi Tambah

Klik dua 2x pada button tambah lalu masukan coding di bawah ini untuk menambah data

TbmahasiswaBindingSource.AddNew()

Navigasi Simpan

Klik dua 2x pada button simpan lalu masukan coding di bawah ini untuk menyimpan data

Me.Validate()

        Me.TbmahasiswaBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)

Dan pada saat di run progam akan seperti ini nim dan lainya siap unutuk di isi

Lalu isi semua inputan contohnya seperti data di  bawah ini

Jangan lupa klik tombol simpan

Navigasi Hapus

Klik dua 2x pada button hapus lalu masukan coding di bawah ini untuk menghapus data

TbmahasiswaBindingSource.RemoveCurrent()

Contohnya pada gambar ini pada saat sudah di run,lalu pada barih Ahamd klik tombol hapus

Maka hasilnya

Navigasi Cari

Klik dua 2x pada button cari lalu masukan coding di bawah ini untuk mencari data

If (TbmahasiswaBindingSource.Count = 0) Then

            MsgBox("Belum Ada Data", vbOKOnly + vbInformation, "Peringatan!!!")

        Else

            Dim carinama As String

            carinama = InputBox("Masukkan Nama", "Cari Nama")

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

                MsgBox("Data Ditemukan", vbOKOnly, "Pencarian Data")

                Me.TbmahasiswaBindingSource.Position = TbmahasiswaBindingSource.Find("Nama", carinama)

            Else

                MsgBox("Data Tidak Ditemukan", vbOKOnly, "Pencarian Data")

            End If

        End If

Maka hasilnya jika di run,klik tombol cari maka akan mucul msgbox,lalu masukan nama yang anda cari contohnya seperti dibawah ini,

Lalu klik Ok.maka aka ada pemberitahuan seperti dibawah ini

Navigasi Pertama

Klik dua 2x pada button pertama  lalu masukan coding di bawah ini untuk pindah ke data yang paling pertama

TbmahasiswaBindingSource.MoveFirst()

Maka jika di run hasilnya seperti ini

Navigasi Berikutnya

Klik dua 2x pada button berikutnya  lalu masukan coding di bawah ini untuk pindah ke data selanjutnya

TbmahasiswaBindingSource.MoveNext()

Maka jika di run hasilnya seperti ini

Navigasi Sebelumnya

Klik dua 2x pada button sebelumnya  lalu masukan coding di bawah ini untuk pindah ke data sebelumnya

TbmahasiswaBindingSource.MovePrevious()

Maka jika di run hasilnya seperti ini

Navigasi Terahir

Klik dua 2x pada button terahir  lalu masukan coding di bawah ini untuk pindah ke data terahir

TbmahasiswaBindingSource.MoveLast()

Maka jika di run hasilnya seperti ini

Dan ini coding keseluruhan

Public Class Form1

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

        Me.Validate()

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

        Me.TbmahasiswaTableAdapter.Fill(Me.DbmahasiswaDataSet.tbmahasiswa)

    End Sub

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

        TbmahasiswaBindingSource.MoveFirst()

    End Sub

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

        TbmahasiswaBindingSource.MoveNext()

    End Sub

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

        TbmahasiswaBindingSource.MovePrevious()

    End Sub

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

        TbmahasiswaBindingSource.MoveLast()

    End Sub

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

        TbmahasiswaBindingSource.AddNew()

    End Sub

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

        TbmahasiswaBindingSource.RemoveCurrent()

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        Me.Validate()

        Me.TbmahasiswaBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)

    End Sub

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

        If (TbmahasiswaBindingSource.Count = 0) Then

            MsgBox("Belum Ada Data", vbOKOnly + vbInformation, "Peringatan!!!")

        Else

            Dim carinama As String

            carinama = InputBox("Masukkan Nama", "Cari Nama")

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

                MsgBox("Data Ditemukan", vbOKOnly, "Pencarian Data")

                Me.TbmahasiswaBindingSource.Position = TbmahasiswaBindingSource.Find("Nama", carinama)

            Else

                MsgBox("Data Tidak Ditemukan", vbOKOnly, "Pencarian Data")

            End If

        End If

    End Sub

End Class

Sekian penjelasannya.Semogabermanfaat bagi semua..amin

Tetap SEMANGAT ;)

Go..go…SEMANGAT!!!