Cara Membuat Menu Search Di VB NET

Hai guys,pada kesempatan kali saya ingin share tutorial gimana MEMBUAT MENU PENCARIAN/SEARCHING DI VB NET .Searching data yang saya maksut adalah sebuah tool pada software dimana user dapat mecari data yang ingin mereka ketahui ,misalnya admin ingin mencari data anggota yang terdaftar di dalam database.

Caranya cukup simpel ,tinggal kalin mengikutinya sesuai dengan langkah-langkah ,berikut ini langkah-langkahnya :

1. Masuk ke Visual Studio kalian ,pilih New Project ,dan namai project sesuai keinginan kalian ,contoh : APP_SEARCHING_DATA

sumber : IT Dadakan

2. Kemudian  Klik kanan APP_SEARCHING_DATA di Solution Explorer >> pilih Add >> Module, Namai module sesuka kalian contoh : module_koneksi , setelah itu copy kan code berikut ini pada module_koneksi.

sumber : IT Dadakan

VB.NET

Imports MySql.Data.MySqlClient

Module Module_KONEKSI 

   Public conn As MySqlConnection 

   Public cmd As MySqlCommand   

 Public query As String  

  Public mda As MySqlDataAdapter  

  Public ds As DataSet



    Sub koneksiku()    

    conn = New MySqlConnection("data source=localhost;initial catalog=latihan;user=root;password=")    

    Try        

    If conn.State = ConnectionState.Closed Then            

    MsgBox("Koneksi berhasil")     

       End If      

  Catch ex As Exception    

        MsgBox("Koneksi gagal !")    

    End Try  

  End Sub

End Module 

Keterangan :

• Data source = nama server anda sperti contoh : localhost
• Initial Catalog = nama dari database anda seperti contoh : latihan
• User = username dari server anda seperti contoh  : root
• password = password dari server anda

Jika ketika anda menulis koding error ,berarti anda belum menghubungkan Project anda dengan Mysql.Data.Dll dari Mysql Connector.

sumber : IT Dadakan

Baca Juga : CARA MENGUBUNGKAN PROJECT DI VB.NET DENGAN MYSQL.DATA.DLL DARI MYSQ CONNECTOR

3. Setelah buat desain seperti gambar dibawah ini

sumber : IT Dadakan

Keterangan :

• Label : label 1
• Text Box  : txtnama_anggota
• Button : btn_search
• DataGrid View : dataanggota

4. Kemudian double klik Pada btn_search dan isikan code berikut ini 

VB.NET

Imports MySql.Data.MySqlClient

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load    

    koneksiku()     

    tampil()   

End Sub



Private Sub btnsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsearch.Click   

     ds = New DataSet      

      query = "select*from tb_anggota where nama_anggota like '%" & txtnama_anggota.Text & "%'"      

      mda = New MySqlDataAdapter(query, conn)   

     mda.Fill(ds)      

     dataanggota.DataSource = ds.Tables(0)   

 End Sub

    Sub tampil()     

     ds = New DataSet   

     query = "select*from tb_anggota"   

     mda = New MySqlDataAdapter(query, conn)      

     mda.Fill(ds)     

     dataanggota.DataSource = ds.Tables(0) 



   End Sub

End Class

5. Terakhir Save Project kemudian RUN program apakah error atau tidak,hasilnya berikut ini

sumber : IT Dadakan

Nah cukup sekian dari saya ,semoga bermanfaat ,teruslah mencoba sampai bisa ,sekian dari ,saya terima kasih !

Baca Juga : CARA MEMBUAT KONEKSI DI VB.NET DENGAN DATABASE MYSQL