VB.Net 2008, Koneksi ke database melalui data Binding

12.20 | Label: Programing

Dalam penggunaan VB.Net, banyak cara untuk mengkoneksikan applikasi yang kita buat kedalam database. sekarang saya akan menjelaska cara untuk mengkoneksikan database melalui binding data.

langkah pertama adalah membuat koneksi antara VB.net dengan Sql server yang telah terinstal di komputer. dalam hal ini saya menggunakan Sql Server 2000

1. VIEW => Server Explore setelah muncul server explore, kemudian klik kanan pada Data Connection lalu Add Connection, hingga muncul gambar seperti dibawah ini :

2. pada Server Name tuliskan nama server Sql server atau menggunakan tanda titik ( . ) untuk data lokal, dan pada Select enter a database name pilihkan database yang telah anda buat. sebelumnya saya telah membuat database di Sql server 2000 dengan nama database datamahasiswa yang terdiri dari field NIM, Nama, Jurusan, Agama, dan NIM sebagai Primary Key nya.

3. Jika sudah, dapat menggukana Test Connection untuk mengecek keberhasilan koneksinya.

dan pada server explorer akan muncul nama server, dan database nya.

4. Buatlah Form seperti ini :

5. pada Properties NIM (textbox1) lalu expand Data Binding dengan mengklik tanda (+) , lalu pilih Text lalu cari table database yang anda buat, pilih NIM. lalu lakukan hal seperti ini pada textbox yang lain, sesuai dengan nama fielnya masing-masing.

6. Sedangkan untuk mengkoneksikan database ke Binding Navigation yaitu dengan mengklik tanda panah kecil pada navigation, kemudian pilih Edit Item lalu pada Binding Source pilih Database.

7. langkah terakhir adalah memberikan koding pada tiap event.

Public Class Form1
    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 'DatamahasiswaDataSet.mahasiswa' table. You can move, or remove it, as needed.
        Me.MahasiswaTableAdapter.Fill(Me.DatamahasiswaDataSet.mahasiswa)
        Me.Text = "Browse Data Employees"
        Me.BackColor = Color.PaleGreen
        Me.StartPosition = FormStartPosition.CenterScreen
        Me.GroupBox1.Text = "| Data Mahasiswa |"
        Me.GroupBox1.BackColor = Color.LightGreen
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

    Private Sub BindingNavigatorMoveNextItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorMoveNextItem.Click
        Me.BindingContext(Me.DatamahasiswaDataSet, "Mahasiswa").Position += 1
    End Sub

    Private Sub BindingNavigatorMovePreviousItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorMovePreviousItem.Click
        Me.BindingContext(Me.DatamahasiswaDataSet, "Mahasiswa").Position -= 1
    End Sub

    Private Sub BindingNavigatorMoveFirstItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorMoveFirstItem.Click
        Me.BindingContext(Me.DatamahasiswaDataSet, "Mahasiswa").Position = 0
    End Sub

    Private Sub BindingNavigatorMoveLastItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorMoveLastItem.Click
        Me.BindingContext(Me.DatamahasiswaDataSet, "Mahasiswa").Position = Me.BindingContext(Me.DatamahasiswaDataSet, "Mahasiswa").Count - 1
    End Sub
End Class

Keterangan = Button1 adalah button untuk CLOSE Apllikasi

Mudah kan :)
Semoga bermanfaat...