Re: [Programmer-VB] Menggunakan DTPicker data tak tampil

Wed, 22 Feb 2006 23:16:34 -0800

u. lebih amannya, ga peduli formatnya seperti apa, data di dtpickernya diformat dulu dg menggunakan nama bulan, bisa "mmm" atau "mmmm", terserah mau diletakkan didepan ("mmm dd yyyy") atau di tengah ("dd mmm yyyy"), database otomatis akan mengenal nilai itu sebagai bulan dan bukan tanggal.
 
mis:
   Set rsDtSurat = New ADODB.Recordset
   rsDtSurat.Open "select * from tblsurat where tglsurat >=#" &
format(DTPicker2.Value, "mmm dd yyyy") & "# and tglsurat <=#" &
format(DTPicker3.Value,"mmm dd yyyy") & "#", DtSurat,
adOpenDynamic, adLockOptimistic
 
best regards
[wwn]

 
On 2/23/06, Nast Stsn <[EMAIL PROTECTED]> wrote:
Terima kasih atas bantuannya
 
Tapi maaf nih saya masih belum bisa menampilkan datanya.
Jadi gimana nih listingnya kalau saya buka data base mengacu pada tanggal yang ada pada DTPicker (DateTimePicker)
 
Mohon dibantu
 
REPLY FROM :"The Doctor" <[EMAIL PROTECTED] >
 
Setau saya (kalo pengetahuan saya tidak salah), di database data tetap
tersimpan dalam format MM/DD/YYYY. Sehingga ketika kita query pake format
tsb, data bisa ditampilkan.
Supaya ditampilan bisa tampil dalam format DD/MM/YYYY, manipulasi di sisi
tampilannya saja.
Contohnya, DTPicker tetap dikasih format DD/MM/YYYY ditampilannya, tapi pas
ketika dikirim ke database, kita format menjadi MM/DD/YYYY.
   Set rsDtSurat = New ADODB.Recordset
   rsDtSurat.Open "select * from tblsurat where tglsurat >=#" &
format(DTPicker2.Value, "mm/dd/yyyy") & "# and tglsurat <=#" &
format(DTPicker3.Value,"mm/dd/yyyy") & "#", DtSurat,
adOpenDynamic, adLockOptimistic
Semoga membantu.

REPLY FROM: johan max" <[EMAIL PROTECTED]>  

field waktu di database tidak disimpan dalam bentuk
string tapi dalam bentuk double. ketika diquery ada
proses konversi
 
 
Nast Stsn <[EMAIL PROTECTED]> wrote:
 
Minta tolong penjelasannya nih!
 
Private Sub Form_Activate()
 
DTPicker2.Value = Format(Now, "dd/MM/yy")
DTPicker3.Value = Format(Now, "dd/MM/yy")
 
Set rsDtSurat = New ADODB.Recordset
rsDtSurat.Open "select * from tblsurat where tglsurat >=#" & DTPicker2.Value & "# and tglsurat <=#" & DTPicker3.Value & "#", DtSurat, adOpenDynamic, adLockOptimistic
 
TampilAwal
 
End Sub
 
Dengan listing seperti di atas data tidak ada yang tampil, bahkan saya juga atur di properties DTPickernya Format = 3-dtpCustom dan CustomFormat =dd/MM/yy
Tetap tidak tampil.
Untuk diketahui saya pakai database Access dengan seting Field tglsurat = dd/MM/yy.
 
Tapi kalau saya gunakan listing seperti di bawah ini dan setingan properties DTPickernya default, data bisa tampil
 
Private Sub Form_Activate()
 
DTPicker2.Value = Format(Now, "M/d/yy")
DTPicker3.Value = Format(Now, "M/d/yy")
 
Set rsDtSurat = New ADODB.Recordset
rsDtSurat.Open "select * from tblsurat where tglsurat >=#" & DTPicker2.Value & "# and tglsurat <=#" & DTPicker3.Value & "#", DtSurat, adOpenDynamic, adLockOptimistic
 
TampilAwal
 
End Sub
 
Bagaimana caranya agar data tampil dengan setingan tanggal dd/MM/yy dan dengan menggunakan obyek DTPicker?
 
 


Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer



SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



Kirim email ke