Langkah langkah pengkoneksian
·
Bukalah Microsoft Sql Server dan buatlah sebuah
Database dengan nama “dbmhasiswa”
seperti pada gambar dibawah ini :
seperti pada gambar dibawah ini :
·
Pada tabel, coba klik kanan lalu open tabel,
Lalu isi tabel tersebut dengan 2 data atau lebih. Seperti pada gambar di bawah
ini :
·
Setelah membuat database di dalam Sql Server,
Sekarang bukalah Microsoft Visual Studio dan buatlah projek baru dan coba
langkah langkah seperti di bawah ini :
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 seperti berikut:
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. Seperti dibawah ini;
Selanjutnya
pilih Next, dan OK. Dan tunggu beberapa saat hingga muncul tampilan.
Cek semua table
yang akan digunakan pada Visual Basic.
·
Setelah semua itu selesai, kembali ke Visual Studio dan pilih menu Data
lalu klik Show Data Source
·
Setelah itu coba ganti kolom jurusan dengan cara
mengklik kanan kolom jurusan dan ganti
dengan ComboBox
Dan atur seperti dibawah ini;
Lalu isikan kodingnya seperti di
bawah ini;
Public Class Form1
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.DbmhasiswaDataSet)
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 'DbmhasiswaDataSet.tbmhs' table. You can move,
or remove it, as needed.
Me.TbmhsTableAdapter.Fill(Me.DbmhasiswaDataSet.tbmhs)
End Sub
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
Me.TbmhsBindingSource.MoveFirst()
End Sub
Private Sub Button2_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button2.Click
Me.TbmhsBindingSource.MovePrevious()
End Sub
Private Sub Button3_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button3.Click
Me.TbmhsBindingSource.MoveNext()
End Sub
Private Sub Button4_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button4.Click
Me.TbmhsBindingSource.MoveLast()
End Sub
Private Sub Button8_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button8.Click
If
(TbmhsBindingSource.Find("NIM",
TextBox1.Text)) > -1 Then
MsgBox("Data
berhasil ditemukan")
Else
MsgBox("Data
tidak berhasil ditemukan")
End If
End Sub
Private Sub Button9_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button9.Click
Dim
Mencari As String
Mencari = InputBox("Masukkan Jurusan Yang Di Cari", "Filter ...")
End Sub
Private Sub Button5_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button5.Click
Me.TbmhsBindingSource.AddNew()
NIMTextBox.Focus()
Tanggal_LairDateTimePicker.ResetText()
End Sub
Private Sub Button6_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button6.Click
Me.Validate()
Me.TbmhsBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DbmhasiswaDataSet)
End Sub
Private Sub Button7_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button7.Click
If
MsgBox("Apakah Anda Yakin ?",
vbYesNo + vbQuestion + vbDefaultButton2, "Delete")
= vbYes Then
Me.TbmhsBindingSource.RemoveCurrent()
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
Setelah di run hasilnya seperti dibawah ini:
Dan untuk tombol cari apabila tidak ada data yang ditemukan
seperti dibawah ini:
Sekian terima kasih :)
