Tugas 7 Navigator

Tugas VB

Navigator

 

Langkah – Langkah          :

1. Buka SQL server,buat database baru

       2.Setelah database berhasil di buat,lalu buat table baru
          dengan format :

        3.Lalu simpan table,setelah itu isikan table

        4.buka Microsoft Visual Studio 2010,masukan source darii SQL server yang telah kita buat.

Klik Database

Klik Next

Klik Dataset

Klik Next pilih New Connection

Pilih Microsoft SQL Server, lalu Continue.

Lalu akan muncul jendela baru

5.masukan nama server SQL server,setelah selesai klik test connection Selanjutnya pilih Next, dan save.

6.Setelah itu maka akan muncul jendela baru

7.Centang table,klik finish

8.Buat form seperti berikut :

9.Berikut adalah listing program :

 

Untuk tombol pertama >

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

        TbmahasiswaBindingSource.MoveFirst()

    End Sub

 

 

 

Untuk tombol sebelumnya >

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

        TbmahasiswaBindingSource.MovePrevious()

    End Sub

Untuk tombol selanjutnya >

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

        TbmahasiswaBindingSource.MoveNext()

    End Sub

Untuk tombol akhir >

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

        TbmahasiswaBindingSource.MoveLast()

    End Sub

Untuk tombol tambah >

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

        TbmahasiswaBindingSource.AddNew()

    End Sub

Untuk tombol hapus >

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

        TbmahasiswaBindingSource.RemoveCurrent()

    End Sub

 

Untuk tombol simpan >

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

        Me.Validate()

        Me.TbmahasiswaBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.TbmahasiswaDataSet1)

    End Sub

 

Untuk tombol cari >

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

        If (TbmahasiswaBindingSource.Find(“Nama”, TextBox1.Text)) > -1 Then

            MsgBox(“Data berhasil ditemukan”)

        Else

            MsgBox(“Data tidak berhasil ditemukan”)

        End If

 

    End Sub

 

Untuk tombol keluar > Me.Close()