tugas 9-koneksi ke sql server-Dwi sumarti-11.11.2262-TI 11 F

MEMBUAT KONEKSI KE SQL SERVER

Saya akan sedikit menjelaskan tentang bagaimana cara untuk membuat koneksi ke SQL server dan cara untuk membuat  tombol navigasi NEXT, PREVIOUS, FIRST, LAST, SEARCH NAME dan KELUAR pada Visual Basic 2010 yang terkoneksi dengan SQL Server 2005.

Pertama – 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 setelah itu kita ubah di  jabatan dengan meng gunakan combobox , kemudian kita masukan secara manual di combobox jurusan yang akan dipilih, misalnya SI dan TI. Kemudian isi data-data pada tbmahasiswa dan jangan lupa  di save, kita save dengan nama tbmahasiswa.

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., 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 akan membuat tombol navigator FIRST,

 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 akan membuat  tombol navigator LAST, 

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 akan  memunculkan tom bol navigator PREVIOUS

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 akan membuat  tombol navigator NEXT,

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

 

 Apabila nama yang kita akan mencari data dan apabila yang kita cari tidak ada, maka akandi tabel akan kosong  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

Apabila akan membuat tombol untuk menyimpan data, codingnya sebagai berikut.

Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click

        Me.Validate()

        Me.TbmahasiswaBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.DonnyDataSet)

    End Sub

Apabila akan membuat tombol filter

    Private Sub FilterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FilterToolStripMenuItem.Click

tbmahasiswaBindingSource.filter=field “ dwi sumarty” ()

    End Sub

Apabila akan membuat tombol untuk menambahkan data, maka codingnya sebagai berikut.

    Private Sub TambahToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TambahToolStripMenuItem.Click

        TbmahasiswaBindingSource.AddNew()

    End Sub

Apabila kita akan membuat tombol hapus , maka codingnya adalah sebagai berikut.

    Private Sub HapusToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HapusToolStripMenuItem.Click

    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

Jika semua kode program sudah di ketikkan pada jendela kode,,setelah itu jalankan program dengan mengklik tombol run atau tombol F5 pada keyboard.