Nim : 11.11.2353
Kelas : TI 11 A
haiiii, ketemu lagi pada postingan saya kali ini, yang membahas tentang penggabungan antara Vb 10 dengan Ms. Acces.
Langsung saja yaaaaaa :
Untuk menghasilkan gambar atau hasil seperti dibawah ini ketikan juga Code Programnya..
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
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
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
Button10_Click(ByVal
sender As
System.Object,
ByVal
e As
System.EventArgs)
Handles
Button10.Click
Me.Close()
End
Sub
End
Class
Dan ini adalah hasil dari Code diatas...
0 Response to "Penggabungan Visual Basic dengan Ms. Acces"
Posting Komentar