TUGAS 6 PEMROGRAMAN VISUAL

MEMBUAT KONEKSI KE DATABASE

Assalamua’alaikum..

Saya akan sedikit menjelaskan cara membuat tombol navigasi NEXT, PREVIOUS, FIRST, LAST, SEARCH NAME dan KELUAR pada Visual Basic 2010 yang terkoneksi dengan SQL Server 2005. Langsung aja yuu..

Pertama kita membuat database dahulu di SQL Server 2005. Kali ini saya akan membuat database mahasiswa dengan nama dbmahasiswa, selanjutnya membuat tabel mahasiswa dengan nama tbmahasiswa. Kemudian isi data-data pada tbmahasiswa dan jangan lupa di save. Seperti gambar di bawah ini:

Setelah membuat dbmahasiswa, buka Microsoft Visual Studio dan buat satu Form. Untuk mengkoneksikan dengan SQL Server 2005, pilih Menu Data, Add New Data Source, klik Next terus sampai terlihat tombol New Connection, di klik. Isi perintah seperti di bawah ini, kemudian OK, klik Next, klik Finish.

Langkah selanjutnya, drag semua isi dbmahasiswa dan tbmahasiswa yang terdapat pada Data Sources, serta buat 5 button untuk membuat tombol FIRST, PREVIOUS, NEXT, LAST, dan KELUAR. Namun untuk SEARCH NAME dengan menggunakan TextBox. Pada SEARCH NAME ini, pencarian dilakukan dengan kriteria nama saja. Maka akan tampil seperti gambar berikut:

Pada saat kita menekan tombol navigator FIRST, maka akan terjadi seperti ini:

 Codingnya seperti berikut:

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

        TbmahasiswaBindingSource.MoveFirst()

    End Sub

Pada saat kita menekan tombol navigator LAST, maka akan terjadi seperti ini:

Codingnya seperti berikut:

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

        TbmahasiswaBindingSource.MoveLast()

    End Sub

Pada saat kita menekan tombol navigator PREVIOUS, maka akan terjadi seperti ini:

Codingnya seperti berikut:

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

        If TbmahasiswaBindingSource.Position > 0 Then

            TbmahasiswaBindingSource.MovePrevious()

        Else

            MsgBox("tidak ada data lagi")

        End If

    End Sub

Pada saat kita menekan tombol navigator NEXT, maka akan terjadi seperti ini:

Codingnya:

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

        Dim jmlrow = DbmahasiswaDataSet.Tables(0).Rows.Count

        If TbmahasiswaBindingSource.Position < jmlrow - 1 Then

            TbmahasiswaBindingSource.MoveNext()

        Else

            MsgBox("tidak ada data lagi")

        End If

    End Sub

 Pada saat kita menekan menulis nama yang ingin dicari pada SEARCH NAME, maka akan terjadi seperti ini:

 Apabila nama yang kita cari tidak ada, maka akan seperti ini:

Codingnya:

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

        Dim jmlrow = DbmahasiswaDataSet.Tables(0).Rows.Count

        If TbmahasiswaBindingSource.Position < jmlrow - 1 Then

            TbmahasiswaBindingSource.MoveNext()

        Else

            MsgBox("tidak ada data lagi")

        End If

    End Sub

Terakhir pada tombol KELUAR, codingnya sederhana:

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

        Me.Close()

    End Sub

Demikian sedikit penjelasan mengenai tombol navigator. Semoga bermanfaat bagi para pembaca.

Wassalamu’alaikum...