Je fais appel à un état crystal report : je désire avoir que le code=1, mais j'ai tout les enregistrements comme si
Code : Sélectionner tout - Visualiser dans une fenêtre à part
lstrsql = "SELECT * from sarra where code='1'"
n'est pas passer à l'état
Merci de votre aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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