Penggabungan antara Visual Basic 2010 dengan Ms. Access

Nama : Eka Yunita H S

Kelas : TI 11 C

Nim : 11.11.2498

Assalamu'alakum wr wb

          Kali ini saya akan membuat bagaimana hasil dari penggabungan antara Visual Basic dengan Ms. Access.

Untuk mempersingkat kata-kata saya langsung saja saya perlihatkan..

1. Buatlah pada Ms. Access sebuah tabel yang diberi nama (contoh : DbMahasiswa)

2. Isikan tabel tersebut dengan beberapa data.

3. Bukalah Visual Basicnya, dan gabungkan dengan Ms. Acces.

• Setelah tergabungkan dan diDebug Maka akan muncul gambar seperti dibawah ini :

• ini adalah Buttons yang berfungsi dalam form, saya akan tampilkan gambar dari button Lanjutan, Terakhir, Add, dan Add Save :

 

 *Untuk add, semua isian akan hilang menjadi kosong. sebab kita akan memasukan data-data pada Coloum.

*Setelah data dimasukan maka data akan masuk atau terdaftar pada coloum dan klikan save untuk menyimpan data tersebut.

*Data dengan Nama " Siti Fatonah" telah terhapus saat klik delete.

• Untuk gambar Selanjutnya :

1.  Data Ditemukan jika saya klikan nama Eka Yunita H S (Nama yang telah terdaftar) pada textbox Nama Mahasiswa, kemudian klikan Seacrh.

       2.    Begitu pula untuk data yang tidak ditemukan :

Untuk hasil seperti diatas, ketikan Listing Program dibawah ini :

Public Class Form1

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

TbMahasiswaBindingSource.MoveFirst()

End Sub

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

TbMahasiswaBindingSource.MovePrevious()

End Sub

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

TbMahasiswaBindingSource.MoveNext()

End Sub

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

TbMahasiswaBindingSource.MoveLast()

End Sub

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

TbMahasiswaBindingSource.AddNew()

End Sub

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

Me.Validate()

Me.TbMahasiswaBindingSource.EndEdit()

Me.TableAdapterManager.UpdateAll(Me.DbMahasiswaDataSet)

End Sub

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

Me.Validate()

Me.TbMahasiswaBindingSource.RemoveCurrent()

Me.TableAdapterManager.UpdateAll(Me.DbMahasiswaDataSet)

End Sub

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

Me.TbMahasiswaBindingSource.Filter = "Nama_Mahasiswa=' " & Nama_MahasiswaTextBox.Text & "'"

End Sub

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

If TbMahasiswaBindingSource.Find("Nama_Mahasiswa", Nama_MahasiswaTextBox.Text) >= 0 Then

MsgBox("Data Ditemukan")

Else

MsgBox("Data Tidak Ditemukan")

End If

End Sub

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

Me.Close()

End Sub

End Class

    Berakhir sudah postingan saya kali ini, terimakasih untuk kunjungan anda pada blog saya..
Maaf jika ada kesalahan tataan bahasa. :)