Tugas Membuat tombol - tombol navigasi & menghubungkan database SQL Server dengan Visual studio pert-9

Haii… kawan,, kali ini aku akan menjelaskan tombol-tombol navigasi yang dihubungkan antara database pada SQL Server dan Visual Studio, terlebih dahulu aku akan menjelaskan urutan-urutan pembuatan table di SQL Server dan membuat form pada visual studio kemudian menghubungkannya dengan tabel padea SQL Server. Berikut urutannya :

a. Membuat tabel pada SQL Server

•  Open SQL Server, kemudian klik connect 
•  Klik kanan database, kemudian pilih new database, beri nama dan save di drive d atau e terserah anda. 
•  Klik [+] database yang anda buat tadi kemudian klik kanan folder table pilih new table, kemudian format table dibuat sesuai yang telah ditentukan saat praktek, kemudian klik save all dan beri nama. 
•  Klik kanan table tadi yang anda buat kemudian klik open table dan isikan kolom pada table tersebut sesuai ketentuan pada saat praktek, bila sudah klik save all. 

b. Membuat form pada VB 2010

• Open Visual Studio 2010 
• Klik new project, kemudian pilih visual basic dan yang kanan pilih windows form application dan klik ok 

c. Menghubungkan SQL Server dan Visual Studio

• Klik menu data kemudian pilih add new data source 
• Pilih database klik next,pilih dataset klik next 
• klik new conection, isi server name dengan (MEZUD-PC\SA) server pada SQL Server kemudian pilih use SQL Server Authentication, isi server dan password lalu browse select or enter a database name, kemudian klik test conection bila sukses klik ok, kemudian klik next, kemudian cetang semua pilihan kemudian klik finish 
• klik data sourch dan masukan isi dari table tersebut ke dalam form. 

1. Membuat navigasi next, prev, first dan last

A. Navigasi Pertama

- Coding program : 

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

DbmahasiswaBindingSource.MoveFirst()

End Sub

B. Navigasi Terakhir

- Coding program :

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

DbmahasiswaBindingSource.MoveLast()

End Sub

 C. Navigasi Selanjutnya

- Coding program :

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

Dim max As Integer = Me.DbmahasiswaBindingSource.Count

Dim skr As Integer = Me.DbmahasiswaBindingSource.Position

If skr < max - 1 Then

Me.DbmahasiswaBindingSource.MoveNext()

Else : MsgBox("Ini Data Paling akhir")

End If

End Sub

D. Navigasi Sebelumnya

- Coding program :

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

Dim max As Integer = Me.DbmahasiswaBindingSource.Count

Dim skr As Integer = Me.DbmahasiswaBindingSource.Position

If skr <> 0 Then

Me.DbmahasiswaBindingSource.MovePrevious()

Else : MsgBox("Ini Data Paling Awal")

End If

End Sub

2. Membuat tombol cari dengan ketentuan pencarian berupa nama

A. Tombol Cari

- Coding program :

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

Me.DbmahasiswaBindingSource.Filter = "nama='" & TextBox1.Text & "'"

End Sub

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

If (DbmahasiswaBindingSource.Find("Nama", TextBox1.Text)) > -1 Then

MsgBox("Data Ditemukan")

Else

MsgBox("Data Tidak Ditemukan")

End If

End Sub

3. Tombol keluar

- Coding program :

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

Me.Close()

End Sub