kalu gak salah inget, dari mailing list dan forum2.. cr yang paling bagus untuk designer di vb adalah cr8.5 (ini jg yang saya pake), cr 9 sih belum pernah.. mgkn jg gak ada... tapi kalu emang ada, ya coba liat di add components -> tab designer, disitu biasanya karena gak di centang untuk crystal report designernya..
lalu untuk yang query... mgkn kira2 mesti gini : select * from exim_beacukai_trc_bc40 left join exim_beacukai_trc_bc40_dtl on exim_beacukai_trc_bc40.no=exim_beacukai_trc_bc40_dtl.no yang laennya kurang jelas.. ======================= http://www.fire888.com -----Original Message----- From: [email protected] [mailto:[EMAIL PROTECTED] Behalf Of acholyte_rbo Sent: Monday, September 10, 2007 8:09 AM To: [email protected] Subject: [Programmer-VB] Please Asap, help me Salam kenal semua, saya sudah install cr 9 di kompie, tapi kok di project, component dan di tab designnya tidak ada opsi untuk mengaktifkan cr9 direct langsung dari vb, mengapa yah, apakah hasil install tidak fully succeess ??? padahal 100 % succeed dan dll apa yang diperlukan utk mengaktifkan opsi tsb. ??? berikut listing koding crviewer : Dim crystal As CRAXDRT.Application 'LOADS REPORT FROM FILE Dim report As CRAXDRT.report 'HOLDS REPORT If sConn.State = 1 Then Tutup End If Buka If sRec.State = adStateOpen Then sRec.Close sComm.CommandText = "Select * from exim_beacukai_trc_bc40 where no= '" & FlagDataSearch1 & "'" sComm.ActiveConnection = sConn sRec.Open sComm, , adOpenDynamic, adLockOptimistic 'rs.Open "SELECT * FROM report", conn, adOpenStatic, adLockReadOnly '================== CRViewer.DisplayBorder = False 'MAKES REPORT FILL ENTIRE FORM CRViewer.DisplayTabs = False 'THIS REPORT DOES NOT DRILL DOWN, NOT NEEDED CRViewer.EnableDrillDown = False 'REPORT DOES NOT SUPPORT DRILL-DOWN CRViewer.EnableRefreshButton = False 'ADO RECORDSET WILL NOT CHANGE, NOT NEEDED Set crystal = New CRAXDRT.Application 'MANAGES REPORTS Set report = crystal.OpenReport(App.Path & "report1.rpt") 'OPEN OUR REPORT report.DiscardSavedData 'CLEARS REPORT SO WE WORK FROM RECORDSET report.Database.SetDataSource rs 'LINK REPORT TO RECORDSET CRViewer.ReportSource = report 'LINK VIEWER TO REPORT CRViewer.ViewReport 'SHOW REPORT Do While CRViewer.IsBusy 'ZOOM METHOD DOES NOT WORK WHILE DoEvents 'REPORT IS LOADING, SO WE MUST PAUSE Loop 'WHILE REPORT LOADS. CRViewer.Zoom 94 '=============== rs.Close 'ALL BELOW HERE IS CLEANUP Set rs = Nothing conn.Close Set conn = Nothing Set crystal = Nothing Set report = Nothing End Sub pada waktu saya coba running program teryata ada error di bagian : Set crystal = New CRAXDRT.Application 'MANAGES REPORTS dan messagenya : Run-Time error '-2147023898(800703e6)' Automation error Invalid access to memory location mengapa kok ada error tsb yach ?? padahal di kompie lain tdk ??? dan saya punya query spt berikut : select * from exim_beacukai_trc_bc40,exim_beacukai_trc_bc40_dtl where exim_beacukai_trc_bc40.no=exim_beacukai_trc_bc40_dtl.no tapi mengapa disection detail ditampilkan semua record walau berbeda no tabel headernya, mengapa bisa terjadi padahal dari query tersebut kan sudah betul tapi mengapa relationshipnya tidak jalan ??? dan saya sudah buat parameter utk report dan sudah jalan tapi kok report tetap tidak mau ditampilkan berdasarkan parameter tesebut ???? soryy kalu kepanjangan postingnya, tapi ini urgent bgt, please tolong bantu kasih solusi / saran ASAP, thx's thx thx thx thx thxthx thxthx thxthx thx thx thx thx thx Wahana Programmer Groups Links Yahoo! Groups Links No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.485 / Virus Database: 269.13.10/995 - Release Date: 9/8/2007 1:24 PM No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.485 / Virus Database: 269.13.10/995 - Release Date: 9/8/2007 1:24 PM
