Selasa, 25 Desember 2012

Membuat koneksi dari VB 2010 ke Database

Kali ini kita akan membahas cara mengkoneksikan Visual Basic ke Database, dan program database yang kita gunakan adalah SQL Server 2005. Pertama , kita buat terlebih dahulu database yang akan dihubungkan dengan visual basic dan installkan Microsoft SQL server 2005 dikomputer anda jika belum terinstall. Jika sudah terinstall jalankan programnya dengan cara:

Klik Start >> All Programs >> Microsoft SQL Server 2005 >>  SQL Server Managenent Studio, maka akan muncul jendela dialog seperti dibawah ini kemudian Pilih Connect

 







~ Buat Database baru , klik kanan Database >> Pilih New Database 





~ Pada Database name beri nama dbmahasiswa >> klik tombol Ok


·       ~ Klik ganda pada Databases, kemudian klik ganda pada pada pilihan dbmahasiswa







·        ~  Klik kanan pada table kemudian pilih new table
·     Buat Table dengan desain seperti gambar dibawah ini,simpan dan beri nama tbmahasiswa kemudian          simpan
             
           

          Klik kanan pada dbmahasiswa kemudian klik open table
    ~ Isi table dbmahasiswa sesuai dengan kebutuhan





·   ~ Buka VB 2010 dan buat Project Baru di VB. Net 2010 kemudian buat form baru seperti tampilan     berikut ini


       

·                 ~ Koneksikan form dengan database
·         ~ Data >> Add New Data Source >> Database

           



     ~ Tekan Next
·                 ~ Pilih New Connection- Microsoft SQL Server-Continue


           
           


~ Pada Server Name anda bisa copy nama server dari SQL server anda dan bisa juga mengetikan “local” atau “.”  [tanda titik] >> Klik Connect to a Database>>pada kolom dibawah ada pilihan untuk memilih database yang telah kita buat drag dan pilih sesuai nama database yang telah dibuat>>untuk memastikan koneksi berhasil bisa mengetest koneksi dengan klik tombol TestConnection dan akan diketahui lewat pesan yang muncul


 






   Pilih  next
·       ~ Tekan  next kemudian  beri centang pada tab tables, otomatis tbmahasiswa semua terpilih >> Finish
         ~ Desain form pada VB 2010 seperti dibawah ini, drag database ke form sesuaikan juga layoutnya


 ~ Berikut kode Programnya

 ~ Class Code
Public Class Form1Private Sub TbmahasiswaBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal 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

~ Tombol Next
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickTbmahasiswaBindingSource.MoveNext()End Sub

~ Tombol Previous
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickTbmahasiswaBindingSource.MovePrevious()End Sub

~ Tombol First 
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickTbmahasiswaBindingSource.MoveFirst()End Sub

~ Tombol Last
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickTbmahasiswaBindingSource.MoveLast()End Sub

~ Tombol Clear
Private Sub Button5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        NIMTextBox.Text = ""        NAMATextBox.Text = ""        TGLLAHIRDateTimePicker.Text = ""        ALAMATTextBox.Text = ""        JURUSANComboBox.Text = ""        SPPTETAPTextBox.Text = ""
End Sub

~ Tombol Edit
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.ClickMe.TbmhsTableAdapter.Fill(Me.SugiantoDataSet.tbmhs)
End Sub

~ Tombol Save
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.ClickMe.Validate()Me.TbmhsBindingSource.EndEdit()Me.TableAdapterManager.UpdateAll(Me.SugiantoDataSet)End Sub

End Class


     ~ Setelah di RUN










Baca selengkapnya »

4 komentar:

dhanay mengatakan... 26 Februari 2013 16.09

mantap, maenannya coding :D

Irwan Napitupulu mengatakan... 3 Oktober 2014 21.24

artikelnya mantap bro, izin copas ya.,
:) :)

thx very much

Nur Sahidin mengatakan... 9 Oktober 2014 12.31

tugas kuliahan bang

Nur Sahidin mengatakan... 9 Oktober 2014 12.32

jangan lupa sumbernya bro :D

Poskan Komentar

Silakan tinggalkan komentar anda sesuai posting.

Copyright © ★ PoemQey Blog ★ 2010

Template By Nano Yulianto