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
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
