koneksi visual basic dengan database

Buka SQL Server 2005 .
1.Buat DataBase dan table di SQL Server 2005.
Caranya :
A. Klik kanan pada Database kemudian pilih new DataBase
B. Berikan nama dengan nama dbmahasiswa
C. Klik kanan pada table lalu isikan pada column,data type sesuai dengan kebutuhan. Saya akan memberikan contoh sebagai berikut :
Column         Data Type        Allow
nim                  char (10)
nama               varchar (50)
tgllahir            datetime
alamat             varchar (50)
jurusan            char (2)
sppwajib          numeric (18,0)

D. Klik kanan pada table lalu pilih open table
E. Isikan masing masing kolom pada table sesuai dengan perintah nya.

2. Buat project dan form di Vb.Net 2010
3. koneksikan form dengan database yang telah di buat, caranya sebagai berikut :

a).Klik menu data kemudian pilih add new data source
b).pilih database klik next,pilih dataset klik next
c).klik new conection, isi server name dengan (SI_KENLOPH-PC\SA) server pada SQL Server kemudian pilih use SQL Server Authentication, isi server dan password lalu browse select or enter a database name, kemudian klik test conection bila sukses klik ok, kemudian klik next, kemudian cetang semua pilihan kemudian klik finish
d).klik data sourch dan masukan isi dari table tersebut ke dalam form.
untuk lebih mempermudah akan saya kasih kan gambar sebagai berikut untuk mengkoneksikannya

kemudian untuk memasukan data base ke visual basic yaitu dengan cara klik data kemudian pilih show data sources

kemudian setelah kita pilih show data sources ,langkah selanjutnya yaitu men drag atau menarik toolbar database  yang akan kita masukan.. sebelum memasukan kita rubah dulu funsinya sesuai kebutuhan…

untuk lebih jelasnya saya tunjukan pada gambar di bawah ini :

setelah di buat dan di jalankan akan muncul seperti gambar ;

untuk fungsi fungsi yang lain seperti untuk navigasi Sebelumnya,Sesudahnya,Pertama, Terakhir,Cari dan Keluar akan saya tunjukan kodinngya sebagai berikuyt:

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 Tanggal_LahirLabel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TbmahasiswaBindingSource.MovePrevious()
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If MsgBox(“anda yakin akan keluar??”, vbYesNo + vbQuestion + vbDefaultButton2, “tutup”) = vbYes Then

Me.Close()
End If
End Sub

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

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

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TbmahasiswaBindingSource.MoveLast()
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

Me.TbmahasiswaBindingSource.Filter = “nama=’” & TextBox1.Text & “‘”
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
MsgBox(“Data Ditemukan”)
Else
MsgBox(“Data Tidak Ditemukan”)
End If
End Sub

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

End Sub

Private Sub TbmahasiswaBindingNavigator_RefreshItems(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbmahasiswaBindingNavigator.RefreshItems

End Sub

Private Sub Button7_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.TbmahasiswaBindingSource.AddNew()
End Sub
End Class

setelah membuat cooding kita akan coba jalankan yaitu sebagai berikut ini

untuk navigasi sebelumnya;

untuk navigasi sesudahnya

untuk navigasi pertama

navigasi terakhir

untuk navigasi keluar

untuk navigasi cari ketika data di temukan

ketika data tidak di temukan

demikian penjelasan kali ini ,, semoga bermanfaat bagii rekan rekan yang membacanya

mohon maaf karna masih banyak kekurangannya…