|
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 -----
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?
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
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.
field waktu di database tidak disimpan dalam bentuk
string
tapi dalam bentuk double. ketika diquery ada
proses
konversi
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
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
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
YAHOO! GROUPS LINKS
|
