Bonjour,
Je suis en train de développez une application avec vb6, j'ai réaliser des rapport avec Crystal report 2008 et ma base de donnée et une base de donnée oracle sécurisée,
voila mon code vb6

Code vb6 : 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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Dim rs As Recordset
Dim rap As CRAXDRT.Application
Dim Rapport As CRAXDRT.Report
 
Call ConnectDB
'ConnectDB est une methode connection à la base de donnée dont son code 'source est au dessou du msg
 
Set rs = New Recordset
rs.Open "select * from MFT_AR_DETAIL_FACTURE, MFT_AR_FACTURE where MFT_AR_FACTURE.FA_ID=MFT_AR_DETAIL_FACTURE.DF_FA_ID and FA_ID='" & frmfactures.txtid & "'", db, adOpenDynamic, adLockOptimistic
Set rap = New CRAXDRT.Application
If rs.RecordCount > 0 Then
  Screen.MousePointer = vbHourglass
  rs.MoveFirst
  Set Rapport = New CRAXDRT.Report
   Set Rapport = rap.OpenReport("C:\Documents and Settings\HbargaouiV8\Bureau\Module DEBITEUR\Facture.rpt")
  Do
    Rapport.RecordSelectionFormula = "{MFT_AR_FACTURE.FA_ID}= " & rs!FA_ID & " "
    Rapport.Database.SetDataSource rs
    Rapport.PrintOut False
    rs.MoveNext
  Loop Until rs.EOF
  rs.Close
  Set rs = Nothing
  Screen.MousePointer = vbDefault
End If
'-----------Méthode de connection------------
Sub ConnectDB()
 
Set db = New adodb.Connection
Dim ConnString As String
ConnString = "Provider=MSDAORA.1 ; Password=live; User ID=v8live ; Data Source = v8; Persist Security Info=True"
db.CursorLocation = adUseClient
db.ConnectionString = ConnString
db.Open
End Sub
mais le message d'erreur c'est "invalide TLV report"
est ce que vous pouvez m'aider
merci d'avance