1. Bukalah SQL Server, dan buatlah database dengan nama dbmahasiswa.
.2. Setelah kliik "OK" akan muncul dbmahasiswa
3. Lalu double klik dbmahasiswa dan klik table lalu klik modify, lalu Buatlah desain tabelnya
4.Kemudian isilah table yang sudah dibuat dengan 2 data. Pada tbmahasiswa klik kanan,
lalu pilih Open Table.
5.Setelah membuat database di SQL Server selesai, lalu dilanjutkan dengan membuat
project baru di Microsoft Visual Basic 2010 , klik new project.
6. Bukalah database yang sudah dibuat dengan meng-klik pada menu Data > Add New
Data Source… > Database, lalu Next > Dataset, lalu Next > New Connection
… > pilih Microsoft SQL Server, lalu Continue.
Kemudian akan muncul kotak dialog.
7. Pada bagian Server Name, pilih server yang tersedia. Jika tidak bisa kembali ke
SQL Server dan sorot nama server (pilih Connect lalu copy nama server tersebut).
Pada Log on to the server pilih Use Windows Authentication. Dan masukkan
dbmahasiswa. Lalu Test Connection, jika sukses maka telah siap dikonekkan.
. Selanjutnya pilih OK
8. Dan tunggu beberapa saat hingga muncul tampilan. Cek semua table yang akan
digunakan pada Visual Basic.
9. Lalu finish, Setelah itu, kembali ke Visual Basic.
Pada menu Data pilih Show Data Sources.
10. Pada kolom jurusan, model nya diganti dengan ComboBox.
11. Drag semua ke form.
Dan buatlah tampilan seperti berikut: (pada Jurusan dibuat ComboBox,
tambahkan item TI dan SI dengan Edit Items)
dan berikut adalah screenshootnya:
berikut adalah codingnya :
Public Class Form1
Private Sub TbmahasiswaBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbmahasiswaBindingNavigatorSaveItem.Click
Me.Validate()
Me.TbmahasiswaBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)
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 'DbmahasiswaDataSet.tbmahasiswa' table. You can move, or remove it, as needed.
Me.TbmahasiswaTableAdapter.Fill(Me.DbmahasiswaDataSet.tbmahasiswa)
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Me.TbmahasiswaBindingSource.MoveFirst()
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Me.TbmahasiswaBindingSource.MovePrevious()
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Me.TbmahasiswaBindingSource.MoveNext()
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Me.TbmahasiswaBindingSource.MoveLast()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If MsgBox("Apakah anda ingin keluar ?", vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = vbYes Then
Me.Close()
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.TbmahasiswaBindingSource.AddNew()
NimTextBox.Focus()
Tgl_LahirDateTimePicker.ResetText()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Validate()
Me.TbmahasiswaBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If MsgBox("Apakah Anda Yakin ?", vbYesNo + vbQuestion + vbDefaultButton2, "Delete") = vbYes Then
Me.TbmahasiswaBindingSource.RemoveCurrent()
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If (TbmahasiswaBindingSource.Find("NIM", TextBox1.Text)) > -1 Then
MsgBox("Data berhasil ditemukan")
Else
MsgBox("Data tidak berhasil ditemukan")
End If
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim Mencari As String
Mencari = InputBox("Masukkan Jurusan Yang Di Cari", "Filter ...")
End Sub
End Class
