Public Sub ViewLaporan(CrystalSql As String, sConn)
Dim CrystalDb As New ADODB.Connection
CrystalDb.open sConn
Dim rs As New ADODB.Recordset
Dim RsOutlet As New ADODB.Recordset
Dim CrystalApp As New CRAXDRT.Application
Dim CrystalRpt As CRAXDRT.Report
'//defined the query for the report
rs.open CrystalSql, CrystalDb, adOpenStatic, adLockReadOnly, adCmdText
Set CrystalRpt = Nothing
'Set CrystalRpt = CrystalApp.OpenReport(App.Path & "\Reports\" & RptName)
Dim sRpt As String
sRpt = rptPath & "\" & rptName
Set CrystalRpt = CrystalApp.OpenReport(sRpt)
'//clear the report data
CrystalRpt.DiscardSavedData
'//set report datasource
CrystalRpt.Database.SetDataSource rs
'//preview the report on the crystal viewer
CRViewer.ReportSource = CrystalRpt
CRViewer.DisplayGroupTree = False
CRViewer.EnableRefreshButton = True
CRViewer.ViewReport
rs.Close
End Sub
----------------------------------------------------------------------------------------------------------------------------
* Kursus, Belajar Visual Basic Medan,VB.NET, ASP, ASP.NET - XBasicPro Jl.
Denai No. 92 Medan - Sumatera Utara - Indonesia Flexi:061-77783749
http://xbasicpro.brinkster.net
----- Original Message ----
From: achmad zaindra <[EMAIL PROTECTED]>
To: [email protected]
Sent: Wednesday, January 9, 2008 11:21:01 AM
Subject: [indoprog-vb] Crystal report 9.0
rekan2 programmer ,
Apakah rekan2 programmer ada yang tahu bagaimana script agar crystal report
yang kita gunakan langsung me-refresh database yang digunakan,tanpa harus kita
tekan tombol refresh di crsytal report viewer nya (lambang petir) ??
Saya sudah menggunakan sintax :
"crreport.refresh" tetapi data yang ditampilkan tidak refresh otomatis,saya
masih harus menekan tombol refresh dari crsytal report nya,baru datanya mau
merefresh.
Mohon pencerahan dari rekan2 sekalian bila ada yang mengetahui.
Best Regds,
____________ _________ _________ _________ _________ _________ _
Be a better friend, newshound, and
know-it-all with Yahoo! Mobile. Try it now. http://mobile. yahoo.com/
;_ylt=Ahu06i62sR 8HDtDypao8Wcj9tA cJ
[Non-text portions of this message have been removed]
<!--
#ygrp-mkp{
border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
#ygrp-mkp hr{
border:1px solid #d8d8d8;}
#ygrp-mkp #hd{
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;}
#ygrp-mkp #ads{
margin-bottom:10px;}
#ygrp-mkp .ad{
padding:0 0;}
#ygrp-mkp .ad a{
color:#0000ff;text-decoration:none;}
-->
<!--
#ygrp-sponsor #ygrp-lc{
font-family:Arial;}
#ygrp-sponsor #ygrp-lc #hd{
margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
#ygrp-sponsor #ygrp-lc .ad{
margin-bottom:10px;padding:0 0;}
-->
<!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}
#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a{
text-decoration:none;}
#ygrp-vital a:hover{
text-decoration:underline;}
#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc{
background-color:#eee;margin-bottom:20px;padding:0 8px;}
#ygrp-sponsor .ad{
padding:8px 0;}
#ygrp-sponsor .ad #hd1{
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
#ygrp-sponsor .ad a{
text-decoration:none;}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;}
#ygrp-sponsor .ad p{
margin:0;}
o{font-size:0;}
.MsoNormal{
margin:0 0 0 0;}
#ygrp-text tt{
font-size:120%;}
blockquote{margin:0 0 0 4px;}
.replbq{margin:4;}
-->
Send instant messages to your online friends http://uk.messenger.yahoo.com
[Non-text portions of this message have been removed]
