Создание отчета RDLC с помощью vb.net 2010 год
Может ли кто-нибудь помочь создать отчет rdlc, который будет извлекать данные из базы данных access, используя дату в качестве параметра, выбранного пользователем в интерфейсе
Создание отчета RDLC с помощью vb.net 2010 из базы данных SQL
Private Sub Formlogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Try Dim con As New SqlConnection con.ConnectionString = "connection Path" con.Open() Dim cmd1 As New SqlClient.SqlCommand("select'columnname' from 'tablename'", con) Dim da As New SqlClient.SqlDataAdapter(cmd1) Dim ds As New DataSet() da.Fill(ds, "list") Dim col As New AutoCompleteStringCollection Dim i As Integer For i = 0 To ds.Tables(0).Rows.Count - 1 col.Add(ds.Tables(0).Rows(i)("columnname").ToString) Next TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource TextBox1.AutoCompleteCustomSource = col TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest con.Close() Catch ex As Exception MessageBox.Show(ex.ToString) End Try End Sub
Помимо того, что мы опоздали на 5 лет, где же отчет RDLC? А где же фильтр дат?
Ну, вот вам совет и отличный пример.
1. добавьте форму отчета (report1.rdlc) в свой проект и разработайте соответствующий дизайн
2. Создайте параметр на вкладке ReportData (он находится в левой части экрана рядом с панелью инструментов)
3. добавьте reportViewer из панели инструментов в форму, которая будет отображать отчет.
4. Закрепите его так, чтобы он покрывал всю площадь формы.
5. Добавьте источник данных в свой проект (т. е. подключитесь к базе данных из vb)
идти сюда http://www.sourcecodester.com/visual-basic-net/load-rdlc-report-using-report-viewer-programmatically.html[^] для кода.
спасибо............. Но когда я хочу сделать отчет RDLC с файлом MS Access DB, то я не могу видеть данные в окне отчета во время выполнения....
Мой код находится здесь ниже
Импортирует System.Data.Для oledb
Импортирует Microsoft.Reporting.WinForms
Общественного Класса Form1
Общественный кон как новый объект oledbconnection
Публичный ADP как новый OleDbDataAdapter
Общественные УМК как новый объект oledbcommand
Публичные DS как новый набор данных
Тусклый STR как струна
Частная суб методе form1_load(как byval отправителя как объект, как byval E Как системы.EventArgs) Обрабатывает Меня.Load
ПРОТИВ.Параметр ConnectionString = "Поставщика=Майкрософт.Туз.Oledb для.12.0; Источник данных=база данных testdb.МБР"
Кон.Открыть()
STR = "SELECT * FROM TB1"
CMD = New OleDbCommand(STR, CON)
АДП.Команды selectcommand = ЦМД
Dim CB как новый OleDbCommandBuilder(ADP)
АДП.Заполнить(ДС, "ТБ")
Me.ReportViewer1.RefreshReport()
Me.ReportViewer1.RefreshReport()
Конец Подводной Лодки
Private Sub BTNREPORT_Click(ByVal sender As System.Объект, бывал е как система.EventArgs) обрабатывает BTNREPORT.Щелчок
ReportViewer1.LocalReport.Значение reportpath, равное = ".....Путь.Имя...........\Отчет1.с отчетами"
ReportViewer1.LocalReport.Источники Данных.Четкий()
ReportViewer1.LocalReport.Источники Данных.Добавить(новый ReportDataSource("DS.TB", DS.Tables("TB")))
ReportViewer1.RefreshReport()
Конец Подводной Лодки
End Класса
N. B. имя базы данных....TESTDB.mdb(не защищен паролем) и имя таблицы = TB1