Ho trovato nel forum il seguente codice
che valori devono avere i parametri; o meglio dove li prendo?codice:Imports System.Data Imports Microsoft.Reporting.WinForms Public Class Form1 Private Sub ReportViewerOledb(ByVal strRep, ByVal strProv) Dim MyReport As New Microsoft.Reporting.WinForms.ReportViewer ''Set RDL file. MyReport = ReportViewer1 MyReport.LocalReport.ReportPath = strRep '' Supply a DataTable corresponding to each report '' data source. Dim cmdReport As New OleDb.OleDbCommand Dim drReport As OleDb.OleDbDataReader Dim conReport = New OleDb.OleDbConnection Dim dsReport As New ClientiDataSet conReport.ConnectionString = strProv cmdReport.CommandType = CommandType.Text cmdReport.CommandText = "Select codice, Nome, codice & space(1) & Nome as [File Excel]from clienti where nome=" & "'" & TextBox1.Text & "'" cmdReport.Connection = conReport conReport.Open() drReport = cmdReport.ExecuteReader() dsReport.Tables(0).Load(drReport) drReport.Close() conReport.close() MyReport = ReportViewer1 Dim rds As New ReportDataSource rds.Name = "DataSource1" rds.Value = dsReport.Tables(0) MyReport.LocalReport.DataSources.Add(rds) If conReport.state = ConnectionState.Open Then conReport.close() End If Me.ReportViewer1.RefreshReport() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ReportViewerOledb(My.Application.Info.DirectoryPath & "\Report2.rdl", Me.ClientiTableAdapter.Connection.ConnectionString) End Sub End Class
Grazie
Massimiliano

Rispondi quotando
