Discussion :

[Walid(Tun)]

Bonjour a tous


j'ai un problème avec crystal report au changement de datasourse

j'ai essayé de changer le datasource pour quelle soit adéquate dans quel autre ordinateur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
 
Imports System.Data.OleDb
Imports System.Data.SqlClient
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.Data
 
 
Public Class ReceptionForm
 
   Public a As String 
    Dim source, s1, dbpath As String
 
       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim objRpt As New CrystalReport1
        a = "20100001"
 
        Dim dbpath As String
 
        dbpath = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\ProgectVB\Amine.mdb"
 
 
 
 
        Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath
        Dim myConnection As OleDbConnection = New OleDbConnection
        myConnection.ConnectionString = connString
 
 
        ' create a data adapter
 
 
        ' Dim da1 As OleDbDataAdapter = New OleDbDataAdapter("Select * from facture_achat where code like '" & a & "'", myConnection)
 
        Dim da As OleDbDataAdapter = New OleDbDataAdapter("Select * from ligne_Article where ref_facture like '" & a & "'", myConnection)
 
        Dim ds As DataSet = New DataSet
 
        ' fill dataset
        ' da1.Fill(ds, "facture_achat")
 
        da.Fill(ds, "ligne_Article")
 
        objRpt.SetDataSource(ds.Tables(0))
        CrystalReportViewer1.ReportSource = objRpt
        CrystalReportViewer1.Refresh()

info j'ai réussi avec une seul requête mais avec deux requête (OleDbDataAdapter)

j'ai obtenu database login erreur de localiser la datasource

mais je veut une datasource dynamique


Merci d'avance

[Walid(Tun)]

j'ai trouvé la solution

voici le code modifié pour qui veut inclure plusieus tables dans crystal report

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
Imports System.Data.OleDb
Imports System.Data.SqlClient
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.Data
 
 
 
Public Class ReceptionForm
 
 
    Public a As String = "20100008"
    Dim source, s1, dbpath As String
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim report As New CrystalReport1
        a = "20100008"
 
 
        Dim dbpath As String
 
        dbpath = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\KawarVB\Amine.mdb"
 
 
 
        Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath
        Dim myConnection As OleDbConnection = New OleDbConnection
        myConnection.ConnectionString = connString
 
        ' create a data adapter
 
 
        Dim da1 As OleDbDataAdapter = New OleDbDataAdapter("Select * from facture_achat where code like '" & a & "'", myConnection)
 
        Dim da As OleDbDataAdapter = New OleDbDataAdapter("Select * from ligne_Article where ref_facture like '" & a & "'", myConnection)
 
 
        Dim ds As DataSet = New DataSet
 
 
 
        'fill(DataSet)
        da1.Fill(ds, "facture_achat")
 
 
        da.Fill(ds, "ligne_Article")
 
 
 
        report.SetDataSource(ds)
        report.SetDataSource(ds.Tables("facture_achat"))
 
        report.SetDataSource(ds.Tables("ligne_Article"))
 
        CrystalReportViewer1.ReportSource = report
        CrystalReportViewer1.Refresh()
 
        myConnection.Close()
 
 
    End Sub

Bonne nuit