tul ..... maksud saya untuk struktur tabel, kan bisa macam2 bentuk, seperti contoh sederhana, tabel penduduk terdiri dari field: PropinsiID KabupatenID KecamatanID KelurahanID KTPID Nama TTL Kelamin ... ...
masing2 ID di atas juga ada masternya seperti PropinsiID, Propinsi_Nama, ... untuk master propinsi, dst ..... kalau begitu, tinggal narik query dari tabel penduduk saja denga kriterika kecamatanid tetapi kalau strukturnya berupa: kodeWilayah KTPID Nama .... ... dengan kodeWilayah merupakan gabungan pengkodean propinsi, kabupaten, kecamatan, dst ..... dengan format tertentu seperti misalnya 01.05.07.0004yang berarti propinsi A(kode 01), kabupaten B(kode 05), kecamatan C (kode 07), dan kelurahan D (kode 0004), maka querynya harus diolah menurut fungsi string untuk mengambil potongan string yang sesuai untuk posisi kecamatan (mid dari 7 sebanyak 2 karakter). Kira-kira begitu gambarannya kenapa saya tanya struktur tabel. Aksan Kurdin On 1/14/08, Bobby <[EMAIL PROTECTED]> wrote: > > Wah...kayaknya ga nyampe struktur tabel deh Mas... > Strukturnya saya rasa sudah ga masalah.. > permasalahannya adalam memunculkan jumlah saja.... > Jumlah penduduk per Kecamatan dalam text box...yang selama ini saya > pakai DCount itu.... > Dan yang pasti memang hanya view saja.... bukan edit...... > > Mmmmmmm...... tapi .... > berarti yang diubah bukan control source text box tsb ya... tapi > record source si form datasheetnya....... > Gitu mungkin maksud Mas Aksan....? > > --- In [email protected] <belajar-access%40yahoogroups.com>, > "aksan kurdin" > <[EMAIL PROTECTED]> wrote: > > > > 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]<belajar-access%40yahoogroups.com> > > > *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 > > > > > -- Aksan Kurdin
