Jalan berbangkit

ASSALAMU'ALAIKUM WARRAHMATULLAHI WABARAKATUH

Selasa, 01 Januari 2013

Koneksi database dengan visual basic 2010

Koneksi Data Base dengan Visual Basic 2010
salam sejahtea untuk kita semua, pada kesemapatan yang baik ini, kami akan berbagi tentang koneksi data base dengan visual basic 2010.
semoga bermanfaat untuk kita semua.

salah satu yang harus diperhatikan sebelum kita membuat program ini adalah, kita sudah meyakinkan diri bahwa kita sudah menyiapkan data base yang nantinya akan dikoneksikan dengan visual basic 2010.

langsung saja, mari kita perhatikan antarmuka program yang akan kita buat, dibawah ini.















baik, dapat kita lihat bersama, bahwa pada gambar tersebut dapat dilihata bahwa antarmuka aplikasi tersebut terbangun atas beberapa tool yang ada pada visual basic 2010.

kemudian, langsung saja, mari kita lihat aplikasi apabila dijalankan.









































































































































































================================================================================================================================================
listing program :
Public Class Form1
    Dim urut As Integer = 1

    Private Sub TbmhsBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbmhsBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.TbmhsBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DbherunDataSet)

    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 'DbherunDataSet.tbmhs' table. You can move, or remove it, as needed.
        Me.TbmhsTableAdapter.Fill(Me.DbherunDataSet.tbmhs)
        Dim hidup As Windows.Forms.Control
        For Each hidup In Me.Panel1.Controls
            If (hidup.GetType.Name <> "Label") Then
                hidup.Enabled = False
            End If
        Next

    End Sub

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

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If (TbmhsBindingSource.Count = 0) Then

            MsgBox("Untuk sementara tidak ada data yang tersedia", vbOKOnly + vbInformation, "Peringatan")
        Else
            Dim search As String
            search = InputBox("Insert Name", "Search Name")
            If (TbmhsBindingSource.Find("Nama", search)) > -1 Then
                MsgBox("Data Ditemukan", vbOKOnly, "Pencarian Data")
                Me.TbmhsBindingSource.Position =
                    TbmhsBindingSource.Find("Nama", search)
                urut = TbmhsBindingSource.Find("Nama", search) + 1
            Else
                MsgBox("Data Tidak Ditemukan", vbOKOnly, "Pencarian Data")
            End If
        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim mex As Integer = TbmhsBindingSource.Count
        If (mex = 0) Then
            MsgBox("Untuk Sementara belum ada data yang tersedia", vbOKOnly + vbInformation, "Peringatan")
        Else
            If (urut = mex) Then
                MsgBox("Ini adalah data yang terakhir", vbOKOnly + vbInformation, "Peringatan")
            Else
                TbmhsBindingSource.MoveNext()
                urut += 1
            End If
        End If
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If (TbmhsBindingSource.Count = 0) Then
            MsgBox("Untuk sementara belum ada data yang dimasukan", vbOKOnly + vbInformation, "Peringatan")
        Else
            If (urut = 1) Then
                MsgBox("Ini adalah data yang pertama", vbOKOnly + vbInformation, "Peringatan")
            Else
                TbmhsBindingSource.MovePrevious()
                urut -= 1
            End If

        End If
    End Sub

    Private Sub Button5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If (TbmhsBindingSource.Count = 0) Then
            MsgBox("Untuk sementara belum ada data yang dimasukan", vbOKOnly + vbInformation, "Peringatan")
        Else
            TbmhsBindingSource.MoveFirst()
            urut = 1
        End If
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If (TbmhsBindingSource.Count = 0) Then
            MsgBox("Untuk sementara belum ada data yang diisikan", vbOKOnly + vbInformation, "Peringatan")
        Else
            TbmhsBindingSource.MoveLast()
            urut = TbmhsBindingSource.Count
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim hidup As Windows.Forms.Control
        For Each hidup In Me.Panel1.Controls
            If (hidup.GetType.Name <> "Label") Then
                hidup.Enabled = True
            End If
        Next
        TbmhsBindingSource.AddNew()
        Button2.Enabled = True
        Button1.Enabled = False
        NIMTextBox.Focus()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If urut = TbmhsBindingSource.Count Then
            urut -= 1
        End If
        If (TbmhsBindingSource.Count = 0) Then
            MsgBox("Untuk Sementara belum ada data yang dimasukan", vbOKOnly + vbInformation, "Peringatan")
        Else
            If (MsgBox("Apakah anda yakin akan mengahapus data tersebut ?", vbQuestion + vbYesNo + vbDefaultButton2, "Konfirmasi")) = vbYes Then
                TbmhsBindingSource.RemoveCurrent()
                Me.Validate()
                Me.TbmhsBindingSource.EndEdit()
                Me.TableAdapterManager.UpdateAll(Me.DbherunDataSet)
            End If

            End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            urut = TbmhsBindingSource.Count
            Me.Validate()
            Me.TbmhsBindingSource.EndEdit()
            Me.TableAdapterManager.UpdateAll(Me.DbherunDataSet)
            Dim hidup As Windows.Forms.Control
            For Each hidup In Me.Panel1.Controls
                If (hidup.GetType.Name <> "Label") Then
                    hidup.Enabled = False
                End If
            Next
            Button1.Enabled = True
            Button2.Enabled = False
        Catch ex As Exception
            MsgBox("NIM sudah ada", vbOKOnly + vbCritical, "Peringatan")
            NIMTextBox.Focus()
            TbmhsBindingSource.RemoveCurrent()
            Me.Validate()
            Me.TbmhsBindingSource.EndEdit()
            Me.TableAdapterManager.UpdateAll(Me.DbherunDataSet)
            Button1.Enabled = True
            Button3.Enabled = False
            urut -= 1
        End Try
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If (ComboBox1.Text = "Admin") Then
            Label2.Visible = True
            TextBox1.Visible = True
        ElseIf (ComboBox1.Text = "User Biasa") Then
            Dim hidup As Windows.Forms.Control
            For Each hidup In Me.Panel1.Controls
                If (hidup.GetType.Name <> "Label") Then
                    hidup.Enabled = False
                End If
            Next
            Label2.Visible = False
            TextBox1.Visible = False
            GroupBox1.Enabled = False

        End If
    End Sub

   
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If (TextBox1.Text = "herun") Then
            GroupBox1.Enabled = True
        Else
            GroupBox1.Enabled = False
        End If
    End Sub
End Class



demikian semoga bermanfaat untuk kita semua.
amin...