Discussion :

[superthx]

Salut,

J'ai créer un RDLC Report avec une requête qui fonctionne bien.
Maintenant j'ai mis un textbox + un bouton pour faire la requête que sur ce que je demande mais je ne sais pas comment faire.
Sous "C" il faut juste rajouter TextBox1.Text, comme le code si dessous.

Code :

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

1
2
3
4
5
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.DataTable1TableAdapter.Fill(Me.DataSet1.DataTable1, TextBox1.Tesxt)
 
        Me.ReportViewer1.RefreshReport()
    End Sub

[Prisson]

Bonjour,
Je pense que ton code est bon mais pour qu'il fonctionne le datatable devrait etre parametré pour attendre le TextBox1.Text comme valeur du parametre de filtre. Tu dois donc avoir une requete de la forme :

Code :

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

1
2
 
Select champ1, champ2 FROM Tble1 where champ1=@TextBox1.Text

[superthx]

Merci de ta reponse.
En effet j'ai du creer un table adapter pour loger une requete.
Mais ce n'est plus la meme methode.

Pour info

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
Imports CrystalDecisions.CrystalReports.Engine
Imports MySql.Data.MySqlClient
Imports CrystalDecisions.Shared
Public Class Sacar_Lote
    Dim da As MySqlDataAdapter
    Dim ds As DataSet
    Dim p(7) As MySqlParameter
    Dim con As New MySqlConnection("host=127.0.0.1; username=root; password=root; database=root")
 
 
    Private Sub Sacar_Lote_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            Dim ds As New DataSet
            Dim query As String
            p(0) = New MySqlParameter("@LOTECLIENTE", MySqlDbType.String)
            p(0).Value = TextBox1.Text
            query = "SELECT        Lote_Cliente.cliente, Lote_Cliente.numero_lote_cliente, Lote_Cliente.numero_pedido_cliente, Lote_Cliente.fecha_preparacion, Lote_Cliente.fecha_envio, Lote_Cliente.pais_destino, Lote_Cliente.nota, 
                         Produccion.Nave, Produccion.Producto, Produccion.Producto_tipo, Produccion.Longitud, Produccion.Anchura, Produccion.Fecha, Produccion.Codigo_referencia, Produccion.Particularidad, Produccion.Lote_cliente, 
                         Produccion.Lote_medicion, Produccion.Formato, Produccion.Marcado, Produccion.Embaladora, Produccion.Numero_pale, Produccion.Kilos, Produccion.Piezas, Produccion.Seleccion, Produccion.Espesor
FROM            Lote_Cliente, Produccion
WHERE        Lote_Cliente.numero_lote_cliente = Produccion.Lote_cliente AND (Lote_Cliente.numero_lote_cliente = @LOTECLIENTE)"
 
 
            Dim dscmd As New MySqlDataAdapter(query, con)
            dscmd.SelectCommand.Parameters.Add(p(0))
            dscmd.Fill(ds, "LOTECLIENTE")
            con.Close()
            Dim cryds As New Sacar_Lote_Fail
            cryds.SetDataSource(ds.Tables(0))
            CrystalReportViewer1.ReportSource = cryds
            CrystalReportViewer1.Refresh()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class

Ensuite ma Table adapter LOTECLIENTEconteint la meme requete.

Merci Beaucoup.