by [email protected] (1 Submission)
Category: Databases/Data Access/DAO/ADO
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 1st October 2006
Date Added: Mon 8th February 2021
Rating: (1 Votes)
VB6 - Crystal Report 9.0 parameter querying
Dim rep As CRAXDRT.Report
Dim cry As New CRAXDRT.Application
Dim sql As String
Set rep = cry.OpenReport(App.Path + "\report\pod.rpt")
sql = "SELECT * FROM delivery WHERE deliverynum='" & rptstring & "'"
rep.SQLQueryString = sql
rep.DiscardSavedData
crv1.ReportSource = rep
crv1.RefreshEx True
crv1.ViewReport
crv1.Zoom 100
End Sub