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

Mon, 27 Feb 2006 01:40:53 -0800

Terima kasih banyak. Ada masukan lain, biar banyak ilmu nih?

"Yunatan S.W" <[EMAIL PROTECTED]> wrote:
 
----- Original Message -----
Sent: Monday, February 27, 2006 9:04 AM
Subject: Re: [Programmer-VB] Menggunakan DTPicker data tak tampil

Kalau saya pakai yang dibawah ini berhasil dengan sukses.
Mungkin bisa di coba juga kang, dengan catatan komputer system
di setting format date nya adalah dengan dd/mm/yy (di control panel)
Dengan cara ini, berhasil tuh....
 
    Dim MySql As String
    Set RsRL = New ADODB.Recordset
    RsRL.Open "delete from temprugilaba", db, adOpenDynamic, adLockOptimistic
    Set RsRL = New ADODB.Recordset
    RsRL.Open "select * from temprugilaba", db, adOpenDynamic, adLockOptimistic
    Set RsJual = New ADODB.Recordset
    MySql = "SELECT JualLIN.NoJual as nojual, JualHDR.Tanggal as tanggal, "
    MySql = MySql + "JualLIN.Kode as kode, Barang.nama as nama, barang.satuan as satuan, "
    MySql = MySql + "JualLIN.Jumlah as jumlah, JualLIN.HargaItem as HargaItem, "
    MySql = MySql + "JualLIN.HargaRata as hargarata "
    MySql = MySql + "FROM (JualLIN INNER JOIN JualHDR ON JualLIN.NoJual = JualHDR.NoJual) "
    MySql = MySql + "INNER JOIN Barang ON JualLIN.Kode = Barang.Kode "
    MySql = MySql + "Where jualhdr.tanggal>=#" & Format(DTPicker1.Value, "mm/dd/yy") & "# "
    MySql = MySql + "and jualhdr.tanggal<=#" & Format(DTPicker2.Value, "mm/dd/yy") & "#"
    RsJual.Open MySql, db, adOpenDynamic, adLockOptimistic
    If Not RsJual.EOF Then
        RsJual.MoveFirst
        Do While Not RsJual.EOF
            RsRL.AddNew
            RsRL.Fields("nojual").Value = RsJual.Fields("nojual").Value
            RsRL.Fields("tanggal").Value = RsJual.Fields("tanggal").Value
            RsRL.Fields("kode").Value = RsJual.Fields("kode").Value
            RsRL.Fields("nama").Value = RsJual.Fields("nama").Value
            RsRL.Fields("jumlah").Value = RsJual.Fields("jumlah").Value
            RsRL.Fields("satuan").Value = RsJual.Fields("satuan").Value
            RsRL.Fields("hargaitem").Value = RsJual.Fields("hargaitem").Value
            RsRL.Fields("hargarata").Value = Round(RsJual.Fields("jumlah").Value * RsJual.Fields("hargarata").Value, 2)
            RsRL.Update
            RsJual.MoveNext
        Loop
    End If
----- Original Message -----
From: Nast Stsn
Sent: Saturday, February 25, 2006 4:35 PM
Subject: Re: [Programmer-VB] Menggunakan DTPicker data tak tampil

Makasih Pak Purwedi atas jawabannya. Sebetulnya saya juga dah coba seperti jawaban dari The Doctor" <[EMAIL PROTECTED] >  yang hampir sama dengan jawaban Bapak, tapi tetap gak bisa. Tapi saya akan coba ulang lagi. Tapi kalau gak bisa lagi. Ada solusi lain selain itu gak yan?
 

Purwedi Kurniawan <[EMAIL PROTECTED]> wrote:
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?
 
 


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

Yahoo! Mail
Bring photos to life! New PhotoMail makes sharing a breeze.
Internal Virus Database is out-of-date.
Checked by AVG Free Edition.
Version: 7.1.375 / Virus Database: 267.15.10/263 - Release Date: 16/02/06

Brings words and photos together (easily) with
PhotoMail - it's free and works with Yahoo! Mail.

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