Headlines News :
Home » » MENGGABUNGKAN SEBUAH PROGRAM DENGAN DATA BASE

MENGGABUNGKAN SEBUAH PROGRAM DENGAN DATA BASE

Written By ganessa on Minggu, 06 Januari 2013 | 00.23

 
Untuk menggabungkan sebuah data base ke dalam program visual basic kita membutuhkan sebuah applikasi program pembuat data base seperti SQL server 2005.
Untuk langkah - langkahnya adalah sebagai berikut:
Buka SQL server 2005 -> SQL server management studio
Kemudian muncul kotak dialog connect to server, lalu klik Connect

 
Kemudian pada Data Base, Klik kanan dan New Data Base
 
 
 Kemudian beri Nama Data Basenya pada "Name Data Base" dan pilih juga tempat penyimpanannya
 
 
Kemudian klik 2x pada "Data Base" dan pada "Nama Data Base tersebut", lalu klik kanan dan pilih "New Table" 


Setelah itu isikan tabel tersebut dengan atribut - atributnya beserta tipe datanya
kemudian simpan dan beri nama sub table tersebut


Setelah itu pada nama table, klik kanan dan pilih Open Table
Kemudia isikan Datanya sesuai nama atributnya

 
Setelah itu kita buka Visual Basic 2010 dan buat from baru


Kemudian koneksikan Data Base dengan Form
Pilih Menu Data -> Add New Data Source -> pilh "Data Base" -> next


Klik New Conection -> pilih Microsoft SQL Server -> continou


Lengkapi isian lalu klik Test Conection, jika koneksi succes berarti koneksi berhasil -> Ok -> next
Pada Chouse Your Data Base Object pilih nama table yang akan di tampilkan dengan mencentangnya.
Kemudian Finish


Kemudian pada form baru kita isikan dengan nama - nama atrubut - atribut yang berada pada data base, yaitu dengan cara drag nama - nama atribut kemudian pindahkan ke form.
Dan beri button tambahan seperti Sebelum, Selanjutnya, Awal, Akhir, Simpan, Hapus, Filter, dan Cari


 
 
 
 
 
 
Dan Untuk Kode programnya 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 JurusanTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
    End Sub
    Private Sub BindingNavigatorMoveNextItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorMoveNextItem.Click
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Validate()
        Me.TbmahasiswaBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TbmahasiswaBindingSource.MoveFirst()
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TbmahasiswaBindingSource.MovePrevious()
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TbmahasiswaBindingSource.MoveNext()
    End Sub
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TbmahasiswaBindingSource.MoveLast()
    End Sub
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        TbmahasiswaBindingSource.AddNew()
    End Sub
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If MsgBox("Yakin ingin Menghapus", vbQuestion + vbYesNo + vbDefaultButton1, "Perhatian") = vbYes Then
            TbmahasiswaBindingSource.RemoveCurrent()
        End If
    End Sub
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        TbmahasiswaBindingSource.Find()
    End Sub
    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        TbmahasiswaBindingSource.Filter
    End Sub
End Class
 
 
 
Penjelasan Programnya untuk setiap button Sebagai Berikut:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Validate()
        Me.TbmahasiswaBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)
    End Sub
=>Untuk program diatas merupakan code program untuk perintah button Save, yaitu untuk menyimpan sebuah data base yang telah di tuliskan atau data base baru
 
 
 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TbmahasiswaBindingSource.MoveFirst()
    End Sub
=>Untuk program diatas merupakan code program untuk perintah button keawal


Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TbmahasiswaBindingSource.MovePrevious()
    End Sub
 =>Untuk program diatas merupakan code program untuk perintah button sebelumnya


 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TbmahasiswaBindingSource.MoveNext()
    End Sub
=>Untuk program diatas merupakan code program untuk perintah button selanjutnya


Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TbmahasiswaBindingSource.MoveLast()
    End Sub
=>Untuk program diatas merupakan code program untuk perintah button keakhir


  Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        TbmahasiswaBindingSource.AddNew()
    End Sub
=>Untuk program diatas merupakan code program untuk perintah button tambah, yaitu untuk menambah data base


Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If MsgBox("Yakin ingin Menghapus", vbQuestion + vbYesNo + vbDefaultButton1, "Perhatian") = vbYes Then
            TbmahasiswaBindingSource.RemoveCurrent()
        End If
    End Sub
=>Untuk program diatas merupakan code program untuk perintah button hapus, yaitu untuk menghapus data base


Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        TbmahasiswaBindingSource.Find()
    End Sub
=>Untuk program diatas merupakan code program untuk perintah button cari, yaitu untuk mencari suatu data base


Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        TbmahasiswaBindingSource.Filter
    End Sub
=>Untuk program diatas merupakan code program untuk perintah button filter, yaitu untuk menyaring data base yang kita inginkan



Share this article :

1 komentar:

Posting Komentar

 
Support : Creating Website | Johny Template | Maskolis | Johny Portal | Johny Magazine | Johny News | Johny Demosite
Copyright © 2011. BERBAGI ILMU - All Rights Reserved
Template Modify by Creating Website Inspired Wordpress Hack
Proudly powered by Blogger