Archive for 2013
Tugas 7
Conection
antara SQL Server dengan Microsoft Visual Basic
1.
Bukalah SQL Server, dan buatlah
database dengan nama dbmahasiswa.
2.
Setelah di Ok
akan muncul dbmahasiswa seperti
gambar dibawah ini:
3.
Lalu klik 2
kali dbmahasiswa dan klik table modify, lalu Buatlah desain
tabelnya seperti berikut ini;
4.
Kemudian isi table yang sudah dibuat
dengan 2 data. Pada tbmahasiswa klik kanan, lalu pilih Open Table.
Seperti gambar dibawah:
5.
Setelah membuat database di SQL
Server selesai, lalu dilanjutkan dengan membuat project baru di Microsoft
Visual Basic 2010 seperti biasanya.
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 seperti berikut:
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. Seperti gambar dibawah ini;
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).
12. Kemudian
isikan kode berikut:
Public Class Form1
Private Sub
TbmahasiswaBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs)
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 NAMALabel_Click(ByVal sender As
Object, ByVal e As EventArgs)
Throw New NotImplementedException
End Sub
## Untuk Button
pertama ##
Private Sub Button1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)Handles
Button1.Click
Me.TbmahasiswaBindingSource.MoveFirst()
End Sub
## Untuk
Button Sebelumnya ##
Private Sub Button2_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.TbmahasiswaBindingSource.MovePrevious()
End Sub
## Untuk Button
Selanjutnya ##
Private Sub Button3_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.TbmahasiswaBindingSource.MoveNext()
End Sub
## Untuk Button
Terakhir ##
Private Sub Button4_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.TbmahasiswaBindingSource.MoveLast()
End Sub
## Untuk Button
tambah ##
Private Sub bttambah_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles bttambah.Click
Me.TbmahasiswaBindingSource.AddNew()
NIMTextBox.Focus()
TGL_LAHIRDateTimePicker.ResetText()
End Sub
## Untuk Button hapus
##
Private Sub bthapus_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles bthapus.Click
If MsgBox("Apakah Anda Yakin
?", vbYesNo + vbQuestion + vbDefaultButton2, "Delete") = vbYes
Then
Me.TbmahasiswaBindingSource.RemoveCurrent()
End If
End Sub
## Untuk Button
simpan ##
Private Sub Btsimpan_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Btsimpan.Click
Me.Validate()
Me.TbmahasiswaBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)
End Sub
## Untuk Button cari
##
Private Sub btcari_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles btcari.Click
If
(TbmahasiswaBindingSource.Find("NIM", TextBox1.Text)) > -1 Then
MsgBox("Data berhasil
ditemukan")
Else
MsgBox("Data tidak berhasil
ditemukan")
End If
End Sub
## Untuk Button
Filter ##
Private Sub Btfilter_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Btfilter.Click
Dim Mencari As String
Mencari = InputBox("Masukkan
Jurusan Yang Di Cari", "Filter ...")
End Sub
## Untuk Button
Keluar ##
Private Sub Btkeluar_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Btkeluar.Click
Me.Close()
End Sub
End Class
13. Jalankan program
tersebut.
