Hi Bodhi,
Utk mengatasi error itu bisa pake exception; vsql = "select * from t_beli " set rcs = dbs.openrecordset (vsql, dbopendynaset) rcs.movelast on error goto errhandler rowcount = rcs.recordcount nextstmt: if rowcount > 0 then if rcs!tanggal = vtanggal then msgbox "ketemu" end if end if exit sub errhandler: goto nextstmt Coba perhatikan utk statement yang saya kasih bold. Regards, Rudy Susanto _____ From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Bodhi Sent: Thursday, November 13, 2008 9:55 PM To: [email protected] Subject: Re: [BinusNet] tanya select untuk tanggal di vb itu emang bisa bro, pake movelast, tapi kalo recordnya bener2 ga ada, ntar muncul message error no current record ________________________________ From: Rudy Susanto <[EMAIL PROTECTED] <mailto:rsantolie%40gmail.com> com> To: [EMAIL PROTECTED] <mailto:binusnet%40yahoogroups.com> s.com Sent: Thursday, 13 November, 2008 8:28:36 Subject: RE: [BinusNet] tanya select untuk tanggal di vb Hi Bodhi, Mungkin krn blm di-fetch recordset tsb. Coba ketik command "rcs.movelast" sebelum memanggil recordcount, dan gunakan rcs.movefirst utk set ke record pertama. Dan mengenai format tanggal, itu tergantung RDBMS yang kamu pake, kl kamu pake string # itu bila MS.Access databasenya. Regards, Rudy Susanto _____ From: [EMAIL PROTECTED] s.com [mailto:[EMAIL PROTECTED] s.com] On Behalf Of Bodhi Sent: Thursday, November 13, 2008 12:26 AM To: [EMAIL PROTECTED] s.com Subject: [BinusNet] tanya select untuk tanggal di vb Temen2 yg suka bikin program pake VB, nanya dunk, kan g bikin program database, trs misalnya ada command vsql = "select * from t_beli where tanggal = #" & txttanggal & "' " set rcs = dbs.openrecordset (vsql, dbopendynaset) vJlm = rcs.recordcount kenapa ya hasil recordcount selalu 0, padahal ada datanya ? padahal kalau saya pake perintah vsql = "select * from t_beli " set rcs = dbs.openrecordset (vsql, dbopendynaset) if rcs.recordcount > 0 then if rcs!tanggal = vtanggal then msgbox "ketemu" end if end if hasilnya ketemu, yg berarti ada data ? gimana ya select yg bener untuk tanggal ? kalau string kan bisa dipakai kutip : '" & vstring & "' thx [Non-text portions of this message have been removed] [Non-text portions of this message have been removed] [Non-text portions of this message have been removed] [Non-text portions of this message have been removed]
