Discussion :

[bargougui86]

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

[iclic]

Bonjour,

mais le message d'erreur c'est "invalide TLV report"
est ce que vous pouvez m'aider

Mais où, sur quelle ligne , à quel endroit, donne un peu plus de précision!!!

A+

[bargougui86]

Le code que j'ai mis c'est dans un boutton applé imprimer et la bouton fait partie de l'interface facture c'est à dire je veux imprimer l'enregistrement en cours
dé que je fais un click sur le bouton imprimer le msg d'erreur "Invalide TLV Report" apparait sur cette ligne du code

Code vb6 :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Rapport = rap.OpenReport("C:\Documents and Settings\HbargaouiV8\Bureau\Module DEBITEUR\Facture.rpt")

Ce qu'il parait lorsque je fait l'appel à ce rapport et puisque la base est sécurisée donc il ne trouve pas le mot de passe c'est pour celà qu'il affiche ce message
donc vous pouvez m'aider pour résoudre cet astuce

le message d'erreur est "Invalid TLV Record" et non pas "Invalid TLV Report",
Je m"excuse pour la faute

[ProgElecT]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
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

Rentres tu dans la condition If, car s'il n'y à pas de Move suivant l'ouverture du Recorset, Recordcount égal toujours zéro.
Mets un Stop tout de suite après ta ligne If, tu verras déjà si tu entre dans la boucle.

[bargougui86]

J'ai testé cette condition le Recordset retourne des valeurs, d'ailleurs j'ai 3 enregistrement dans ma base, donc rs.Recordcount me retourne 3 valeurs donc il entre dans le bloc if mais le problème lors du chargement du rapport Crystal report (Facture .Rpt) l'exécution du rapport nécessite le mot de passe de la base et puisqu'il ne trouve pas le mot de passe il ne charge pas le rapport et affiche se message,