kali ini saya akn menjelaskan cara cara atau langkah langkah dari membuat data base pada SQL Server 2005 sampai mengkoneksikan dengan Vb.net 2010..
A. MEMBUAT DATABASE
-langkah pertama yaitu kita buka Aplikasi SQL Server 2005 setela itu yaitu
– kemudian klik connect
– Klik kanan database, kemudian pilih new database, beri nama dan save di drive d atau e terserah anda.
– Klik [+] database yang anda buat tadi kemudian klik kanan folder table pilih new table, kemudian format table dibuat sesuai yang telah ditentukan saat praktek, kemudian klik save all dan beri nama.
– Klik kanan table tadi yang anda buat kemudian klik open table dan isikan kolom pada table tersebut sesuai ketentuan pada saat praktek, bila sudah klik save all.
B. MEMBUAT FORM PADA VB.NET 2010
– Open Visual Studio 2010
– Klik new project, kemudian pilih visual basic dan yang kanan pilih windows form application dan klik ok
C. UNTUK MENGHUBUNGKAN VB.NET 2010 DENGAN SQL SERVER 2005 yaitu :
– Klik menu data kemudian pilih add new data source
– pilih database klik next,pilih dataset klik next
– 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
– klik data sourch dan masukan isi dari table tersebut ke dalam form.
Kemudian setelah mengkoneksikan Visual basic dengan database
Kita membuat property property lain …
Disini saya menambahkan BUTTON dan TEXBOOX…
-Button pertama saya gunakan untuk membuat tombol Sebelumnya/previous yaitu dengan codding di bawah ini…
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TbmahasiswaBindingSource.MovePrevious()
End Sub
Kemudian setelah di klik maka akan keluar seperti ganbar di bawah ini
-Button kedua saya gunakan untuk membuat tombol sesudahnya/Next yaitu dengan codding di bawah ini :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TbmahasiswaBindingSource.MoveNext()
End Sub
Sebelum di jalankan
sesudah di jalankan
–Button ke tiga saya gunakan untuk membuat tombol pertama/first yaitu coddingnya sebagai berikut
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TbmahasiswaBindingSource.MoveFirst()
End Sub
berikut gambar untuk perintah pada button untuk navigasi pertama
–Button ke empat saya gunakan untuk membuat tombol terakhir/last yaitu coddingnya sebagai berikut
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TbmahasiswaBindingSource.MoveLast()
End Sub
berikut gambar untuk perintah pada button untuk terakhir/last
–Buttton ke lima saya gunakan untuk membuat tombol keluar yaitu coodingnya sebagai berikut
If MsgBox(“anda yakin akan keluar??”, vbYesNo + vbQuestion + vbDefaultButton2, “tutup”) = vbYes Then
Me.Close()
End If
End Sub
berikut gambar untuk perintah pada button untuk keluar
–Button ke enam saya gunakan untuk membuat tombol cari coddingnya sebagai berikut
If (TbmahasiswaBindingSource.Find(“Nama”, TextBox1.Text)) > -1 Then
MsgBox(“Data Ditemukan”)
Else
MsgBox(“Data Tidak Ditemukan”)
End If
End Sub
Ketika data ditemukan
ketika data tidak di temukan
Button ke tujuh saya gunakan untuk tombol Add New yaitu coddingnya sebagai berikut :
Private Sub Button7_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Me.TbmahasiswaBindingSource.AddNew()
End Sub
sebelum di add
ketika sudah di add
Dan yang terakhir saya gunakan textbook untuk mencari nama.. untuk codingnya yaitu
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
demikian pejelasan dari saya ,,,
mohon maaf karna masih banyak kekurangannya…
kendrozsisandong 