Utilisation Datareport ??

Version imprimable

21/06/2006, 11h36
floran30

Utilisation Datareport ??

Bonjour je souhaite utiliser un datareport pour imprimer une feuille dans mon projet.

Mais j'ia un probleme dans mon code je lie le datareport a un adodc.

Code:

Datareport1.datasource = adodc5

Et j'ia une erreur Methode ou membre de données introuvable avec datasource surligné.
21/06/2006, 11h52
ThierryAIM

Code:

Datareport1.datasource = adodc5.Recordset
21/06/2006, 14h08
floran30

Citation:

Dim bd As DAO.Database
Dim tbl As DAO.Recordset
Dim str As String

str = "SELECT * " _
& "FROM Document " _
& "WHERE Document.Id_document = " & List4.text & " " _

Set bd = OpenDatabase(".\bd1.mdb")
Set tbl = bd.OpenRecordset(str)

Set DataReport1.DataSource = tbl

J'ai une erreur type incompatible sur "Datareport1.datasource = tbl"
pourquoi ?
21/06/2006, 15h23
ThierryAIM

C'est normal, un DataReport ne fonctionne pas avec des Recordsets DAO :?

tu vas devoir passer par ADO, si tu veux utiliser un DR, désolé
21/06/2006, 15h31
floran30

Bon c'est bon je me debrouille pas mal.
J'ai reussi a deoturner le probleme en utilisant un dataenvirronement.

Dans les propriété du dataenvironnement je met cette requete :

Citation:

SELECT *
FROM Document, Produit_facture
WHERE Produit_facture.Id_document = Document.Id_document
AND Produit_facture.Id_document = 13

Jusque la aucun probleme je lance mon programme il m'affiche bien les données correspondant a l'enregistrement de l'id_document 13.

Mais maintenant ce que je souhaiterais faire c'est mettre une variable a la place de 13 dans ma requete sql.

C'est a dire faire:

Citation:

SELECT *
FROM Document, Produit_facture
WHERE Produit_facture.Id_document = Document.Id_document
AND Produit_facture.Id_document = "list4.text"

Mais le je m'en douté il ne le prend pas.
Donc comment faire ?

Bon J'ai fais ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
str = "SELECT * " _
    & "FROM Document, Produit_facture, Client " _
    & "WHERE Produit_facture.Id_document = Document.Id_document " _
    & "AND Document.Id_client = client.Id_client " _
    & "AND Produit_facture.Id_document = " & List4.text & ""

Set bd = OpenDatabase(".\bd1.mdb")
Set tbl = bd.OpenRecordset(str)

DataReport1.Sections("Section2").Controls("lblFacture").Caption = tbl.Fields("document.Id_document")
DataReport1.Sections("Section2").Controls("lblDate").Caption = tbl.Fields("Date")
DataReport1.Sections("Section2").Controls("lblNom").Caption = tbl.Fields("Nom")
DataReport1.Sections("Section2").Controls("lblPrenom").Caption = tbl.Fields("Prenom")
DataReport1.Sections("Section2").Controls("lblAdresse").Caption = tbl.Fields("Adresse")
DataReport1.Sections("Section2").Controls("lblCP").Caption = tbl.Fields("Code_postal")

For intCtrl = 1 To DataReport1.Sections("Section2").Controls.Count
DataReport1.Sections("Section1").Controls.Item("Text5").DataMember = ""
DataReport1.Sections("Section1").Controls.Item("Text5").DataField = tbl.Fields("Document.Id_document")
Next

Pour les label c'est bon ca marche niquel aucun probleme.
En revanche je seche sur la parti des txtbox qui sont en faite la list des produits de la facture. C'est la partie que j'ia mis en gras, j'ai essayer comme ca mais j'ia des erreurs.
Je ne sais vraiment pas comment faire.

Je n'arrive pas a lier le data source et le datamember de mon datareport

Voici mon code

Code:

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
DataReport1.Show
Dim tbl As dao.Recordset
Dim bd As dao.Database
Dim str As String
Dim z As Integer
Dim i As Integer
 
str = "SELECT * " _
    & "FROM Document, Produit_facture, Client " _
    & "WHERE Produit_facture.Id_document = Document.Id_document " _
    & "AND Document.Id_client = client.Id_client " _
    & "AND Produit_facture.Id_document = " & List4.text & ""
 
Set bd = OpenDatabase(".\bd1.mdb")
Set tbl = bd.OpenRecordset(str)
 
z = 0
 
Set DataReport1.DataSource = bd
Set DataReport1.DataMember = ""
 
With DataReport1.Sections("Section1").Controls
    For i = 1 To .Count
        If TypeOf .Item(i) Is RptTextBox Then
            'DataReport1.Sections("section1").Controls.Item(i).DataMember = tbl
            DataReport1.Sections("section1").Controls.Item(i).DataField = tbl.Fields(z)
            z = z + 1
        End If
    Next i
End With

J'ai une erreur "utilisation incorrect de la propriété "

Set DataReport1.DataMember = ""

23/06/2006, 11h42
floran30

Tjrs personne ?
26/06/2006, 04h14
mbzhackers

Bon comme tu vois il est 4 heures passées du matin alors tu m'excuseras si je te dis que j'ai pas bien saisi la totalité du problème mais appraemment tu voudrais créér un DataReport qui dépend d'un paramètre. Va voir de ce côté ça pourrait t'aider :
http://www.developpez.net/forums/sho...d.php?t=156356
26/06/2006, 12h30
ThierryAIM

Citation:

Envoyé par ThierryAIM

C'est normal, un DataReport ne fonctionne pas avec des Recordsets DAO :?

Je dois pas écrire français :?