Pada pertemuan ke-9 Pemrograman Visual saya diberi tugas untuk menghubungkan Visual Basic dengan database pada SQL Server. Langkah yang kita lakukan awalnya yaitu membuat database :
1. Buka SQL Server 2005
2. Klik kanan Database --> New Database
3. Buat databasenya kasihkan namanya
4. Lalu buat tabel dengan klik kanan Tabels
5. Pilih New Tabels
Berikut format tabelnya :
- nim char(10) not null primary key
- nama varchar(20)
- alamat varchar(50)
- tgllahir datetime
- jurusan char(2)
- spptetap decimal(18,0)
Di bawah adalah tampilan tablenya
Apabila table telah dibuat lalu kita koneksikan dengan Visual Basic.
1. Masuk ke Visual Basic
2. Pada menu Toolbar pilih Data --> Add New Data Source
3. Ikuti langkah yang ada
4. Untuk menampilkan databasenya pilih Data --> Show Data Source
5. Untuk menampilkan database ke form tinggal di drag.
6. Untuk memampilkan tombol-tombol tambahan menggunakan button
Syntax untuk program pada Visual Basic adalah di bawah ini
Public Class Form1
Private Sub Table_mahasiswaBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Table_mahasiswaBindingNavigatorSaveItem.Click
Me.Validate()
Me.Table_mahasiswaBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Dbmahasiswa2DataSet)
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 'Dbmahasiswa2DataSet.Table_mahasiswa' table. You can move, or remove it, as needed.
Me.Table_mahasiswaTableAdapter.Fill(Me.Dbmahasiswa2DataSet.Table_mahasiswa)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Table_mahasiswaBindingSource.MoveFirst()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Table_mahasiswaBindingSource.MovePrevious()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Table_mahasiswaBindingSource.MoveNext()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Table_mahasiswaBindingSource.MoveLast()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Me.Validate()
Me.Table_mahasiswaBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Dbmahasiswa2DataSet)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Me.Table_mahasiswaBindingSource.AddNew()
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Me.Table_mahasiswaBindingSource.RemoveCurrent()
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Dim NIM As String = InputBox("Masukkan NIM yang dicari", "Pencarian")
If (Table_mahasiswaBindingSource.Find("nim", NIM) > -1) Then
MsgBox("ketemu", vbOK, "cari")
Table_mahasiswaBindingSource.Position = Table_mahasiswaBindingSource.Find("nim", NIM)
Else
MsgBox("ga ketemu", vbOK, "cari")
End If
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If (ComboBox1.Text = "SI") Then
Me.Table_mahasiswaBindingSource.Filter = "jurusan = '" & ComboBox1.Text & "'"
ElseIf (ComboBox1.Text = "TI") Then
Me.Table_mahasiswaBindingSource.Filter = "jurusan = '" & ComboBox1.Text & "'"
End If
'
End Sub
End Class
Di bawah ini tampilan running awal
Tampilan saat ditekan Tombol Add
Tampilan saat ditekan tombol Search
Tampilan saat ditekan filter
