Anda bisa membuat recordset terlebih dahulu,
lalu kirim ke crystal report
di bawha ini contoh kodenya
Dim oAPP As CRAXDRT.Application
Dim oReport As CRAXDRT.Report
Dim oDB As CRAXDRT.Database
Dim oTbls As CRAXDRT.DatabaseTables
Dim oTbl1 As CRAXDRT.DatabaseTable
'
Public strSQL As String
Public rptName As String
Public rs As New ADODB.Recordset
'Public sSProc
Public Par1 As String
'
Private Sub Form_Load()
Dim i As Integer
On Error GoTo localErr
Dim sError As String
Screen.MousePointer = vbHourglass
'Set RS = getRS
'MsgBox App.Path & "\" & rptName
Set oAPP = CreateObject("CrystalRuntime.Application")
Set oReport = oAPP.OpenReport(App.Path & "\" & rptName)
oReport.DiscardSavedData
Set oDB = oReport.Database
Set oTbls = oDB.Tables
Set oTbl1 = oTbls.Item(1)
oTbl1.SetDataSource rs, 3
oReport.ReadRecords
CRViewer.DisplayGroupTree = False
CRViewer.DisplayTabs = False
CRViewer.ReportSource = oReport
CRViewer.ViewReport
Screen.MousePointer = vbNormal
Exit Sub
localErr:
sError = Date & " " & Err.Number & " " & Err.Description & "ReportForm.getSQL"
writeError sError
MsgBox sError
End Sub
salam,
Hartoto
acholyte_rbo <[EMAIL PROTECTED]> wrote: Salam
kepada anggota milis ini
saya mau tanya, saya pakai cr 9 + vb 6 + mysql
bagaimana cara memangil viewer dengan parameter untuk pilih record
berdasarkan koding.
mis
select * from jual,detailjual where jual.no=detailjual.no and jual.no
='" & Text1.text & "'"
Mohon Bantuannya.
Thx's
----------------------------------------------------------------------------------------------------------------------------
* Kursus, Belajar Visual Basic,VB.NET, ASP - XBasicPro Jl. Denai No. 92 Medan
- Sumatera Utara - Indonesia Tel:7333400
http://xbasicpro.brinkster.net <--> http://xbasicpro.somee.com
Send instant messages to your online friends http://uk.messenger.yahoo.com
[Non-text portions of this message have been removed]
