Datareport dynamique

Commenter

Contenu du snippet

Permet de faire un état dynamique avec le contrôle datareport
Ce code n'ai pas de moi mais vient de chez Krosoft, et fonctionne, je l'ai essayé hier soir, donc si il y en a que ça peut dépanner
Numéro d'article: F18027

Source / Exemple : 


'Dans les propriétés du Data Report, changez le nom de l'état en DR.
'
'Placez deux contrôles Label et deux contrôles Textbox de rapport dans la
'section Détail du rapport.
'
'Placez un bouton de commande dans Form1 et nommez-le Command1.
'
'Placez le code suivant dans Form1 :

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cmd As New ADODB.Command

Private Sub Command1_Click()
Dim q As Integer
Dim intCtrl As Integer
Dim x As Integer
Dim z As Integer
x = 0
q = 0
z = 0

With DR
.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
End Sub

Private Sub Form_Load()

Command1.Caption = "Afficher l'état"

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Program Files\Microsoft Visual
Studio\VB98\Nwind.mdb;"

With cmd
.ActiveConnection = cn
.CommandType = adCmdText
.CommandText = "Select Prénom, Nom from Employés"
.Execute
End With

With rs
.ActiveConnection = cn
.CursorLocation = adUseClient
.Open cmd
End With

End Sub

Conclusion :


Modifiez la propriété Data Source dans la chaîne de connexion pour
indiquer le chemin d'accès à votre base de données Northwind.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_spawn)