Tugas 9

Mengkoneksikan Microsoft SQL Server dan Microsoft Visual Basic

1.Buat database di Microsoft  SQL Server Management Studio

2.Masukan nama database yang akan dibuat

Setelah itu klik OK

3.Pada dbmahasiswa klik kanan pilih new table,setelah itu isi dengan  format yang sesuai

Kemudian simpan

4.Setelah itu,pada tbmahasiswa klik kanan > open table

 













5.Setelah itu, buka Microsoft Visual Studio 2010 , 
buat project baru dan masukan database yang telah dibuat dengan SQL server 

Klik Data

Klik Add New Data Source

Klik Database

Klik Next

Klik Dataset

Klik Next pilih New Connection

Klik Microsoft SQL Server, lalu Continue

6.Pada bagian Server Name pilih server yang tersedia. Pada Log on to the server pilih Use Windows Authentication, masukkan dbmahasiswa. Lalu Test Connection, maka siap untuk dikoneksikan.

Selanjutnya pilih Next, dan save. Dan tunggu beberapa saat hingga muncul tampilan. Cek semua table yang akan digunakan pada Visual Basic.

7.Setelah selesai, klik Finish

8. Drag dan tarik tabel (dbmahasiswa ) ke form , ganti jurusan dengan combo box

9. Buat button pertama,sebelum,selanjutnya,terakhir, tambah, hapus, simpan ,cari, filter, dan terakhir keluar

10. Pada kolom jurusan, isikan TI dan SI dengan cara klik kanan pada textbox dan pilih edit items

Untuk codingnya adalah sebagai berikut :

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()

Terima Kasih 

Maaf jika ada kekurangan =)