Dear harli,
Cara pembuatannya agak beda, karena pada CR 9.0 keatas tidak disediakan lagi
object Crystal Report Control, jadi kita harus menggunakan object Crystal
Report Viewer
Ikuti langkah2 tsb :
1. Tambahkan reference :
"Crystal Report 9 ActiveX Designer Run Time Library"
2. Ketikkan syntax berikut pada satu module :
====================
Public crApp As New CRAXDRT.Application
Public Rpt As Report
Public Sub SetReportSource(Report As Report)
Dim myTable As Variant
Dim csProp As CRAXDRT.ConnectionProperties
DoEvents
For Each myTable In Report.Database.Tables
Set csProp = myTable.ConnectionProperties
csProp.DeleteAll
If GlobDBLoginType = 1 Then 'Jika cara koneksi bukan trusted connection
( harus pake User dan password )
csProp.Add "Provider", "SQLOLEDB.1"
csProp.Add "Initial Catalog", [NamaDabatase]
csProp.Add "Data Source", [NamaServer]
csProp.Add "User ID", [NamaUser]
csProp.Add "Password", [Password]
csProp.Add "Integrated Security", False
ElseIf GlobDBLoginType = 2 Then 'Jika cara koneksi adalah trusted
connection ( tanpa user & password )
csProp.Add "Provider", "SQLOLEDB.1"
csProp.Add "Initial Catalog", [NamaDabatase]
csProp.Add "Data Source", [NamaServer]
csProp.Add "Integrated Security", True
End If
Next
End Sub
==========
3. Buat satu form ( beri nama "frmReport") yang isinya hanya crystal report
viewer, dan ketikkan syntax stb :
==========
Private Sub Form_Load()
CRVwr.Top = 0
CRVwr.Left = 0
SetReportSource Rpt
End Sub
==========
4. Pada form, untuk memanggil report, ketikkan syntax berikut :
==========
Set Rpt = crApp.OpenReport("D:\Coba.rpt")
Rpt.EnableParameterPrompting = False
Dim frmCobaRpt As New frmReport
With frmCobaRpt
.Show
.CRVwr.ReportSource = Rpt
.Caption = "Coba Report"
.CRVwr.ViewReport
End With
==========
Semoga membantu
Best Regards,
Dhani Aristyawan, S.Kom.
EDP Supervisor PT. Trias Sentosa, Tbk.
Desa Keboharan KM 26
Krian - Sidoarjo
_____
From: harli harli [mailto:[EMAIL PROTECTED]
Sent: Friday, September 15, 2006 5:01 PM
To: [EMAIL PROTECTED]
Subject: Re: cara refresh data pada CR
terima kasih atas sarannya.mang saya ada mslh waktu install cr 8.5 n
kebetulan saya juga ada cr 9.0 (kebenaran waktu beli cdnya udh satu
paket...) klo boleh tahu cr 9.0 cara pembuatan laporannya sama sperti cr
versi sebelumnya...trus cara menampilkan laporannya ke vb gimana?database
yang saya gunakan SQL SERVER 2000.
maaf klo pertanyaan saya keluar dari group...
_____
Apakah Anda Yahoo!?
Kunjungi halaman depan Yahoo!
<http://sg.rd.yahoo.com/mail/id/footer/def/*http:/id.mail.yahoo.com/>
Indonesia yang baru!
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Bagi terjangkit virus lokal, zip virus tersebut
dan kirim ke [EMAIL PROTECTED], kami
akan membuat removalnya untuk anda.
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/indoprog-vb/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
