Menghubungkan database SQL ke Visual Studio 2010

 1. Bukalah SQL Server, dan buatlah database dengan nama dbmahasiswa.

.2.   Setelah kliik "OK" akan muncul dbmahasiswa 

  

 3. Lalu double klik dbmahasiswa dan klik table lalu klik modify, lalu Buatlah desain tabelnya 

         

     4.Kemudian isilah table yang sudah dibuat dengan 2 data. Pada tbmahasiswa klik kanan, 

          lalu pilih Open Table. 

     5.Setelah membuat database di SQL Server selesai, lalu dilanjutkan dengan membuat 

          project baru di Microsoft Visual Basic 2010 , klik new project.

  

6.       Bukalah database yang sudah dibuat dengan meng-klik pada menu Data > Add New   

         Data Source… > Database, lalu Next > Dataset, lalu Next > New Connection

         …  > pilih Microsoft SQL Server, lalu Continue.

        Kemudian akan muncul kotak dialog.

7.       Pada bagian Server Name, pilih server yang tersedia. Jika tidak bisa kembali ke 

           SQL Server dan sorot nama server (pilih Connect lalu copy nama server tersebut). 

           Pada Log on to the server pilih Use Windows Authentication. Dan masukkan

      dbmahasiswa. Lalu Test Connection, jika sukses maka telah siap dikonekkan.

.          Selanjutnya pilih OK

      

     8.       Dan tunggu beberapa saat hingga muncul tampilan. Cek semua table yang akan 

           digunakan pada Visual Basic.

      9.       Lalu finish,  Setelah itu, kembali ke Visual Basic.

       Pada menu Data pilih Show Data Sources.

    

10.   Pada kolom jurusan, model nya diganti dengan ComboBox.

   

        11.   Drag semua ke form. 

           Dan buatlah tampilan seperti berikut: (pada Jurusan dibuat ComboBox, 

           tambahkan item TI dan SI dengan Edit Items)

dan berikut adalah screenshootnya:

berikut adalah codingnya :





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 Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        Me.TbmahasiswaBindingSource.MoveFirst()

    End Sub

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

        Me.TbmahasiswaBindingSource.MovePrevious()

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        Me.TbmahasiswaBindingSource.MoveNext()

    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

        Me.TbmahasiswaBindingSource.MoveLast()

    End Sub

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

        If MsgBox("Apakah anda ingin keluar ?", vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = vbYes Then

            Me.Close()

        End If

    End Sub

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

        Me.TbmahasiswaBindingSource.AddNew()

        NimTextBox.Focus()

        Tgl_LahirDateTimePicker.ResetText()

    End Sub

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

        Me.Validate()

        Me.TbmahasiswaBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)

    End Sub

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

        If MsgBox("Apakah Anda Yakin ?", vbYesNo + vbQuestion + vbDefaultButton2, "Delete") = vbYes Then

            Me.TbmahasiswaBindingSource.RemoveCurrent()

        End If

    End Sub

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

        If (TbmahasiswaBindingSource.Find("NIM", TextBox1.Text)) > -1 Then

            MsgBox("Data berhasil ditemukan")

        Else

            MsgBox("Data tidak berhasil ditemukan")

        End If

    End Sub

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

        Dim Mencari As String

        Mencari = InputBox("Masukkan Jurusan Yang Di Cari", "Filter ...")

    End Sub

End Class