hallo mas toni,
mudah2an sy ngga salah nangkap apa yg mas toni maksud ya.
kalo salah jg, mas toni aja deh yg nangkep saya. hehehe just kidding
dibawah ini coba copy paste aja ya hehehe (kaya mas chipmunks aja)
lagkah-langkahnya :
1. buat report dari vb langsung
2. drag n drop unboundFields sebanyak jumlah field yg ada ditabel sesuaikan
type fieldnya
(biasanya ini adanya barisan paling bawah setelah SpecialFields)
3. buat datasource di form control reportnya spt dibawah ini
'--------------------------------------------------------------------
Dim Report As New CrystalReport1
Dim cn As Connection
Private Sub Form_Load()
Set cn = New Connection
Dim path As String
path = App.path & "\namaDataBasenyaApa?.mdb"
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & ";Persist
Security Info=False"
cn.CursorLocation = adUseClient
Screen.MousePointer = vbHourglass
CRViewer1.Zoom 100
Report.Database.AddOLEDBSource cn, "namaTabelnyaApa?"
With Report
'--ini contoh unboundFiled utk type string
.UnboundString1.SetUnboundFieldSource "{NamaTabel.NamaField1}"
'--ini contoh unboundField utk type tanggal
.UnboundDate1.SetUnboundFieldSource "{NamaTabel.NamaField2}"
.UnboundString2.SetUnboundFieldSource "{NamaTabel.NamaField3}"
End With
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
End Sub
Note : saya ga menjamin apakah ini bisa di crystsal report 6 atau tidak
krn saya blm pernah dan ga pake crystal 6 sorry ya mas ton
kurang lebihnya, "sorry"
salam
lis
____________________________________________________________________________________
No need to miss a message. Get email on-the-go
with Yahoo! Mail for Mobile. Get started.
http://mobile.yahoo.com/mail
