OVH Cloud OVH Cloud

vb+ crystal report

2 réponses
Avatar
Marcus
Hug,
voila j'ai une requete sql du genre:
tous les resultats pour employe.code=268
cette requete me fournit bien mes 4 lignes de résultats(verifié dans acces)
par dans mon report crystalreport il m'affiche tous les champs des tables
concernées.
quelqu'un a til deja eu un probleme de ce genre.
si oui comment on fait pour resoudre.

voici mon code
'connexion a la bdd
Set Ct = New ADODB.Connection
' 'Ouverture de la base de données
Ct.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &
"\base\enterprise.mdb"

sql = "SELECT ........... HAVING (((Employe.sCode)=268));"

'Set rs = Ct.Execute(sql, adOpenStatic)
rs.Open sql, Ct, adOpenDynamic, adLockBatchOptimistic

m_Report.Database.SetDataSource rs

CRViewer1.ReportSource = m_Report
CRViewer1.ViewReport

merci

2 réponses

Avatar
Zoury
Salut Marcus! :O)

je ne sais pas quelle version tu utilises, mais il me semble qu'il soit un
peu plus complexe que cela pour modifier la source de données en "runtime"
(dans les versions que je connais du moins..)

regarde ce lien et regarde si ça peut t'aider :
http://groups.google.com/groups?threadm=ufDsDaTzCHA.2308%40TK2MSFTNGP09

--
Cordialement
Yanick Lefebvre
MVP pour Visual Basic
"Marcus" a écrit dans le message de
news:
Hug,
voila j'ai une requete sql du genre:
tous les resultats pour employe.code&8
cette requete me fournit bien mes 4 lignes de résultats(verifié dans


acces)
par dans mon report crystalreport il m'affiche tous les champs des tables
concernées.
quelqu'un a til deja eu un probleme de ce genre.
si oui comment on fait pour resoudre.

voici mon code
'connexion a la bdd
Set Ct = New ADODB.Connection
' 'Ouverture de la base de données
Ct.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &
"baseenterprise.mdb"

sql = "SELECT ........... HAVING (((Employe.sCode)&8));"

'Set rs = Ct.Execute(sql, adOpenStatic)
rs.Open sql, Ct, adOpenDynamic, adLockBatchOptimistic

m_Report.Database.SetDataSource rs

CRViewer1.ReportSource = m_Report
CRViewer1.ViewReport

merci




Avatar
Marcus
Zoury t'es trop fort.
Vu qu'il s'agit de CR je ne te demanderais pas pourquoi ça fonctionne, lol.
Merci


"Zoury" a écrit dans le message de news:

Salut Marcus! :O)

je ne sais pas quelle version tu utilises, mais il me semble qu'il soit un
peu plus complexe que cela pour modifier la source de données en "runtime"
(dans les versions que je connais du moins..)

regarde ce lien et regarde si ça peut t'aider :
http://groups.google.com/groups?threadm=ufDsDaTzCHA.2308%40TK2MSFTNGP09

--
Cordialement
Yanick Lefebvre
MVP pour Visual Basic
"Marcus" a écrit dans le message de
news:
Hug,
voila j'ai une requete sql du genre:
tous les resultats pour employe.code&8
cette requete me fournit bien mes 4 lignes de résultats(verifié dans


acces)
par dans mon report crystalreport il m'affiche tous les champs des tables
concernées.
quelqu'un a til deja eu un probleme de ce genre.
si oui comment on fait pour resoudre.

voici mon code
'connexion a la bdd
Set Ct = New ADODB.Connection
' 'Ouverture de la base de données
Ct.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &
"baseenterprise.mdb"

sql = "SELECT ........... HAVING (((Employe.sCode)&8));"

'Set rs = Ct.Execute(sql, adOpenStatic)
rs.Open sql, Ct, adOpenDynamic, adLockBatchOptimistic

m_Report.Database.SetDataSource rs

CRViewer1.ReportSource = m_Report
CRViewer1.ViewReport

merci