kalau anda menggunakan cr 8.5 coba dibuka report anda di CR 8.5, kemudian
Klik Menu database,dari menu database kemudian klik Menu Set Location.
Nanti akan terbuka windows set location, setelah itu klik tombol same as
report.
Dear All,
Mohon bantuannya nih..
aku lagi buat Program pake VB6 buat report
aku pake CR 8.5. Waktu nampilin report keluar error "Physical Database not
Found".
FYI : aku pake Access dengan koneksi
:
Sub Connection()
Set cn = New ADODB.Connection
With
cn
.CursorLocation =
adUseClient
.Provider =
"MSDASQL.1"
.ConnectionString
= "User=user; Password=pass; Data
Source=DB_Access"
.Open
End With
End Sub
untuk Perintah cetak aku pake
:
Option Explicit
Dim CrtWorkOrder As New
CrWorkOrder
Private Sub Form_Load()
Connection
Screen.MousePointer =
vbHourglass
CRViewer1.Zoom (100)
Select Case STATUS_PRINT
Case Is = "WorkOrder"
Me.Caption =
"Print Preview..."
crptformula = Empty
crptformula =
"{tbl_WorkOrder.NomorWO} like '" & frmWO.lblNomorWO.Caption &
"'"
Set CrtWorkOrder = New
CrWorkOrder
CrtWorkOrder.RecordSelectionFormula =
crptformula
CRViewer1.ReportSource
= CrtWorkOrder
End Select
CRViewer1.ViewReport
Screen.MousePointer =
vbDefault
End Sub
Aku udah pake beberapa cara yang udah di
bahas dalam forum ini, seperti instal ActiveXViewer di client trus copy *.*
from c:\windows\Crystal ke c:\windows\system32, tapi error tetap muncul
juga...
mohon untuk pencerahaannya...
Thank's Before
