agaknya saudara yudi yagn betul tuh...coba liat di design tabelnya, tuh
harusnya dibuat smalldatetime typenya.
harusnya bisa [EMAIL PROTECTED]:kayaknya sih sql statemnt gak kenal tanda #,
bang....tanda # tuh dikenalnya di vb, kalo di sql, tetap tanda petik tunggal
sebagai penanda tanggal....sory kalo salah, just wanna share my knowledge :)
--- Pada Jum, 25/7/08, Achmad lukman <[EMAIL PROTECTED]> menulis:
Dari: Achmad lukman <[EMAIL PROTECTED]>
Topik: Re: Bls: [indoprog-vb] Help..Cetak Periode Tanggal Tdk Tampil...
Kepada: [email protected]
Tanggal: Jumat, 25 Juli, 2008, 7:33 AM
klo pake DTpicker coba pola ini pren,
Select * from tbbeli where (tglnota >= #" & Format(txtgl1. Value, "yyyy/mm/dd"
) & "#) and (tglnota <= #" & Format(txtgl2. Value, "yyyy/mm/dd" ) & "#)")
--- Pada Jum, 25/7/08, Indrawan Wu <[EMAIL PROTECTED] co.id> menulis:
Dari: Indrawan Wu <[EMAIL PROTECTED] co.id>
Topik: Re: Bls: [indoprog-vb] Help..Cetak Periode Tanggal Tdk Tampil...
Kepada: indoprog-vb@ yahoogroups. com
Tanggal: Jumat, 25 Juli, 2008, 12:59 PM
error donk pren...sql mana kenal operator #
--- Pada Jum, 18/7/08, sutrisno <[EMAIL PROTECTED] com> menulis:
Dari: sutrisno <[EMAIL PROTECTED] com>
Topik: Re: Bls: [indoprog-vb] Help..Cetak Periode Tanggal Tdk Tampil...
Kepada: indoprog-vb@ yahoogroups. com
Tanggal: Jumat, 18 Juli, 2008, 2:07 AM
*Coba tanda (') petik diganti dengan #.
Sehingga menjadi tgl_faktur >=#" & tgl_faktur.txt & "#"
*
2008/7/14 yudi susanto <[EMAIL PROTECTED] com>:
> mungkin database typenya bukan date/time mas, coba aja dicek
>
> REGARDS,
>
> YUDI SUSANTO
>
> ----- Pesan Asli ----
> Dari: D.N.Adam <[EMAIL PROTECTED] com <dehen_na%40yahoo. com>>
> Kepada: indoprog-vb@ yahoogroups. com <indoprog-vb% 40yahoogroups. com>
> Terkirim: Senin, 14 Juli, 2008 10:13:35
> Topik: [indoprog-vb] Help..Cetak Periode Tanggal Tdk Tampil...
>
> Teman-teman saya ada error membuat report dari data environmetn
> bawaan di VB 6.0 menggunakan Data Report yang ada pad VB 6.0. Script
> program sbb:
>
> Private Sub TbTampil_Click( )
> Set Rs = New ADODB.Recordset
>
> SQL = ""
> SQL = "SELECT Pembelian.NoFaktur, Pembelian. TglFaktur, " _
> & " Supplier.NmSup, DetPembelian. TglExpired, " _
> & " DetPembelian. KdObat,Obat. NmObat,Obat. Satuan, " _
> & " DetPembelian. HrgBeli,DetPembe lian.Banyak, " _
> & " (DetPembelian. HrgBeli * DetPembelian. Banyak) AS Total " _
> & " From Pembelian, DetPembelian, Obat, Supplier " _
> & " WHERE Pembelian.NoFaktur= DetPembelian. NoFaktur " _
> & " AND Pembelian.KdSup= Supplier. KdSup AND " _
> & " DetPembelian. KdObat=Obat. KdObat AND " _
> & " ((Pembelian. TglFaktur >= '" & TxtTglAwal.Value & "') " _
> & " And (Pembelian.TglFaktu r <= '" & TxtTglAkhir. Value &
> "' ))"
> Set Rs = Conn.Execute( SQL)
> If Rs.BOF Then
> MsgBox "Maaf pembelian dengan periode tanggal " & Format
> (TxtTglAwal. Value, "dd MMMM yyyy") & " S/D " & Format
> (TxtTglAkhir. Value, "dd MMMM yyyy") & " tidak tersedia !",
> vbInformation + vbOKOnly, "Information"
> Else
> DE.Commands( 13).CommandText = SQL
> FmLapBeliPeriode. Sections( "Section2" ).Controls
> ("Label24"). Caption = " Periode : " & Format(TxtTglAwal. Value, "dd
> MMMM yyyy") & " S/D " & Format(TxtTglAkhir. Value, "dd MMMM yyyy")
> FmLapBeliPeriode. Sections( "Section2" ).Controls
> ("Label27"). Caption = " Tanggal Cetak : " & Format(Date, "dd MMMM
> yyyy")
>
> FmLapBeliPeriode. Refresh
> FmLapBeliPeriode. WindowState = 2
> FmLapBeliPeriode. Show
> End If
> End Sub
>
> Permasalahan muncul waktu mau cetak per periode tanggal muncul error/
> pesan sbb:
> Error type data mismatch in creteria expression
>
> Terus nanti saat di DEBUG menunjukkan error di :
> ........
> Set Rs = Conn.Execute( SQL)
> ........
>
> Mohon bantuuan teman-teman di millis ini.Thank
>
> Salam,
> Adam
>
> ____________ _________ _________ _________ _________ _________ _
> Dapatkan alamat Email baru Anda!
> Dapatkan nama yang selalu Anda inginkan sebelum diambil orang lain!
> http://mail. promotions. yahoo.com/ newdomains/ id/
>
> [Non-text portions of this message have been removed]
>
>
>
--
Sutrisno
[Non-text portions of this message have been removed]
____________ _________ _________ _________ _________ _________ _
Nama baru untuk Anda!
Dapatkan nama yang selalu Anda inginkan di domain baru @ymail dan @rocketmail.
Cepat sebelum diambil orang lain!
http://mail. promotions. yahoo.com/ newdomains/ id/
[Non-text portions of this message have been removed]
____________ _________ _________ _________ _________ _________ _
Dapatkan nama yang Anda sukai!
Sekarang Anda dapat memiliki email di @ymail.com dan @rocketmail. com.
http://mail. promotions. yahoo.com/ newdomains/ id/
[Non-text portions of this message have been removed]
___________________________________________________________________________
Dapatkan alamat Email baru Anda!
Dapatkan nama yang selalu Anda inginkan sebelum diambil orang lain!
http://mail.promotions.yahoo.com/newdomains/id/
[Non-text portions of this message have been removed]
