Je fais appel à un état crystal report : je désire avoir que le code=1, mais j'ai tout les enregistrements comme si
lstrsql = "SELECT * from sarra where code='1'"
n'est pas passer à l'état
Merci de votre aide
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
Dim app As CRAXDRT.Application
Dim Report As CRAXDRT.Report
Screen.MousePointer = vbHourglass
lstrsql = "SELECT * from sarra where code='1'"
lstrconnect = "Provider = MSDASQL.1;Data Source=odbc1"
Set connect = New ADODB.Connection
connect.Open lstrconnect
Set recordset = New ADODB.recordset
recordset.Open lstrsql, connect
Set app = New CRAXDRT.Application
Set Report = app.OpenReport("C:\report1.rpt")
' Indique à l'objet de visualisation que les données viennent du rapport
For i = 1 To Report.Database.Tables.Count
Report.Database.Tables(i).SetLogOnInfo "odbc1"
Next i
Report.Database.SetDataSource recordset
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault |
Partager