:: 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 finis, 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)
tambahkan item TI dan SI dengan Edit Items)
12. Kemudian isikan kode berikut:
::CODINGNYA::
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.
14. Pada tombol cari apabila NIM yang ada dimasukan maka akan muncul seperti berikut ini;
Mohon maaf apabila masih banyak kekurangan
Sekian dan terima kasih :).
*Saran dan Kritik koment dibawah ya>>>>
