A voir également:
- Report vb6
- Vb6 - Télécharger - Divers Utilitaires
- Noel report bluesky - Télécharger - Communication
- Crystal report viewer - Télécharger - Gestion de données
- Crystal report download - Télécharger - Présentation
- Télécharger crystal report 8.5 gratuit - Télécharger - Divers Utilitaires
3 réponses
Il faut essayer cela:
//Avant d'écrire ce code, il faudra d'abord creer ton datareport avec les labels et les textboxs nécessaires
//Tu peux placer le code dans un bouton par exemple
Set rs = New ADODB.Recordset
rs.Open "select * From matable ", cnx, adOpenKeyset, adLockBatchOptimistic
Dim q As Integer
Dim intCtrl As Integer
Dim x As Integer
Dim z As Integer
x = 0
q = 0
z = 0
With nom_du_datareport
.Hide
Set .DataSource = rs
.DataMember = ""
With .Sections("Section1").Controls
For intCtrl = 1 To .Count
If TypeOf .Item(intCtrl) Is RptLabel Then
.Item(intCtrl).Caption = rs.Fields(q).Name & " :"
q = q + 1
End If
If TypeOf .Item(intCtrl) Is RptTextBox Then
.Item(intCtrl).DataMember = ""
.Item(intCtrl).DataField = rs(z).Name
z = z + 1
End If
Next intCtrl
End With
.Refresh
.Show
End With
rs.Close
Set rs = Nothing
//Avant d'écrire ce code, il faudra d'abord creer ton datareport avec les labels et les textboxs nécessaires
//Tu peux placer le code dans un bouton par exemple
Set rs = New ADODB.Recordset
rs.Open "select * From matable ", cnx, adOpenKeyset, adLockBatchOptimistic
Dim q As Integer
Dim intCtrl As Integer
Dim x As Integer
Dim z As Integer
x = 0
q = 0
z = 0
With nom_du_datareport
.Hide
Set .DataSource = rs
.DataMember = ""
With .Sections("Section1").Controls
For intCtrl = 1 To .Count
If TypeOf .Item(intCtrl) Is RptLabel Then
.Item(intCtrl).Caption = rs.Fields(q).Name & " :"
q = q + 1
End If
If TypeOf .Item(intCtrl) Is RptTextBox Then
.Item(intCtrl).DataMember = ""
.Item(intCtrl).DataField = rs(z).Name
z = z + 1
End If
Next intCtrl
End With
.Refresh
.Show
End With
rs.Close
Set rs = Nothing
je suis en train de construire une application de gestion commerciale,il s'agit de passer une commande à un client spécifié conntenant des articles déja enregistrés dans la base de données.je ne suis pas arrivé à selectionner les articles de la commande désigné pour le client afin de les imprimer en utilisant le data environnement et le data report,j'ai besoin de savoir comment filtrer les articles contenus dans la facture de ce client sachant que la table contient déja l'identifiant du client et le numéro de la commande,peut étre la meilleure solution consiste à utiliser une requéte SQL, mais le probléme reste le méme: comment faire?
Dans l'attente d'une réponse favorable,veuillez accepter Monsieur, mes remerciements....et merci encore une autre fois.
Dans l'attente d'une réponse favorable,veuillez accepter Monsieur, mes remerciements....et merci encore une autre fois.
