Pencarian Data Visual Basic

Cara membuat pencarian atau search data menggunakan visualbasic .Net

Kemarin kita telah berhasil membuat dua buah validasi, yaitu Cara membuat validasi menggunakan perintah “IF” dan validasi menggunakan perintah “Try“. Sekarang kita akan mencoba untuk membuat kueri pencarian melalui perintah SQL.Manfaat pencarian data ini sangatlah besar dan mutlak diperlukan, apabila aplikasi yang kita buat menyimpan database yang cukup besar.

Artikel Lain: Perintah If Visual Basic

Jika di website mesin pencari seperti google contohnya, dengan adanya pencarian maka artikel yang kita inginkan akan lebih mudah ditemukan dari sekian banyak artikel (data).Untuk membuat pencarian atau search data di Visualbasic .Net silakan ikuti langkah-langkah berikut ini:

1. Kemarin dalam file koneksi pada artikel Cara menyimpan data di database tambahkan dibawahnya koneksi pencarian seperti ini:

Imports System.Data.OleDb
Namespace accessdata
Public Class koneksidata
Dim conect As New OleDbConnection(“Provider=Microsoft.Jet.OLEDB.4.0; Data Source=mudamers.mdb;”)
Public Function open() As OleDbConnection
conect.Open()
Return conect
End Function
Public Function close() As OleDbConnection
conect.Close()
Return conect
End Function
End Class
End Namespace
Module koneksidata
    Public Function pencarian() As System.Data.OleDb.OleDbConnection
Dim con As System.Data.OleDb.OleDbConnection
con = New System.Data.OleDb.OleDbConnection(“Provider=Microsoft.Jet.OLEDB.4.0; Data Source=mudamers.mdb;”)
Return con
con = Nothing
End Function

End Module

2. Kode yang berwarna merah adalah tambahan untuk pencarian sedangkan yang biru adalah yang kita buat kemarin.

3. Sekarang kembali ke Form Project Anda, tambahkan sebuah Textbox dan ubah namanya menjadi TCARI. Lalu tambahkan script atau kode berikut ini:

Dim DA As New OleDb.OleDbDataAdapter
DA = New OleDb.OleDbDataAdapter(“select * from tbmudamers where mudamu like ‘” & “%” & TCARI.Text & “%” & “‘”, koneksidata.pencarian)
Dim DT1 As New DataTable
DT1.Clear()
DA.Fill(DT1)
If DT1.Rows.Count = Nothing Then
MsgBox(“Data PEGAWAI dengan NIP atau NAMA tersebut tidak ditemukan !!”, MsgBoxStyle.Critical, “Pemberitahuan !!”)
Me.TCARI.Focus()
Else
Dim isi As ListViewItem
ListView1.Items.Clear()
mycmd = myconnection.open.CreateCommand
mycmd.CommandText = “select nomudamers,mudamu from tbmudamers where mudamu like ‘” & “%” & TCARI.Text & “%” & “‘”
objdatareader = mycmd.ExecuteReader
While objdatareader.Read
isi = ListView1.Items.Add(objdatareader.Item(“nomudamers”).ToString)
isi.SubItems.Add(objdatareader.Item(“mudamu”).ToString)
End While
myconnection.close()
End If

4. Setelah itu coba jalankan Project Anda maka saat Anda mengetikkan teks di Textbox, jika ada data yang mirip akan otomatis di tampilkan pada Listview item.

5. Berikut adalah penjelasan dari kode atau script diatas:

-Untuk Script atau Code koneksi sama seperti yang kita buat kemarin pada artikel menyimpan database, fungsinya adalah untuk menghubungkan database ke Visualbasic .Net.

-Script atau kode yang kedua adalah mencari data pada tabel “tbmudamers” dimana pada field “mudamu” tersebut data yang dipilih adalah yang mirip atau sama dengan yang Anda ketikkan di Textbox, karena perintah SQL menggunakan klausa %Like%. Jika data tidak ditemukan maka akan muncul Messagebox Pemberitahuan.

6. Seperti itulah cara membuat pencarian atau search data menggunakan Program Visualbasic .Net, selalu lihat Video tutorialnya agar Anda tidak bingung !.

Download Video
Download Code

 

Tags:

5 Comments

  1. Pingback: Option File Player 2015 untuk PES 2006

Leave a Reply

Your email address will not be published. Required fields are marked *