Penggabungan SQL dengan VB

Nalendra Pribadi
11.11.2514
TI 11 c

Membuat database dahulu dengan SQL server berikut gambar langkahnya

SETELAH MEMBUAT SQL KITA MASUK KE VB BERIKUT 

CODING

Public Class Form1

    Private Sub Table_1BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Table_1BindingNavigatorSaveItem.Click

        Me.Validate()

        Me.Table_1BindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.DBMHSDataSet)

    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 'DBMHSDataSet.Table_1' table. You can move, or remove it, as needed.

        Me.Table_1TableAdapter.Fill(Me.DBMHSDataSet.Table_1)

    End Sub

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

        Me.Table_1BindingSource.MoveFirst()

    End Sub

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

        Me.Table_1BindingSource.MoveLast()

    End Sub

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

        Me.Table_1BindingSource.MovePrevious()

    End Sub

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

        Me.Table_1BindingSource.MoveNext()

    End Sub

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

        Me.Table_1BindingSource.AddNew()

    End Sub

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

        Me.Validate()

        Me.TableAdapterManager.UpdateAll(Me.DBMHSDataSet)

    End Sub

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

        Me.Table_1BindingSource.RemoveCurrent()

    End Sub

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

        Dim carinama As String

        Dim posisi As Integer = 1

        carinama = InputBox("Masukkan Nama Yang Anda Cari", "Cari Nama")

        If (Table_1BindingSource.Find("Nama", carinama)) > -1 Then

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

            Me.Table_1BindingSource.Position = Table_1BindingSource.Find("Nama", carinama)

            posisi = Table_1BindingSource.Find("Nama", carinama) + 1

        Else

            MsgBox("Maaf Nama Tidak Ditemukan", vbOKOnly, "Pencarian Nama")

        End If

    End Sub

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

        If (MsgBox(" Apakah Anda Akan Keluar?", vbQuestion + vbYesNo + vbDefaultButton3, "Keluar")) = vbYes Then

            Me.Close()

        End If

    End Sub

End Class