bonjour;
je suis encore une débutante en crystal report
j'essaye d'afficher un report avec vb6.0 j'ai utiliser le code suivant mais ça marche pas voulez-vous bien m'aider et merci d'avance
//form1
Private Sub Command1_Click()
Dim oapp As CRAXDDRT.Application
Dim oreport As CRAXDDRT.Report
rs.Open " select * from talble1 ", cn, adOpenKeyset, adLockOptimistic
Set oapp = New CRAXDDRT.Application
Set oreport = oapp.OpenReport(App.Path & "\report1.rpt", 1)
oreport.Database.SetDataSource rs, 3, 1
CRViewer1.ReportSource = oreport
CRViewer1.ViewReport
End Sub
//module1

Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Sub main()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.ConnectionString = "Provider= microsoft.jet.oldedb.4.0; data source=" & (App.Path & "\BD1.mdb") & ";"
cn.open
Form1.Show
End Sub