VB6 et Crystal report 10

Question

bonjour,

j'utilise
VB6 et crystal reports 10 etje
veuxlier un etat &#224; un controle data
comme en vb5.

En fait je veux afficher le r&#233;sultat d'une requetedans un &#233;tat et j'arrive pas &#224; le faire en
VB6.


 pourriez
vous m'aider svp, c'est pour mon projet de fin d'etudes.


Merci.

cs_dan80 · Answer

tu declare un recordset, tu met ta requete dedans

et tu fais CRviewer.datasource = 'ton recordset'



fais moi signe si tu r&#233;ussi

mbenabde · Answer

c'est ce que j'ai fait mais la propri&#233;t&#233; datasource n'existe pas
pour CRviewer, &#224; moins que le CRviewer dont tu parles n'est pas
de  type CrystalActiveXReportViewer.

cs_dan80 · Answer

essaye reportsource

mbenabde · Answer

voici mon code :

Dim rptReport As New CRAXDRT.Report


Dim rptRepApp As New CRAXDRT.Application




Set rptRepApp = New CRAXDRT.Application


Set rptReport = New CRAXDRT.Report








With CRVReport  




Set rptReport = rptRepApp.NewReport


rptReport.DiscardSavedData   


rptReport.Database.SetDataSource data1      


'data1 est le controle data cr&#233;&#233; en mode cr&#233;ation et qui contient ma
requete




.ReportSource = rptReport




.ViewReport




End With












j'ai essay&#233; de cr&#233;er un recordset manuellement comme ceci :



Dim rs As ADODB.Recordset

Dim conn As ADODB.Connection

conn.Open "Driver={ACCESS ODBC}"

Set rs = New ADODB.Recordset

rs.Open "SELECT * FROM  client" , conn, adOpenStatic, adLockReadOnly



Je n'arrive pas &#224; param&#233;trer la connexion &#224; la base de donn&#233;es Access, j'ai trouv&#233; un exemple mais avec la base MySQL.


conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _ 
        & "SERVER=127.0.0.1;" _ 
        & "DATABASE=test;" _ 
        & "UID=testuser;" _ 
        & "PWD=12345;" _ 
        & "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384    'SET ALL PARAMETERS

cs_dan80 · Answer

voila la chaine de connection ado

Sub connection1()
    Set cn1 = New ADODB.connection
    cn1.Provider = "Microsoft.Jet.Oledb.4.0"
    cn1.ConnectionString = App.Path + "\Prospects.bdd"
    cn1.Open
End Sub

fais moi signe si tu r&#233;ussi

mbenabde · Answer

il y a un message erreur:  Variable objet ou variable bloc with non definie

c'est provoqu&#233; par cette ligne : rs.Open sql, conn
il me semble qu'il n'a pas r&#233;ussi &#224; se connecter &#224; la base pourtant voici la ligne de code que j'ai modifi&#233;e :

conn.ConnectionString = App.Path + "\maBase.mdb"

mbenabde · Answer

j'ai r&#233;ussi &#224; faire la connexion, le probl&#232;me pr&#233;c&#233;dent c'est qu'il faut utilis&#233; Microsoft.Jet.Oledb.3.51 puisque j'utilise la base de donn&#233;es access 97.



voici le code qui suit pour afficher l'&#233;tat :

Dim m_Report As New CrystalReport1



Set RS = New ADODB.Recordset

RS.Open "SELECT * FROM client", Conn



m_Report.Database.SetDataSource RS



Screen.MousePointer = vbHourglass

CRVReport.ReportSource = m_Report

CRVReport.ViewReport





la ligne en rouge signale une erreur : indice en dehors de la plage 



AU SECOURS !!

cs_dan80 · Answer

essaye ca:

c un bout de mon code

en  fait je change les parametres de connectioin de la BD du report



Set reporti = CrxApp.OpenReport("\srv1-fr-sq\Secretariat\Documents_internes\Fiche_soci&#233;t&#233;.rpt")

            If i <> 0 Then

                reporti.DiscardSavedData

            End If

            Set
connection = reporti.Database.Tables(1).ConnectionProperties

            connection.DeleteAll

            connection.Add "Provider", "Microsoft.Jet.OLEDB.4.0"

            connection.Add "Data Source", cheminbase

           
reporti.RecordSelectionFormula = "{Societes.CodeSociete}=" &
CodeSociete.Text

            RPORT

            Report.ReportSource = reporti

            Report.ViewReport



fais moi signe si tu r&#233;ussi

cs_dan80 · Answer

essaye ca:

c un bout de mon code

en  fait je change les parametres de connectioin de la BD du report



Set reporti = CrxApp.OpenReport("\srv1-fr-sq\Secretariat\Documents_internes\Fiche_soci&#233;t&#233;.rpt")

            If i <> 0 Then

                reporti.DiscardSavedData

            End If

            Set
connection = reporti.Database.Tables(1).ConnectionProperties

            connection.DeleteAll

            connection.Add "Provider", "Microsoft.Jet.OLEDB.4.0"

            connection.Add "Data Source", cheminbase

           
reporti.RecordSelectionFormula = "{Societes.CodeSociete}=" &
CodeSociete.Text

            Report.ReportSource = reporti

            Report.ViewReport



fais moi signe si tu r&#233;ussi

mbenabde · Answer

Set connection =   reporti.Database.Tables(1).ConnectionProperties

erreur :   types incompatibles  



j'ai essay&#233; &#231;&#224; :



Connexion.ConnectionString   = reporti.Database.Tables(1).ConnectionProperties

erreur : cet argument n'est pas facultatif

mbenabde · Answer

&#231;&#224; y est &#231;&#224; marche!!



pas besoin de la connexion &#224; la base ni du recordset



MERCI dan80 pour ton aide j'allais rien faire.



pour tous ceux qui sont int&#233;ress&#233;s,  voici le code :



Dim monReport As New CRAXDRT.Report


Dim monApplication As New CRAXDRT.Application





Set monApplication = New CRAXDRT.Application


Set monReport = New CRAXDRT.Report


 


Set monReport = monApplication.OpenReport("monReport.rpt")


monReport.DiscardSavedData

MaRequete "{nomDeTable.nomDeChamps} '" & zoneDeTexte.Text & "'"


monReport.RecordSelectionFormula = MaRequete

mbenabde · Answer

MERCI dan80 pour ton aide j'allais rien faire sans toi

cs_dan80 · Answer

de rien tu ferra peut etre la meme chose pour moi un jour

cs_dan80 · Answer

mais attention, ne change pas l'emplacement de la bd de ton report car ca ne fonctionnera plus je pense donc pour le deploiement de ton appli c chaud

mbenabde · Answer

bonjour,

j'ai toujours besoin de votre aide pour la retouche finale.
&#231;a marche tr&#232;s bien jusqu'a la cr&#233;ation d'un fichier ex&#233;cutable pour lancer 
l'application en local. 

Quand j'utilise l'empaquetage et lancer le setup 
tout va bien sauf quand on fait appel &#224; une impression via crystal reports, un 
message d'erreur s'affiche : " erreur d'execution : file not found (-125585232 ) 
..."

pourtant le chemin de la base est le m&#234;me que celui du fichier .rpt.



merci

riadsa · Answer

salut 
comment faire pour ecriture en arabe sur les text box de vb6
et merci a l'avance 
 emaile    
 [mailto:riadsa@caramail.com riadsa@caramail.com]

VB6 et Crystal report 10

16 réponses

Discussions similaires