TUGAS VB 9

KONEKSI DATA BASE VISUAL BASIC 2010 DENGAN SQL SERVER 2005

Langkah-langkah yang kita ambil yaitu :

1. Membuat database dasi SQL Server dengan nama dbmahasiswa sebagai berikut :

    NIM   : varchar(50)

    Nama  : varchar(50)

    Alamat : varchar(50)

    Tanggal Lahir : datetime

    Jurusan : varchar(2)

    SPP Tetap : varchar(50)

2. Membuat Project baru pada Visual Basic ,
    File - New Project - Windows - Windows Form Aplication

    berikut tampilan Form ketika belum diisi datanya ,

3. Lalu kita membuat koneksi Visual Basic ke Database dengan langkah :

    Klik pada toolbar menu, Pilih

• -> Add New Data Souce
• -> Database
• -> Dataset
• -> Add New Connection

4. Lalu kita coba koneksikan, dan nantinya akan muncul tampilan sebagai berikut

   Setelah itu kita pilih mana saja yang akan dikoneksikan ke visual studio 2010, tunggu sampai isi database
   (dbmahasiswa) muncul, kemudian klik Finish

5. Lalu kita tampilkan Data Source di bawah menu toolbox,dengan cara :

    Data - Show Data Source

6. Kemudian kita atur control dbmahasiswanya,

    Nim = textbox

    Nama = textbox

    Alamat = textbox

    Tempatlahir = Textbox

    Tgllahir = datetime

    Jurusan = combobox

    Spptetap = textbox

7. Selanjutnya kita Drag and Drop semua table kedalam form.

8. Pada tbmahasiswabindingnavigator kita atur visible = false, untuk menyeembunyikan

    tombol – tombol bawaan SQL server, karena yang akan kita gunakan tombol tersendiri

    dari Visual Basic .

9. Tambahkan tombol navigasi : Prev, Next, Move First, Move Last, Add, Remove,

    Save, dan Exit dan kemudian kita masukkan codingnya sebagai berikut :

Public Class Form1

    Private Sub TbmahasiswaBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbmahasiswaBindingNavigatorSaveItem.Click

        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 BtAwal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtAwal.Click

        Me.TbmahasiswaBindingSource.MoveFirst()

    End Sub

    Private Sub BtSebelum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtSebelum.Click

        Me.TbmahasiswaBindingSource.MovePrevious()

    End Sub

    Private Sub BtBerikutnya_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtBerikutnya.Click

        Me.TbmahasiswaBindingSource.MoveNext()

    End Sub

    Private Sub BtAkhir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtAkhir.Click

        Me.TbmahasiswaBindingSource.MoveLast()

    End Sub

Menambahkan tombol : Tambah, Simpan, Hapus, Cari dan Filter

Kode programnya sebagai berikut  :

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

        Me.TbmahasiswaBindingSource.RemoveCurrent()

    End Sub

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

        Me.TbmahasiswaBindingSource.AddNew()

    End Sub

    Private Sub BtSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtSimpan.Click

        Me.Validate()

        Me.TbmahasiswaBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)

    End Sub

    Private Sub BtCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtCari.Click

        Dim carinama As String

        Dim posisi As Integer = 1

        carinama = InputBox("Masukan Nama", "Cari nama")

        If (TbmahasiswaBindingSource.Find("Nama", carinama)) > -1 Then

            MsgBox("Data ditemukan", vbOKOnly, "Pencarian data")

            Me.TbmahasiswaBindingSource.Position = TbmahasiswaBindingSource.Find("Nama", carinama)

            posisi = TbmahasiswaBindingSource.Find("Nama", carinama) + 1

        Else

            MsgBox("Data tidak ditemukan", vbOKOnly, "Pencarian data")

        End If

    End Sub

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

        Me.Close()

    End Sub

End Class

Berikut tampilan ketika tabel sudah terisi data,

Sekian dan Terima Kasih,