TUGAS VB net MENGGABUNGKAN SQL SERVER 2005 DENGAN VISUAL STUDIO 2010

MENGGABUNGKAN SQL SERVER 2005 DENGAN VISUAL STUDIO 2010

A. Langkah – Langkah :

1. Klik Start – All Programs – Microsoft SQL Server 2005 - SQL Server Managenent Studio

2.klik connect

3.Buat database baru

4.Beri nama pada database name dengan dbmahasiswa kemudian tekan OK

5.Double klik pada Data base kemudian double klik pada Dbmahasiswa

6.klik kanan pada table kemudian pilih new table

7.Buat Table dengan struktur sbb beri nama tbmahasiswa kemudian simpan

8.Klik kanan pada dbmahasiswa kemudian klik open table

9.Isi table dbmahasiswa sesuai dengan kebutuhan

10.Buat Project Baru di VB. Net 2010kemudianbuat form baru seperti tampilan berikut.

11.Koneksikan form dengan database dengan cara klik data, pilih Add New Data Source - Database

12.Tekan Next lalu pilih New Connection- Microsoft SQL Server-Continue

13.Lengkapi isian, kemudian tekan test connection, Jika sukses berarti koneksike database berhasil

14.Tekan ok kemudian next

15.akan muncul gambar seperti di atas lalu Tekan next

16.Tekan next kemudian beri centang pada tbmahasiswa, Finish

B. Masukan Data Dari Data Source Ke Form

 #Tampilan program sebelum diINPUT.

 #Tampilan setelah program di jalankan...

 dan berikut ini adalah skrip program di atas..

PublicClassForm2

PrivateSub 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)

EndSub

PrivateSub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.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)

EndSub

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TbmahasiswaBindingSource.MoveNext()

EndSub

PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TbmahasiswaBindingSource.MovePrevious()

EndSub

PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        TbmahasiswaBindingSource.MoveFirst()

EndSub

PrivateSub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        TbmahasiswaBindingSource.MoveLast()

PrivateSub 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 = ""

EndSub

PrivateSub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

Me.TbmhsTableAdapter.Fill(Me.SugiantoDataSet.tbmhs)

EndSub

PrivateSub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

Me.Validate()

Me.TbmhsBindingSource.EndEdit()

Me.TableAdapterManager.UpdateAll(Me.SugiantoDataSet)

EndSub

EndClass