kalau begitu struktur tabel ?
terus data yang dihasilkan apakah hanya untuk view saja (read only) atau
harus bisa diedit ?
kalau hanya untuk view, mungkin bisa pakai agregat query seperti:
select camatid, count(no_ktp) as jumlah_penduduk
from qs_penduduk_camat
group by camatid
untuk bisa bikin query qs_penduduk_camat, tolong tingkatan dispenduknya
bagaimana ? tolong dilengkapi sampai ke tingkat paling dasar, jangan pakai
'dan seterusnya' ......
...
kabupaten
kecamatan
kelurahan
...
aksan kurdin
On 1/13/08, Bobby <[EMAIL PROTECTED]> wrote:
>
> Wah... maas maf... eh maaf mas.. telat ngejawabnya.....Terimakasih atas
> responnya yang cepat...
> sebenernya udah saya baca sejak saat dikirim.... tapi router di tempat
> saya lagi trouble
> jadi ga bisa buka web.... ini juga balesnya pake windows mail.....
>
> Mohon maaf kalau saya tidak bisa melampirkan contoh data.... karena
> datanya lumayan sensitif...
> dan saya ga kebayang utk membuat contoh data dgn objek lain.
> Tapi kurang lebih begini....
> Satu kabupaten terdiri dari beberapa kecamatan, setiap kecamatan terdiri
> dari desa/kelurahn, dan strusnya sampai keluarga...
> Saya membuat form datasheet, dgn recordsource: "select * from
> tbl_kecamatan", dan dalam datasheet tsbut, selain
> semua data tg kecamatan (nama kecamatan, lokasi, Nama camatnya dan
> identitas lain) saya tambahkan satu textbox
> (katakanlah txtJumlahPenduduk) dengan control source :
> =Dcount("Rec_ID";"tbl_Penduduk";"Kecamatan=' " & [Kecamatan] & " ') "
> Memang bisa memunculkan hasil dengan benar di setiap record tergantung
> nama kecamatannya, ttp membutuhkan waktu
> yang menurut saya "kurang cepat", tidak secepat menggunakan ADODB
> recordset. Saya sudah bisa membuat function (dalam VB)
> dengan ADODB.. tetapi bagaimana memasukkan hasil dari fungsi tsb ke dalam
> text box sehingga setiap record memunculkan
> data jumlah sesuai kecamatannnya. Functionnya sbb:
>
> Function HitungPenduduk() As Long
> Dim longPenduduk As Long
> Dim cn As New ADODB.Connection
> Dim rs As ADODB.Recordset
>
> Set cn = CurrentProject.Connection
> Set rs = New ADODB.Recordset
> SQL = "Select count(rec_ID)as Jumlah from tbl_Penduduk " & _
> "Where Kecamatan =' " & Me!Kecamatan & " ' "
> Debug.Print SQL
> rs.Open SQL, cn
> longPemilih = rs!Jumlah
> HitungPenduduk= longPenduduk
>
> Set rs = Nothing
> cn.Close
> End Function
>
> Gitu Mas Aksan.... agak2 bertele-tele mungkin gambarannya..... tapi mudah2
> an Mas Aksan atau yang
> lain bisa memahami dan bisa sharing .....
> Terima kasih
>
> Salam
>
> Bobby
>
>
> ----- Original Message -----
> *From:* aksan kurdin <[EMAIL PROTECTED]>
> *To:* [email protected]
> *Sent:* Saturday, January 12, 2008 10:46 PM
> *Subject:* Re: [belajar-access] (Urgent) Adodb recordset untuk setiap
> record dalam datasheet
>
>
>
> bisa kasih contoh data, contoh kriteria bagaimana meng-count, dan contoh
> hasil yang diinginkan.
>
> aksan kurdin
>
>
> On 1/12/08, Bobby <[EMAIL PROTECTED]> wrote:
> >
> > Salam.....semuanya
> > Tidak lupa mengucapkan selamat tahun baru hijriyah 1425 H
> >
> > Walaupun hari sabtu....yang biasanya sepi..mudah2 an ada yang bisa
> > bantu, soalnya urgent nih......
> >
> > Saya sedang mencari cara untuk memunculkan jumlah dari setiap record
> > berdasarkan kriteria tertentu ke dalam text box (sebut saja namanya
> > "txtJumlah")dalam form datasheet.
> > Biasanya saya menggunakan DCOUNT dam control source text box tsb,
> > dengan kriteria tertentu. Tetapi dengan cara tersebut, ternyata
> > membutuhkan waktu lama ketika menghitung data dalam jumlah besar.
> >
> > Dengan menggunakan ADODB ternyata lebih cepat (sudah saya coba),
> > tetapi bagaimana memunculkan hasil dari nilai yang didapat dari adodb
> > connection tsb ke dalam text box. Sehingga setiap record memiliki
> > nilai berbeda tergantung dari kondisinya.
> > Koneksi ADODB sya simpan di VB berupa function. Sudah saya coba
> > memasukkan function tsb ke dlm event "on current" ternyata ketika form
> > dibuka semua recorddi txtJumlah tsb nilainya sama, yaitu nilai dari
> > record pertama. Harus di klik setiap record baru berubah... itu jg
> > merubah record2 yg lain (emang kayak gitu kan ya kalau on Current).
> >
> > Saya coba masukkan function nya ke dalam control source, tidak bisa
> > karena saya menggunakan ADP.
> >
> > Kira kira teman2 milis ada yg punya solusi....? atau cara lain selain
> > cara saya......?? (Saya sudah googling ...susah juga cari keywordnya)
> > Terima kasih sebelumnya..
> >
> > Salam
> >
> > Bobby
> >
> >
>
>
> --
> Aksan Kurdin
>
>
>
--
Aksan Kurdin
