Nur Atikah F: Tugas Visual Basic 9 : Koneksi SQL 2005 ke VB 2010

Tugas Visual Basic 9 : Koneksi SQL ke Visual Basic 2010

Langkah-langkah koneksi :

1. Yang jelas harus ada program SQL 2005 dan VB 2010, setelah itu kita buat dulu database di SQL 2005. Misal dengan nama Dbmahasiswa, dan untuk membuat tabel yaitu dengan klik kanan pada table lalu pilih new table, dan beri nama tbmahasiswa.

Klik kanan pada tbmahasiswa lalu pilih open, isilah tabelnya sesuai kebutuhan. Disitu ada 5 record yaitu NIM, Nama, Jurusan, Alamat, SPP. Lalu save.

Ini tampilan di SQL nya

2. Selanjutnya yaitu membuat projek baru di vb, terserah apa namanya. Pilih menu data > add new data source > database > next > dataset > new connection > continue > pilih servername, yaitu ATIKAH-PC/SA . isi username dan passwordnya. Pilih select enter lalu Klik tes connection untuk mengetes, jika sukses maka terhubung. Lalu klik ok > yes > next > yes >next >finish.

Tampilan projek

Tambahkan button first, previous, next, last, clear, search, close dan textboxt1. Dan isi codenya seperti ini

Public Class Form1

'tugas vb yang ke9 : koneksi sql ke vb,dan menambahkan tombol"

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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'tbmahasiswabindingsource, data yang kita ambil dari tabel yang sudah kita buat di sql

'code untuk pindah ke record pertama

TbMahasiswaBindingSource.MoveFirst()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

'code untuk pindah ke record sebelumnya

TbMahasiswaBindingSource.MovePrevious()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

'code untuk pindah ke record selanjutnya

TbMahasiswaBindingSource.MoveNext()

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

'code untuk pindah ke record terakhir

TbMahasiswaBindingSource.MoveLast()

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

End

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

'pencarian nama dengan find, jika ada dia akan menampilkan pesan data ditemukan

If (TbMahasiswaBindingSource.Find("nama", TextBox1.Text)) > -1 Then

MsgBox("Data di temukan ")

Else

'jika tidak ada,maka menampilkan pesan dibawah ini

MsgBox("Data yang anda cari tidak tersedia")

End If

End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

'tombol untuk menghapus textbox1

TextBox1.ResetText()

End Sub

End Class

Langkah penggunaan programnya sangat sederhana, bisa melalui toolbar yang tersedia ataupun tombol-tombol yang sudah dibuat. Jika ingin menambahkan record baru tinggal pilih toolbar + berwarna kuning yang ada diatas, lalu isi pada record dibawahnya lalu pilih toolbar save. Jika ingin dihapus tinggal pilih tanda x berwarna merah. Untuk pencarian, disini dimaksudkan untuk mengetahui apakah nama yang kita tuliskan apakah ada dalam data tersebut atau tidak. Caranya tinggal mengetikkan nama pada textbox1 lalu pilih search. Selesai.

Contoh data yang ditemukan