coba deh ga usak di set gi langsung za conn.execute(SQL) 'Set Rs = Conn.Execute( SQL)
--- Pada Sen, 14/7/08, D.N.Adam <[EMAIL PROTECTED]> menulis: Dari: D.N.Adam <[EMAIL PROTECTED]> Topik: [Programmer-VB] Mohon bantuannaya, cetak repoortnya tidak mau jalan....! Kepada: [email protected] Tanggal: Senin, 14 Juli, 2008, 10:15 AM 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 ___________________________________________________________________________ Bergabunglah dengan orang-orang yang berwawasan, di di bidang Anda! Kunjungi Yahoo! Answers saat ini juga di http://id.answers.yahoo.com/
