haii..Assalamualikum wr.wb
penulis ingin melanjutkan postingan yang lalu nihh..untuk kali ini penulis membuat koneksi database ke vb 2010. Databasenya sendiri penulis menggunakan Mikrosoft SQL server 2005 dengan Microsoft Visual Studio 2010.
langkah langkah mengoneksikannya adalah sebagai berikut :
1. Buat dulu database di SQL server, misalnya dbmahasiswa
2. Langsung masuk ke Vb 2010 dan koneksikan dengan cara :
a. klik menu data - add new source - pilih database - next
b. pilih Dataset - next - new conection - Ms.SQL server - Continue
c. pilih pada servername, ketikkan "local" atau "tanda titik (.)"
d. kemudian pada select or enter pilih yang dbmahasiswa
e. test connection - Ok - Yes - next ...
f. sampai kemudian finish.
3. setelah dikoneksikan otomatis dbmahasiswa tadi akan masuk ke vb dan kita tinggal buka kemudian drag satu per satu isi tabel tersebut.
4. tinggal isikan perintah perintah yang dibutuhkan. oke selesai dehhh
nah dibawah ini contoh yang penulis buat nihhh..
ini tampilan awalnya
data yang terlihat disamping dapat bergeser geser sesuai keinginan. Disitu juga tersedia tombol navigasi untuk menggeser data dari pertama sampai terakhir. Kita juga bisa menambahkan,menghapus, dan menyimpannya. Misal datanya terlalu banyak dan sulit mencari manual, kita bisa gunakan fungsi Search untuk mencarinya lebih cepat. Dan untuk kodingnya ada dibawah ini guys.. :)
Public Class Form1
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.MoveFirst()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TbmahasiswaBindingSource.MovePrevious()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TbmahasiswaBindingSource.MoveNext()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TbmahasiswaBindingSource.MoveLast()
'MsgBox("Ini Data Terakhir")
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Me.Close()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If (TbmahasiswaBindingSource.Find("nama", TextBox1.Text)) > -1 Then
Me.TbmahasiswaBindingSource.Filter = "nama='" & TextBox1.Text & " '"
MsgBox("Data di temukan ")
Else
MsgBox("Data yang anda cari tidak tersedia")
End If
'Me.TbmahasiswaBindingSource.Filter = "nama='" & TextBox1.Text & " '"
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
TbmahasiswaBindingSource.AddNew()
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Me.Validate()
Me.TbmahasiswaBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
TbmahasiswaBindingSource.RemoveCurrent()
Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)
End Sub
End Class
teman yang tadi itu hanya contoh yang masih sangat sederhana dan banyak kekurangan. Penulis hanya ingin menuliskan apa yang penulis bisa. Semoga bermanfaat :)
wassalamualaikum wr wb :)
