From: "Nana Supriatna Access" <nanasupriatna.access@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Tuesday, July 28, 2009 10:19 AM
Subject: Re: [belajar-access] Re: find record menggunakan field
Mas Hendra kenapa gak pakai Store Procedure ?
----- Original Message -----
From: HENDRA
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
[mailto:belajar-access@yahoogroups.com]
On Behalf Of Aksan Kurdin
Sent: Tuesday, July 28, 2009 12:05 AM
To: belajar-access@yahoogroups.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
> [mailto:belajar-access@yahoogroups.com] *On Behalf Of *Aksan Kurdin
> *Sent:* Monday, July 27, 2009 6:11 PM
> *To:* belajar-access@yahoogroups.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
>> [mailto:belajar-access@yahoogroups.com] *On Behalf Of *Aksan Kurdin
>> *Sent:* Monday, July 27, 2009 4:11 PM
>> *To:* belajar-access@yahoogroups.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
>>> [mailto:belajar-access@yahoogroups.com] *On Behalf Of *Murid Belajar
>>> Access
>>> *Sent:* Monday, July 27, 2009 3:10 PM
>>> *To:* belajar-access@yahoogroups.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
>>> <mailto:panca_w201002%40yahoo.com>>
>>> To: <belajar-access@yahoogroups.com
>>> <mailto:belajar-access%40yahoogroups.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
>>> <mailto:belajar-access%40yahoogroups.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
>>> <mailto:belajar-access%40yahoogroups.com>
>>> >> [mailto:belajar-access@yahoogroups.com
>>> <mailto:belajar-access%40yahoogroups.com>]
>>> >> On Behalf Of Murid Belajar Access
>>> >> Sent: Sunday, July 26, 2009 4:42 AM
>>> >> To: belajar-access@yahoogroups.com
>>> <mailto:belajar-access%40yahoogroups.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>
>>> >> gmail.com>
>>> >> To: <belajar-access@ <mailto:belajar-access%40yahoogroups.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> 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>
gmail.com
>>> >> > www.facebook <http://www.facebook>.com/harry.siswanto
>>> >> >
>>> >> >
>>> >> > ------------------------------------
>>> >> >
>>> >> > SPAM IS PROHIBITEDYahoo! Groups Links
>>> >> >
>>> >> >
>>> >> >
>>> >>
>>> >
>>> >
>>> >
>>> >
>>> > ------------------------------------
>>> >
>>> > SPAM IS PROHIBITEDYahoo! Groups Links
>>> >
>>> >
>>> >
>>>
>
------------------------------------
SPAM IS PROHIBITEDYahoo! Groups Links
No comments:
Post a Comment