CONECT TO SQL SERVER
Sebelum
saya membuat tombol-tombol navigasi yang ditugas kan pak nandang, saya terlebih
dahulu akan menjelaskan urutan-urutan pembuatan table di SQL Server dan membuat
form kemudian menghubungkannya dengan tabel padea SQL Server. Berikut urutannya
:
a. Membuat tabel pada SQL
Server
-
Buka aplikasi SQL Server, kemudian klik connect
-
Klik kanan database, kemudian pilih new database, beri nama
dan simpan di drive d atau e terserah anda.
-
Klik [+] database yang anda buat tadi kemudian klik kanan
folder table pilih new table, kemudian buat table tersebut dengan format 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 2010
-
Buka aplikasi VB 2010
-
Klik menu file kemudian klik new project, kemudian pilih
visual basic dan yang kanan pilih windows form application dan klik ok
-
Klik menu data kemudian pilih add new data source
-
pilih database klik next,pilih dataset klik next
-
klik new conection, isi server name dengan (.) kemudian
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.
1. Membuat navigasi
next,prev,first dan last
A. Navigasi Next
-
Gambar :
-
Coding program :
Private Sub
BtNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
BtNext.Click
Dim max
As Integer = Me.TabelmahasiswaBindingSource.Count
Dim skr
As Integer = Me.TabelmahasiswaBindingSource.Position
If skr
< max - 1 Then
Me.TabelmahasiswaBindingSource.MoveNext()
Else :
MsgBox("Ini Data Paling akhir")
End If
End Sub
B. Navigasi Prev
-
Gambar :
-
Coding program :
Private Sub
BtPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
BtPrev.Click
Dim max
As Integer = Me.TabelmahasiswaBindingSource.Count
Dim skr
As Integer = Me.TabelmahasiswaBindingSource.Position
If skr
<> 0 Then
Me.TabelmahasiswaBindingSource.MovePrevious()
Else :
MsgBox("Ini Data Paling Awal")
End If
End Sub
C. Navigasi First
-
Gambar :
-
Coding program :
Private Sub
BtFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
BtFirst.Click
Me.TabelmahasiswaBindingSource.MoveFirst()
End Sub
D. Navigasi Last
-
Gambar :
-
Coding program :
Private Sub
BtLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
BtLast.Click
Me.TabelmahasiswaBindingSource.MoveLast()
End Sub
2. Membuat tombol cari dengan ketentuan
pencarian berupa nama
A. Tombol Cari
-
Gambar :
-
Coding program :
Private Sub
BtCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
BtCari.Click
If
(TabelmahasiswaBindingSource.Find("nama",
TextBox1.Text)) > 1 Then
MsgBox("Data
di temukan ")
Else
MsgBox("Data
yang anda cari tidak tersedia")
End If
End Sub
B. Tombol Filter
-
Selain tombol cari saya juga telah menambahkan tombol filter
yang berfungsi untuk menampilkan data yang kita cari.
-
Gambar :
-
Coding program :
Private Sub
BtFilter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
BtFilter.Click
Me.TabelmahasiswaBindingSource.Filter
= "nama='" & TextBox1.Text
& " '"
End Sub
3. Membuat tombol keluar
-
Gambar :
-
Coding program :
Private Sub
BtExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
BtExit.Click
If
MsgBox("Anda Yakin Akan Keluar ?",
vbYesNo + vbQuestion + vbDefaultButton2, "Keluar")
= _
vbYes Then
Me.Close()
End Sub
0 komentar:
Posting Komentar