Tugas Pemrograman Visual 9

Tugas Pemrograman Visual “Koneksi  Visual Studio dan SQL server 2005”

Langkah-langkah :

1. Jalankan program Sql Server 2005 dan VB 2010,setelah itu kita buat database di SQL 2005

Misal : Dbmahasiswa, dan kita buat tabelnya dengan klik kanan pada table lalu pilih new table, dan beri nama tbmahasiswa,lalu isi tabel tersebut dengan NIM, Nama, Jurusan, Alamat, SPP, Lalu save.

Tampilan di SQLnya:

 2. Lalu buat project  baru di vb, terserah apa namanya.

Pilih menu data àadd new data sourceàdatabaseànextàdatasetànew connectionàcontinueà pilih servername yang akan digunakan,lalu isi username dan passwordnya.

Pilih select dan enter,lalu Klik tes connection untuk mengetes koneksi, jika sukses maka akan terhubung dengan sql server. Lalu klik ok dan finish

3. Tambahkan button first, previous, next, last, delete, searching,add/tambah,save,filter,edit.

Tampilannya:

Berikut source code dari masing-masing tombol:

Public Class Form1

    Dim pss As Integer = 1

    àpss menunjukkan nomer urut posisi record yang aktif

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

Me .TbMahasiswaTableAdapter.Fill( Me .DbMahasiswaDataSet.TbMahasiswa)

End Sub

Dan ini source code masing2 tombol:

-Tombol First

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

TbMahasiswaBindingSource.MoveFirst()

End Sub

-Prev

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

TbMahasiswaBindingSource.MovePrevious()

End Sub 

-Next

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

TbMahasiswaBindingSource.MoveNext()

End Sub

-Last

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

TbMahasiswaBindingSource.MoveLast()

End Sub

-Add/Tambah

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

TabelMahasiswaBindingSource.AddNew()

End Sub

-Save

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

Me.Validate()

Me.TabelMahasiswaBindingSource.EndEdit()

Me.TableAdapterManager.UpdateAll(Me.DataBaseMahasiswaDataSet)

End Sub

-Searching/find

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

If (TabelMahasiswaBindingSource.Count = 0) Then

            MsgBox("Belum ada data yang diisikan", vbOKOnly + vbInformation, "Peringatan")

Else

Dim namaCari As String

            namaCari = InputBox("Masukkan Nama", "Cari Nama")

If (TabelMahasiswaBindingSource.Find("Nama", namaCari)) > -1 Then

 MsgBox("Data Ditemukan", vbOKOnly, "Pencarian Data")

                Me.TabelMahasiswaBindingSource.Position = TabelMahasiswaBindingSource.Find("Nama", namaCari)

                pss = TabelMahasiswaBindingSource.Find("Nama", namaCari) + 1

Else

                MsgBox("Data Tidak Ditemukan", vbOKOnly, "Pencarian Data")

            End If

        End If

    End Sub

-Delete/Clear

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

TabelMahasiswaBindingSource.RemoveCurrent()

End Sub

Sekian dan Terima Kasih....”Keep Azeek”