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
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.
Keterangan :
Jika ketika anda menulis koding error ,berarti anda belum menghubungkan Project anda dengan Mysql.Data.Dll dari Mysql Connector.
Baca Juga : CARA MENGUBUNGKAN PROJECT DI VB.NET DENGAN MYSQL.DATA.DLL DARI MYSQ CONNECTOR
3. Setelah buat desain seperti gambar dibawah ini
Keterangan :
4. Kemudian double klik Pada btn_search dan isikan code berikut ini
5. Terakhir Save Project kemudian RUN program apakah error atau tidak,hasilnya berikut ini
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
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 |
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
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
0 Response to "Cara Membuat Menu Search Di VB NET"
Post a Comment