Как получить результат хранимой процедуры с параметром и использовать для Crystal Report в VB.Net - PullRequest
Новая
       13

Как получить результат хранимой процедуры с параметром и использовать для Crystal Report в VB.Net

0 голосов
/ 09 января 2012

Моя IDE - это MS Visual Studio 2008.

Я просто хочу спросить, как я могу получить результат процедуры сохранения из MS Access с использованием VB.Net и использовать результат в Crystal Report.

У меня есть проект приложения Windows, которому требуется эта функция.

Заранее спасибо за ответ.

1 Ответ

0 голосов
/ 09 января 2012

Основываясь на коде из предыдущего ответа о выполнении хранимой процедуры, вы можете создать набор данных и затем передать этот набор данных в Crystal Reports.

Чтобы создать отчет в Crystal Reports, необходимо принятьследующие шаги (подробности для каждого шага можно легко найти в справке Visual Studio или в Интернете):

1) Добавить соединение с базой данных доступа в обозревателе сервера.

2) Создатьновый DataSet для хранимой процедуры (запроса) в пределах Visual Studio.Предположим, что это называется DataSet1.

3) Создайте отчет Crystal Report и используйте его для нового набора данных.Предположим, что этот отчет называется CyrstalReport1.

4) Добавьте CrystalReportViewer в форму, на которой вы отображаете отчеты.Предположим, что средство просмотра называется CrystalReportViewer1.

5) Добавьте следующий код в форму для выполнения запроса, заполните набор данных и загрузите отчет Crystal с набором данных. 

Dim oReport As New CrystalReport1
Dim dsDataSet as New DataSet1

Using conn As New OleDbConnection()
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\myaccess.mdb"
    conn.Open()
    Using cmd As New OleDbCommand()
        cmd.CommandText = "NameOfTheQuery"
        cmd.CommandType = CommandType.StoredProcedure
        ' Note: You can also use CommandType.TableDirect
        cmd.Connection = conn

        Using oAdapter As New OleDbDataAdapter
            oAdapter.SelectCommand = cmd
            oAdapter.Fill(dsData)

            ' Set the data source for the report to the new dataset
            oReport.SetDataSource(dsDataSet)
            ' Set the report into the viewer
            CrystalReportViewer1.ReportSource = oReport
        End Using

        conn.Close()
    End Using
End Using
...