- Sub Cari()
- If cbKategori.Text = "No KTP" Then
- DataPembeli = Proses.ExecuteQuery("SELECT * FROM pembeli WHERE pembeli_nomor_ktp Like '%" & txtCari.Text & "%'")
- If DataPembeli.Rows.Count = 0 Then
- dgPembeli.DataSource = DataPembeli
- txtCari.Focus()
- Else
- dgPembeli.DataSource = DataPembeli
- End If
- ElseIf cbKategori.Text = "Nama Pembeli" Then
- DataPembeli = Proses.ExecuteQuery("SELECT * FROM pembeli WHERE pembeli_nama Like '%" & txtCari.Text & "%'")
- If DataPembeli.Rows.Count = 0 Then
- dgPembeli.DataSource = DataPembeli
- txtCari.Focus()
- Else
- dgPembeli.DataSource = DataPembeli
- End If
- End If
- End Sub
Selasa, 10 Maret 2015
Fungsi Cari Data
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar