Discussion :

[bargougui86]

Bonjour,
Je suis en train de développez une application avec vb6, Je veux intégrer un rapport crystal report version(8.5), j'ai développez l'état avec crystal report et J'ai placé le contrôle CRViewer dans la forme et j'ai écrit ce code en vb6 dans ma forme

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
 
Dim app As New CRAXDRT.Application
Dim report As New CRAXDRT.report
Dim rs As Recordset
 
Private Sub Form_Load()
Call ConnectDB
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
Screen.MousePointer = vbHourglass
Set app = New CRAXDRT.Application
Set report = app.OpenReport("C:\Documents and Settings\HbargaouiV8\Bureau\Module DEBITEUR\Fac.rpt")
report.Database.SetDataSource rs
CRViewer1.ReportSource = report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
end sub

-'connectDB: c'est une méthode qui établit la connection à la base de donnée
-'frmfactures.txtid: c'est le champs qui contient le numéro de la facture à relier avec l'état pour l'imprimer
mais un msg d'erreur apparait et voilà le msg:
"Server has not yet been opened"
Svp vous pouvez m'aider
Merci d'avance

[zazaraignée]

Salut

Ça me désole de te voir sans réponses...
As-tu regardé dans nos excellents tutoriels ?
Et aussi dans la FAQ ?
Je sais que les États nous mettent généralement dans tous nos états mais il me semble que tu trouveras dans ce qui existe déjà sur le forum ou sur le site Développez.com.

Si tu ne trouves pas, tu dis.

[bargougui86]

Salut,
Croyez moi que jusqu'à maintenant je suis bloqué,
Je sais très bien manipuler le crystal report et le vb6 mais ce problème d'integrer un état Crystal Report à mon programme je lui pas trouvé une solution. Le problème c'est que ma base de donnée est une base oracle sécurisée si j'exécute l'etat Crystal tout seul il me demande le mot de passe de la base avant de créer l'aperçu. Si je l'intègre avec vb6 comme j'ai indiqué auparavant j'ai une chaine de connexion pour la base mais ça ne marche pas il se bloque lors du chargement de l'etat puisqu'il ne trouve pas le mot de passe.

[zazaraignée]

Tiens donc... Un mot de passe... une base de donnée sécurisée...

Si le serveur demande le mot de passe, c'est qu'il faut le mot de passe...

Tu l'as ? (pas que je veuilles savoir le mot de passe, mais bien si tu l'as, toi...)

Il me semble que le problème vient de là, précisément.

[bargougui86]

Oui je sé bien que le problème vient de ce bette mot de passe mais je n'ai aucune solution de l'intégrer, j'ai pas trouvé une solution pour l'integrer lors du chargement du rapport car le rapport est charger a travers une forme vb6, si vous avez une solution n'hésiter pas de me la communiquer.
Merci

[bargougui86]

Bonjour,
J'ai pensé à une autre solution,
J'ai installé le Crystal 8.5 au lieu de Crystal 2008, ce Crystal est intégré automatiquement avec VB6. J'ai intégré un objet Crystal à travers l'onglet Projet puis le sous menu Ajouter Crystal Report 8.5. J'ai paramétré la feuille Crystal report en la connectant à l'ODBC de ma base et bien sur ma base est sécurisée, par la suite j'ai choisi mes table, j'ai placé les champs sur la feuille Crystal Report puis j'ai passé à la forme créer automatiquement lors de la création du la feuille Crystal Report et j'ai écrit ce

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
Dim Report As New CrystalReport1
Dim rs As Recordset
 
Private Sub Form_Load()
Call ConnectDB
 
Set rs = New Recordset
rs.Open "select * from MFT_AR_FACTURE, MFT_AR_DETAIL_FACTURE where FA_ID=DF_FA_ID and FA_ID= '" & frmfactures.txtid.Text & "'", db, adOpenDynamic, adLockOptimistic
Report.Database.SetDataSource rs
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
 
End Sub
 
Private Sub Form_Resize()
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth
 
End Sub

ConnectDB: c'est la méthode de connexion à la base de donnée et voilà aussi son

Code vb6 :

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

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

J'ai appelé ce Form à travers un bouton imprimé et un bête message d'erreur et comme d'habitude s'affiche lors du chargement du form qui contien l'objet CRViewer, Le message:"Server has not yet been opened"
Alors svp, svp,svp, svp si quelqu'un à travaillé sur ce genre de soucie c'est à dire Crystal Report et vb6 n'hésiter pas de me communiquer toute information qui peut m'aider, sincèrement je suis bloqué, et je sais bien le problème est au niveau du mot de passe de la base mais j'ai pas un autre choix, ce mot de passe est inconnu lors du chargement de l'état