1.Buat database di Microsoft SQL Server Management Studio
2.Masukan nama
database yang akan dibuat
Setelah itu klik OK
3.Pada dbmahasiswa
klik kanan pilih new table,setelah itu isi dengan format yang sesuai
Kemudian simpan
4.Setelah
itu,pada tbmahasiswa klik kanan > open table
5.Setelah itu, buka Microsoft Visual Studio 2010 ,
buat project baru dan masukan database yang telah dibuat dengan SQL server
Klik Data
Klik Add New
Data Source
Klik Database
Klik Next
Klik Dataset
Klik Next pilih
New Connection
Klik Microsoft SQL Server, lalu Continue
6.Pada bagian Server Name pilih server yang tersedia. Pada Log on to the server pilih Use Windows Authentication, masukkan dbmahasiswa. Lalu Test Connection, maka siap untuk dikoneksikan.
Selanjutnya pilih Next, dan save. Dan tunggu beberapa saat hingga muncul
tampilan. Cek semua table yang akan digunakan pada Visual Basic.
7.Setelah selesai, klik
Finish
8. Drag dan tarik tabel
(dbmahasiswa ) ke form , ganti jurusan dengan combo box
9. Buat button
pertama,sebelum,selanjutnya,terakhir, tambah, hapus, simpan ,cari, filter, dan
terakhir keluar
10. Pada kolom
jurusan, isikan TI dan SI dengan cara klik kanan pada textbox dan pilih edit
items
Untuk codingnya adalah sebagai berikut :
Untuk tombol pertama >
Private Sub Button3_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
TbmahasiswaBindingSource.MoveFirst()
End Sub
Untuk tombol sebelumnya >
Private Sub Button2_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
TbmahasiswaBindingSource.MovePrevious()
End Sub
Untuk tombol selanjutnya >
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button1.Click
TbmahasiswaBindingSource.MoveNext()
End Sub
Untuk tombol akhir >
Private Sub Button4_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button4.Click
TbmahasiswaBindingSource.MoveLast()
End Sub
Untuk tombol tambah >
Private Sub
Button5_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button5.Click
TbmahasiswaBindingSource.AddNew()
End Sub
Untuk tombol hapus >
Private Sub
Button8_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button8.Click
TbmahasiswaBindingSource.RemoveCurrent()
End Sub
Untuk tombol simpan >
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.TbmahasiswaDataSet1)
End Sub
Untuk tombol cari >
Private Sub Button8_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button8.Click
If
(TbmahasiswaBindingSource.Find("Nama",
TextBox1.Text)) > -1 Then
MsgBox("Data
berhasil ditemukan")
Else
MsgBox("Data
tidak berhasil ditemukan")
End If
End Sub
Untuk tombol keluar >
Me.Close()
Terima Kasih
Maaf jika ada kekurangan =)
