Crystal Report database login Problem

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:

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

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