Jumat, 04 Januari 2013

Tugas 9 SQL 2005 DAN VB2010.net

Pertama, buatlah data base dengan menggunakan SQL 2005 sesuai dengan keperluan, karena kali ini saya menyesuaikan dengan tugas yang saya buat, susunan datanya adalah Nim, Nama, Tanggal lahir, Jurusan, Tempat lahir, SPP tetap dan Alamat. Kemudian isikan data dengan jumlah sesuai dengan yang di inginkan, kali ini saya hanya menginputkan 4 data seperti di bawah ini ;


setelah selesai membuat database di atas, buka Vb 2010.net, lalu desain aplikasi sesuka hatimu tapi paling ga ada poin - poin seperti gambar di bawah ini ;







atau bisa langsung di drag dari data base yang kamu buat, tapi sebelumnya buat koneksi dulu dari VB ke MYSQLnya dengan cara klik Data - Add new data source - database - dataset - new connection - choose your data connection, trus next-next sampai mentok, hehe ...

     

kemudian untuk memasukan data base ke visual basic yaitu dengan cara klik data kemudian pilih show data sources
kemudian setelah kita pilih show data sources ,langkah selanjutnya yaitu men drag atau menarik toolbar database  yang akan kita masukan.. sebelum memasukan kita rubah dulu funsinya sesuai kebutuhan…

keseluruhan codingnya seperti ini :

Public Class tugaspraktek8

    Private Sub tugaspraktek8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'DbmahasiswaDataSet2.tbmahasiswa' table. You can move, or remove it, as needed.
        Me.TbmahasiswaTableAdapter.Fill(Me.DbmahasiswaDataSet2.tbmahasiswa)

    End Sub

    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.DbmahasiswaDataSet2)

    End Sub

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

    End Sub

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

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

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

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If (TbmahasiswaBindingSource.Find("nama", TextBox1.Text)) > -1 Then
            MsgBox("Data Ditemukan")
        Else
            MsgBox("Data Tidak Ditemukan")
        End If
    End Sub

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

lalu coba jalankan programnya