J'essaie de cr=E9er un rapport qui va me lister une=20
liste de tous les joueurs de tous les =E9quipes contenue=20
dans ma BD. Donc je veux faire un ent=EAte de groupe avec le=20
nom de l'=E9quipe et laliste des joueurs dans la section=20
d=E9tail.=20
J'ai l'erreur suivante: Les sections de l'=E9tat ne=20
correspondes pas =E0 la source de donn=E9e.=20
Comment puis-je ou dois-je faire pour que =E7a fonctionne.
Peut-=EAtre est-ce ma chaine SQL qui n'est pas bonne pour=20
cette affichage...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Himselff
Je crois que tu peux orienter ta recherche vers les listview qui te donne exactement tout les options que tu demande , pour ce tu dois ajouter une composante dans ta barre d'outils et une reference que je me souviens jamais par coeur mais voici un petit exemple de ce que peux etre un list view qui ce creer depuis une base de donnee !
Dim list_item
Private Sub reset_list()
Dim column_header As ColumnHeader Dim mySQL As New ADODB.Connection Dim myRQ As New ADODB.Recordset
'Set connection whit mySQL driver to be able to connect to database and 'send some request !
mySQL.Open "DRIVER={MySQL ODBC 3.51 Driver};server2.168.0.1;DATABASE=xxx;USER=xxx;PASSWORD=xxx;OPTION=4;" myRQ.Open "select * from glue order by description", mySQL, 1, 3
'*************************************************************************** 'Clear the list view and setting the roll view
************************************* *Creer les entetes pour le tableau *************************************
Set column_header = LstGlue.ColumnHeaders.Add(, , "Description", TextWidth("Description00000000000000000")) Set column_header = LstGlue.ColumnHeaders.Add(, , "Qty", TextWidth("Quantity0000"))
************************************ *type de rapport **********************************
LstGlue.View = lvwReport
*********************************** *loop de la base de donnee **********************************
Do While myRQ.EOF = False Set list_item = LstGlue.ListItems.Add(, , myRQ.Fields("description").Value) list_item.SubItems(1) = myRQ.Fields("qty").Value myRQ.MoveNext Loop
'Close and reset connection with database !
mySQL.Close
Set mySQL = Nothing Set myRQ = Nothing
End Sub
"Yannick Tremblay" a écrit dans le message de news: 11f0701c3f555$cea28ad0$ Bonjour,
J'essaie de créer un rapport qui va me lister une liste de tous les joueurs de tous les équipes contenue dans ma BD. Donc je veux faire un entête de groupe avec le nom de l'équipe et laliste des joueurs dans la section détail.
J'ai l'erreur suivante: Les sections de l'état ne correspondes pas à la source de donnée.
Comment puis-je ou dois-je faire pour que ça fonctionne. Peut-être est-ce ma chaine SQL qui n'est pas bonne pour cette affichage...
Merci à l'avance
Je crois que tu peux orienter ta recherche vers les listview qui te donne
exactement tout les options que tu demande , pour ce tu dois ajouter une
composante dans ta barre d'outils et une reference que je me souviens jamais
par coeur mais voici un petit exemple de ce que peux etre un list view qui
ce creer depuis une base de donnee !
Dim list_item
Private Sub reset_list()
Dim column_header As ColumnHeader
Dim mySQL As New ADODB.Connection
Dim myRQ As New ADODB.Recordset
'Set connection whit mySQL driver to be able to connect to database and
'send some request !
mySQL.Open "DRIVER={MySQL ODBC 3.51
Driver};server2.168.0.1;DATABASE=xxx;USER=xxx;PASSWORD=xxx;OPTION=4;"
myRQ.Open "select * from glue order by description", mySQL, 1, 3
'***************************************************************************
'Clear the list view and setting the roll view
*************************************
*Creer les entetes pour le tableau
*************************************
Set column_header = LstGlue.ColumnHeaders.Add(, , "Description",
TextWidth("Description00000000000000000"))
Set column_header = LstGlue.ColumnHeaders.Add(, , "Qty",
TextWidth("Quantity0000"))
************************************
*type de rapport
**********************************
LstGlue.View = lvwReport
***********************************
*loop de la base de donnee
**********************************
Do While myRQ.EOF = False
Set list_item = LstGlue.ListItems.Add(, ,
myRQ.Fields("description").Value)
list_item.SubItems(1) = myRQ.Fields("qty").Value
myRQ.MoveNext
Loop
'Close and reset connection with database !
mySQL.Close
Set mySQL = Nothing
Set myRQ = Nothing
End Sub
"Yannick Tremblay" <wico2002@hotmail.com> a écrit dans le message de news:
11f0701c3f555$cea28ad0$a501280a@phx.gbl...
Bonjour,
J'essaie de créer un rapport qui va me lister une
liste de tous les joueurs de tous les équipes contenue
dans ma BD. Donc je veux faire un entête de groupe avec le
nom de l'équipe et laliste des joueurs dans la section
détail.
J'ai l'erreur suivante: Les sections de l'état ne
correspondes pas à la source de donnée.
Comment puis-je ou dois-je faire pour que ça fonctionne.
Peut-être est-ce ma chaine SQL qui n'est pas bonne pour
cette affichage...
Je crois que tu peux orienter ta recherche vers les listview qui te donne exactement tout les options que tu demande , pour ce tu dois ajouter une composante dans ta barre d'outils et une reference que je me souviens jamais par coeur mais voici un petit exemple de ce que peux etre un list view qui ce creer depuis une base de donnee !
Dim list_item
Private Sub reset_list()
Dim column_header As ColumnHeader Dim mySQL As New ADODB.Connection Dim myRQ As New ADODB.Recordset
'Set connection whit mySQL driver to be able to connect to database and 'send some request !
mySQL.Open "DRIVER={MySQL ODBC 3.51 Driver};server2.168.0.1;DATABASE=xxx;USER=xxx;PASSWORD=xxx;OPTION=4;" myRQ.Open "select * from glue order by description", mySQL, 1, 3
'*************************************************************************** 'Clear the list view and setting the roll view
************************************* *Creer les entetes pour le tableau *************************************
Set column_header = LstGlue.ColumnHeaders.Add(, , "Description", TextWidth("Description00000000000000000")) Set column_header = LstGlue.ColumnHeaders.Add(, , "Qty", TextWidth("Quantity0000"))
************************************ *type de rapport **********************************
LstGlue.View = lvwReport
*********************************** *loop de la base de donnee **********************************
Do While myRQ.EOF = False Set list_item = LstGlue.ListItems.Add(, , myRQ.Fields("description").Value) list_item.SubItems(1) = myRQ.Fields("qty").Value myRQ.MoveNext Loop
'Close and reset connection with database !
mySQL.Close
Set mySQL = Nothing Set myRQ = Nothing
End Sub
"Yannick Tremblay" a écrit dans le message de news: 11f0701c3f555$cea28ad0$ Bonjour,
J'essaie de créer un rapport qui va me lister une liste de tous les joueurs de tous les équipes contenue dans ma BD. Donc je veux faire un entête de groupe avec le nom de l'équipe et laliste des joueurs dans la section détail.
J'ai l'erreur suivante: Les sections de l'état ne correspondes pas à la source de donnée.
Comment puis-je ou dois-je faire pour que ça fonctionne. Peut-être est-ce ma chaine SQL qui n'est pas bonne pour cette affichage...
