Tugas Pemrograman Visual 9

Pengaplikasian sistem database kedalam Visual Basic 2010 menggunakan MSQL Server 2005 :

1. Sebelum kita mengapplikasikan sistem database kedalam visual basic 2010 kita harus memiliki program pengolah databae terlebih dahulu kali ini saya menggunakan MSQL Server 2005.
2. Buka SQL Server 2005 kemudian login -> conect.

3. Buat datadase baru, klik kanan pada database -> new database -> beri nama dan pilih lokasi penyimpanan -> ok. seperti gambar berikut.

4. klik kanan pada tabel yang baru dibuat pilih modify. isikan seperti gambar dibawah.

5. Isi tabel, klik kanan -> open table. isi seperti berikut. Kemudian save beri nama tabel.

6. Buka Visual Basic 2010, buat project baru. pilih menu data -> add new data source -> database -> dataset.

7. Add New conection pilih SQL server 2005. Isikan seperti berikut.

8. Centang pada tabel

9. Desain form seperti berikut. Juga tambahkan button-button yang diperlukan.

10.Tambahkan Data dan Lalu simpan

11. Untuk tombol pencarian nama , klik button pencarian nama

12. Jika program selesai , klik button keluar

*) Coding Program di atas :

Public Class Form1

    Private Sub TbmahasiswaBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        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
        Me.TbmahasiswaBindingSource.MoveFirst()
    End Sub

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

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

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

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

    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.DbmahasiswaDataSet)
    End Sub

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

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

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

        If (TbmahasiswaBindingSource.Find("Nama", carinama)) > -1 Then
            MsgBox("Nama Ditemukan", vbOKOnly, "Pencarian")
            Me.TbmahasiswaBindingSource.Position = TbmahasiswaBindingSource.Find("Nama", carinama)
            posisi = TbmahasiswaBindingSource.Find("Nama", carinama) + 1
        Else
            MsgBox("Nama Tidak Ada", vbOKOnly, "Pencarian")
        End If
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If (MsgBox("Anda Yakin ?", vbQuestion + vbYesNo + vbDefaultButton2, "Keluar")) = vbYes Then
            Me.Close()
        End If
    End Sub
End Class