[belajar-access] Re: find record menggunakan field

----- Original Message -----
From: "Harry siswanto" <harry.siswanto@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Wednesday, July 29, 2009 1:36 AM
Subject: Re: [belajar-access] Re: find record menggunakan field

> Maaf ikutan Nimbrung....
>
> untuk di MsAccess (MDB)
> masih belum mudeng nih....
> untuk mencari berdasarkan isian yg ada.
> terlampir contoh mdb nya...
>
> Tolong dapat dibantu...
>
>
> thanks
> harry
> Pada 28 Juli 2009 12:00, HENDRA <hendragunadi@gmail.com> menulis:
>
> >
> >
> > Oh ok pak, jd kl saya update, delete, insert drpd pake ado mending saya
> > pake stored procedure ajah ya pak, trus kita passing parameter2 nya
> >
> >
> > ------------------------------
> >
> > *From:* belajar-access@yahoogroups.com [mailto:
> > belajar-access@yahoogroups.com] *On Behalf Of *Nana Supriatna Access
> > *Sent:* Tuesday, July 28, 2009 11:42 AM
> > *To:* belajar-access@yahoogroups.com
> > *Subject:* Re: [belajar-access] Re: find record menggunakan field
> >
> >
> >
> >
> >
> >
> >
> > Mas Hendra..
> >
> >
> >
> > Store Procedure disimpan di Sql Server seperti query di MS Access. Coba
> > dulu create Sp sederhana saja, lalu jadikan recordsource form atau
subform.
> >
> > Nanti tinggal coba passing parameter di form. Kalau ada kesulitan nanti
> > bisa tanya ke MBA :)
> >
> >
> >
> >
> >
> > Salam
> >
> >
> >
> >
> >
> >
> >
> > Nana
> >
> >
> >
> >
> >
> > ----- Original Message -----
> >
> > *From:* HENDRA <hendragunadi@gmail.com>
> >
> > *To:* belajar-access@yahoogroups.com
> >
> > *Sent:* Tuesday, July 28, 2009 11:20 AM
> >
> > *Subject:* RE: [belajar-access] Re: find record menggunakan field
> >
> >
> >
> >
> >
> > Wah masih blum ngerti pak, bisa diberikan contohnya? Yg simple ajah?
> > ------------------------------
> >
> > *From:* belajar-access@yahoogroups.com [mailto:
> > belajar-access@yahoogroups.com] *On Behalf Of *Nana Supriatna Access
> > *Sent:* Tuesday, July 28, 2009 10:19 AM
> > *To:* belajar-access@yahoogroups.com
> > *Subject:* Re: [belajar-access] Re: find record menggunakan field
> >
> >
> >
> > Mas Hendra kenapa gak pakai Store Procedure ?
> >
> > ----- Original Message -----
> >
> > *From:* HENDRA <hendragunadi@gmail.com>
> >
> > *To:* belajar-access@yahoogroups.com
> >
> > *Sent:* Tuesday, July 28, 2009 8:22 AM
> >
> > *Subject:* RE: [belajar-access] Re: find record menggunakan field
> >
> >
> >
> > Jadi maksudnya mas aksan kl contoh kita pake adp begini kira2? Mohon
> > dikoreksi
> >
> > Dim RST2 As ADODB.Recordset
> > Set RST2 = New ADODB.Recordset
> > RST2.Open "SELECT * from tblbarang ", CurrentProject.Connection,
> > adOpenStatic, adLockOptimistic
> >
> > trus bgm kita memfilter2 data yg sudah di download ke comp client?
> > Combobox1.rowsource = ????? (bgm contoh memfilter nya?) terima kasih
> >
> > -----Original Message-----
> > From: belajar-access@yahoogroups.com
<belajar-access%40yahoogroups.com>[mailto:
> > belajar-access@yahoogroups.com <belajar-access%40yahoogroups.com>]
> > On Behalf Of Aksan Kurdin
> > Sent: Tuesday, July 28, 2009 12:05 AM
> > To: belajar-access@yahoogroups.com <belajar-access%40yahoogroups.com>
> > Subject: Re: [belajar-access] Re: find record menggunakan field
> >
> > Jika sudah demikian, maka anda bisa mengambil langkah meload recordset
> > sql server ke memory client dengan opsi openkeyset atau openstatic.
> > dengan open static, maka recordset sudah didownload semua ke memori,
> > sehingga proses filter memfilter di sisi client harusnya lebih cepat,
> > lambat saat loadingnya saja. Tetapi diingat, karena sifatnya yang static
> > / keyset, maka penambahan data dari user lain tidak akan terlihat sampai
> > dilakukan requery lagi.
> >
> > Aksan Kurdin
> >
> > HENDRA wrote:
> > >
> > > Oh iya, saya juga menggunakan sql server mas aksan, berarti sudah
> > > betul caranya. Tetapi saya pernah pakai cara filter yg ditaruh di
> > > event on change text box kemudian di set listbox.rowsource = select *
> > > from tblanu where cust like ' textbox.value' . tapi hasilnya masih
> > > tetap lagging kl data sudah banyak. Kira2 apa yg salah ya? Terima
kasih
> > >
> > > ----------------------------------------------------------
> > >
> > > *From:*
belajar-access@yahoogroups.com<belajar-access%40yahoogroups.com>
> > >
[mailto:belajar-access@yahoogroups.com<belajar-access%40yahoogroups.com>]
> > *On Behalf Of *Aksan Kurdin
> > > *Sent:* Monday, July 27, 2009 6:11 PM
> > > *To:* belajar-access@yahoogroups.com
<belajar-access%40yahoogroups.com>
> > > *Subject:* Re: [belajar-access] Re: find record menggunakan field
> > >
> > > Mas Hendra,
> > > MS Access adalah file server, bukan client server, jadi selalu kalau
> > > database di taruh di tempat berbeda (server atau workstation lain),
> > > maka select * from customer where custname like 'aksan*', selalu
> > > mengirimkan select * from customer ke workstation yang meminta, nanti
> > > dari workstation baru tampilan ke screen di filter where custname like
> > > 'aksan*'
> > > SQL Server adalah salah satu contoh database server, sehingga
> > > permintaan di atas langsung di filter di sisi SQL Server, dan hasilnya
> > > baru di kirim ke workstation yang meminta.
> > >
> > > Jadi, kalau proses requery di lakukan di MS Access, maka penarikan
> > > data akan berulang-ulang sejumlah record yang terrekam dalam file MDB.
> > >
> > > aksan kurdin
> > >
> > >
> > > HENDRA wrote:
> > >
> > >> Mas aksan, bisa kasih contoh kode yg dimaksud dengan client server,
> > >> sehingga jika memfilter 4 data , hanya 4 data saja yg dikirim. Apa
> > >> bisa menggunakan Microsoft Access untuk mengisi sebuah listbox ato
> > >> bgm? Kalo saya biasa menggunakan ADO di access untuk mempopulasi
> > >> listbox yg berisi data2 hasil filter, kl prinsip kerja ADO apakah
> > >> hanya menarik 4 data sajah ato semuanya ditarik? Terima kasih
> > >>
> > >> ----------------------------------------------------------
> > >>
> > >> *From:*
belajar-access@yahoogroups.com<belajar-access%40yahoogroups.com>
> > >>
[mailto:belajar-access@yahoogroups.com<belajar-access%40yahoogroups.com>]
> > *On Behalf Of *Aksan Kurdin
> > >> *Sent:* Monday, July 27, 2009 4:11 PM
> > >> *To:* belajar-access@yahoogroups.com
<belajar-access%40yahoogroups.com>
> > >> *Subject:* Re: [belajar-access] Re: find record menggunakan field
> > >>
> > >> Kalau pake requery memang pasti lambat, karena selalu request data
> > >> kembali setiap kali melakukan filter. Padahal di Access, data yang
> > >> ditarik dari server database selalu semuanya, nanti pada saat mau
> > >> ditampilkan di form, baru di filter. Beda kalau client server, kita
> > >> filter 4 data dari 4 juta record, yang dikirim pun selalu 4 saja.
> > >>
> > >> Usulan awal dari MBA yang paling mengena, yaitu dengan filter form
> > >> pada event on change text box. Biasanya efektif untuk filter text
> > >> field saja.
> > >>
> > >> Private Sub txtFilter_onchange()
> > >> if me.txtfilter.text = "" then
> > >> me.filter = ""
> > >> me.filteron = false
> > >> else
> > >> me.filter = "NoRekening Like '" & me.txtFilter.text & "*'"
> > >> me.filteron = true
> > >> end if
> > >> end sub
> > >>
> > >> ingat, gunakan property text dari txtFilter, bukan property value.
> > >> Text adalah nilai yang saat ini sedang di edit dan ditampilkan di
> > >> textbox saat mendapatkan focus, sedangkan value adalah nilai awal
> > >> yang sudah disimpan di database.
> > >> kode diatas akan dinamis memfilter record sesuai dengan nomor
> > >> rekening yang sesuai dengan awalan yang ada di txtfilter, atau
> > >> menampilkan semuanya jika txtFilter di kosongin.
> > >>
> > >> Biasanya kode seperti ini di kombinasikan dalam form header - detail.
> > >> Header berisi combo box yang memuat daftar field yang akan di filter,
> > >> seperti no rekening, nama customer, kota, dan sebagainya.
> > >> Detail adalah detail datasheet yang berisi data berupa query / table.
> > >> jadi kita memilih field apa yang akan di filter, lalu mulai
> > >> memasukkan huruf demi huruf apa yang difilter. Isi datasheet akan
> > >> menyesuaikan langsung, segera setelah kita mengetikkan sesuatu di
> > >> text filter. Karena cuma filter dan tidak ada requery, seharusnya
> > >> proses ini tidak memakan waktu yang lama untuk database gede.
> > >> kalau letak datasheet yang di filter ada di sub form, tinggal
> > >> mengganti me. dengan pointer yang sesuai semisal :
> > >>
> > >> me.filter = blah ...
> > >>
> > >> menjadi
> > >>
> > >> me.namasubform.form.filter = blah....
> > >>
> > >>
> > >>
> > >> Aksan Kurdin
> > >>
> > >>
> > >>
> > >> HENDRA wrote:
> > >>
> > >>> Saya sudah pernah mengaplikasikan kode semacam ini, untuk jumlah
> > >>> data sedikit masih oke, Cuma begitu mulai banyak akan terasa lagging
> > >>> nya. Sehingga
> > >>>
> > >>> Terakhir saya ubah sehingga tetap user nya saja yg masukan criteria
> > >>> kemudian tekan tombol barulah di search barangnya.
> > >>>
> > >>> CMIIW
> > >>>
> > >>> ----------------------------------------------------------
> > >>>
> > >>> *From:*
belajar-access@yahoogroups.com<belajar-access%40yahoogroups.com>
> > >>>
[mailto:belajar-access@yahoogroups.com<belajar-access%40yahoogroups.com>]
> > *On Behalf Of *Murid Belajar
> > >>> Access
> > >>> *Sent:* Monday, July 27, 2009 3:10 PM
> > >>> *To:*
belajar-access@yahoogroups.com<belajar-access%40yahoogroups.com>
> > >>> *Subject:* Re: [belajar-access] Re: find record menggunakan field
> > >>>
> > >>> Mas Panca,
> > >>>
> > >>> Misalnya, textbox namanya txtFilter
> > >>> combobox namanya cboHasilFilter
> > >>>
> > >>> Private Sub txtFilter_onchange()
> > >>> strFilter=txtFilter.text
> > >>> strSQL="Select NoRekening From tblRekening where NoRekening Like '"
&
> > >>> strFilter & "*'"
> > >>>
> > >>> with cboHasilFilter
> > >>> .rowsource=strSQL
> > >>> .requery
> > >>> end with
> > >>>
> > >>> end sub
> > >>>
> > >>> setiap selesai ketik satu huruf, data di combo box akan langsung
> > >>> menyesuaikan.
> > >>> kode belum dites, tapi saya rasa bisa ditangkap idenya.
> > >>>
> > >>> salam hangat dan jabat erat,
> > >>> MBA
> > >>>
> > >>> ----- Original Message -----
> > >>> From: "panca_w201002"
<panca_w201002@yahoo.com<panca_w201002%40yahoo.com>
> > >>> <mailto:panca_w201002%40yahoo.com <panca_w201002%2540yahoo.com>>>
> > >>> To: <belajar-access@yahoogroups.com
<belajar-access%40yahoogroups.com>
> > >>>
<mailto:belajar-access%40yahoogroups.com<belajar-access%2540yahoogroups.com>
> > >>
> > >>> Sent: Monday, July 27, 2009 10:33
> > >>> Subject: [belajar-access] Re: find record menggunakan field
> > >>>
> > >>> > sebenarnya cara mas hendra bisa diaplikasikan, tp itu sesuai
kata..
> > >>> > klo sesuai huruf blm saya temukan, klo sekedar pke find biasa yg
> > >>> muncul
> > >>> > mang akan banyak..tp dalam hal ini saya mencoba mengaplikasikan di
> > >>> dalam
> > >>> > form.
> > >>> > misalny : kita punya kode brg yg bentuknya seperti ini
> > >>> >
> > >>> > 5.1.1.01
> > >>> > 5.1.1.02
> > >>> > 5.2.1.01.01 kertas hvs 60gram
> > >>> > 5.2.1.01.02 kertas hvs 70gram
> > >>> > dst...
> > >>> >
> > >>> > lha klo kita masukkan data di text box/combo box no rekening 5.2.1
> > dst
> > >>> > maka yg keluar adalah no rekening yg awalnya 5.2.1..
> > >>> > tp dlm hal ini tiap kali kita tulis satu huruf maka akan muncul
> > >>> list combo
> > >>> > box dibawahnya. misal kita tulis 5 maka akan muncul semua, klo
kita
> > >>> tulis
> > >>> > 5.2 maka yg muncul hanya yg berawalan 5.2 dan seterusnya
> > >>> >
> > >>> >
> > >>> >
> > >>> >
> > >>> >
> > >>> >
> > >>> >
> > >>> > --- In
belajar-access@yahoogroups.com<belajar-access%40yahoogroups.com>
> > >>>
<mailto:belajar-access%40yahoogroups.com<belajar-access%2540yahoogroups.com>
>,
> > "HENDRA"
> > >>> <hendragunadi@...> wrote:
> > >>> >>
> > >>> >> Sekadar menambahkan, agar pencarian lebih mudah gunakan cara
> > >>> seperti ini
> > >>> >> :
> > >>> >>
> > >>> >>
> > >>> >>
> > >>> >> Saya beri contoh ada combobox yg bernama KODE_BARANG
> > >>> >>
> > >>> >>
> > >>> >>
> > >>> >> ARR = Split(Me.KODE_BARANG.Text, " ")
> > >>> >>
> > >>> >> S = UBound(ARR)
> > >>> >>
> > >>> >> SEARCH = ""
> > >>> >>
> > >>> >> I = 0
> > >>> >>
> > >>> >>
> > >>> >>
> > >>> >> For I = 0 To S
> > >>> >>
> > >>> >> If I = S Then
> > >>> >>
> > >>> >> SEARCH = SEARCH & " (NAMA_BARANG LIKE '%" & ARR(I) & "%') "
> > >>> >>
> > >>> >> Else
> > >>> >>
> > >>> >> SEARCH = SEARCH & " (NAMA_BARANG LIKE '%" & ARR(I) & "%') AND "
> > >>> >>
> > >>> >> End If
> > >>> >>
> > >>> >> Next
> > >>> >>
> > >>> >> Me("KODE_BARANG").RowSource = "SELECT * FROM TBLBARANG WHERE " &
> > >>> SEARCH
> > >>> >>
> > >>> >> ARR = ""
> > >>> >>
> > >>> >>
> > >>> >>
> > >>> >> Cara search ini biasa nya saya gunakan agar metode pencarian
lebih
> > >>> >> gampang .
> > >>> >> contoh bila kita ada bbrp barang dengan nama demikian
> > >>> >>
> > >>> >> 1 AVIAN SUPER WHITE 200 CC
> > >>> >>
> > >>> >> 2 AVIAN SUPER WHITE 100 CC
> > >>> >>
> > >>> >> 3 AVIAN SUPER WHITE 50 CC
> > >>> >>
> > >>> >> 4 AVIAN SUPER WHITE 25 CC
> > >>> >>
> > >>> >> 5 AVIAN SUPER BLACK 200 CC
> > >>> >>
> > >>> >> 6 AVIAN SUPER BLACK 100 CC
> > >>> >>
> > >>> >> 7 AVIAN SUPER BLACK 50 CC
> > >>> >>
> > >>> >> 8 AVIAN SUPER BLACK 25 CC
> > >>> >>
> > >>> >> Kemudian kita mo cari barang avian super black 25 cc misalnya
> > >>> >>
> > >>> >> Maka kita cukup search dengan mengetikkan avi (spasi) 25 (spasi)
> > blac
> > >>> >> maka barang yg kita cari akan lebih mudah ketemunya. Apabila
> > >>> >>
> > >>> >> Pake search yg biasa kadang masih terlalu banyak barangnya, jadi
> > user
> > >>> >> bisa
> > >>> >> lebih spesifik mencari barangnya.
> > >>> >>
> > >>> >> Semoga membantu, mohon dikoreksi apabila ada salah
> > >>> >>
> > >>> >>
> > >>> >>
> > >>> >>
> > >>> >>
> > >>> >>
> > >>> >>
> > >>> >> _____
> > >>> >>
> > >>> >> From:
belajar-access@yahoogroups.com<belajar-access%40yahoogroups.com>
> > >>>
<mailto:belajar-access%40yahoogroups.com<belajar-access%2540yahoogroups.com>
> > >
> > >>> >>
[mailto:belajar-access@yahoogroups.com<belajar-access%40yahoogroups.com>
> > >>>
<mailto:belajar-access%40yahoogroups.com<belajar-access%2540yahoogroups.com>
> > >]
> > >>> >> On Behalf Of Murid Belajar Access
> > >>> >> Sent: Sunday, July 26, 2009 4:42 AM
> > >>> >> To:
belajar-access@yahoogroups.com<belajar-access%40yahoogroups.com>
> > >>>
<mailto:belajar-access%40yahoogroups.com<belajar-access%2540yahoogroups.com>
> > >
> > >>> >> Subject: Re: [belajar-access] find record menggunakan field
> > >>> >>
> > >>> >>
> > >>> >>
> > >>> >>
> > >>> >>
> > >>> >> kalau pakai form biasanya tinggal mengeset record source form /
row
> > >>> >> source
> > >>> >> suatu list.
> > >>> >> atau pakai filter
> > >>> >>
> > >>> >> misalnya, kalau dari form - buat teks box, misalnya:
> > >>> >>
> > >>> >> me.filter="[Nama]='anang'"
> > >>> >> me.filteron=true
> > >>> >> akan memfilter semua baris / record yang kolom Namanya anang
> > >>> /ANANG/Anang
> > >>> >>
> > >>> >> kalau ingin yang hanya mengandung kata tertentu seperti : an ,
terus
> > >>> >> keluar
> > >>> >> dian, ana, pian dst gunakan
> > >>> >> like
> > >>> >> me.filter="[Nama]=like '*anang*'"
> > >>> >> me.filteron=true
> > >>> >>
> > >>> >> atau di set recordsource sbb:
> > >>> >>
> > >>> >> me.recordsource = "select * from tblAnu where nama = '" &
> > >>> >> teksfilter.value &
> > >>> >>
> > >>> >> "'"
> > >>> >> me.requery
> > >>> >>
> > >>> >> kalau untuk yang mengandung kata - sama dgn filter gunakan like
> > >>> >> me.recordsource = "select * from tblAnu where nama like '*" &
> > >>> >> teksfilter.value & "*'"
> > >>> >> me.requery
> > >>> >>
> > >>> >> btw, saya tidak mengerti kebutuhan anda yang mana.
> > >>> >> mudah2-an bermanfaat.
> > >>> >>
> > >>> >> salam hangat dan jabat erat,
> > >>> >> MBA
> > >>> >>
> > >>> >> ----- Original Message -----
> > >>> >> From: "Harry siswanto" <harry.siswanto@
> > >>> >> <mailto:harry.siswanto%40gmail.com
<harry.siswanto%2540gmail.com>>
> > >>> >> gmail.com>
> > >>> >> To: <belajar-access@
<mailto:belajar-access%40yahoogroups.com<belajar-access%2540yahoogroups.com>
> > >
> > >>> >> yahoogroups.com>
> > >>> >> Sent: Saturday, July 25, 2009 19:55
> > >>> >> Subject: Re: [belajar-access] find record menggunakan field
> > >>> >>
> > >>> >> > Kalau saya,
> > >>> >> > Click di Field yg akan dicari datanya,
> > >>> >> > tekan Ctrl-F (atau Click Edit-Find)
> > >>> >> > lalu ketikan teks yg ingin dicari...
> > >>> >> >
> > >>> >> > karena fungsi FIND sebenarnya udah ada....
> > >>> >> >
> > >>> >> >
> > >>> >> > rgds
> > >>> >> >
> > >>> >> > hs
> > >>> >> >
> > >>> >> > 2009/7/25, panca_w201002 <panca_w201002@
> > >>> >> <mailto:panca_w201002%40yahoo.com <panca_w201002%2540yahoo.com>>
> > yahoo.com>:
> > >>> >> >> ada yg tau source code-nya nyari record dgn ngisi huruf di
field?
> > >>> >> >> pake vb access
> > >>> >> >> jadi seperti search engine gitu..
> > >>> >> >> aq bingung...
> > >>> >> > Harry Siswanto
> > >>> >> > Email: harry.siswanto@
<mailto:harry.siswanto%40gmail.com<harry.siswanto%2540gmail.com>
> > >
> > gmail.com
> > >>> >> > www.facebook <http://www.facebook>.com/harry.siswanto