Thursday, May 29, 2014

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
1
234
6
8
a.2
5
a..3
7
9

9.b




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 :
show1
show2
show3setelah di buat dan di jalankan akan muncul seperti gambar ;
mumunawaluntuk 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;
mumunsebelumnya
untuk navigasi sesudahnya
mumunselanjutnyauntuk navigasi pertama
mumunpertamanavigasi terakhir
mumunterahir
untuk navigasi keluar
mumunkeluaruntuk navigasi cari ketika data di temukan
mumundataditemukanketika data tidak di temukan
mumundatatida
demikian penjelasan kali ini ,, semoga bermanfaat bagii rekan rekan yang membacanya
mohon maaf karna masih banyak kekurangannya…

0 comments:

Post a Comment

Followers

English French German Spain Italian Dutch Russian Portuguese Japanese Korean Arabic Chinese Simplified


  © Blogger template 'A Click Apart' by Ourblogtemplates.com 2008

Back to TOP