Показать отчет Crystal с использованием объекта DataSet с использованием базы данных Access 2003 - PullRequest
Новая
       17

Показать отчет Crystal с использованием объекта DataSet с использованием базы данных Access 2003

1 голос
/ 12 сентября 2011

Private Sub frmReportExpenses_Load (ByVal отправитель как объект, ByVal e как System.EventArgs) Обрабатывает Me.Load 

    Dim objDatasetExpence As New dSetExpences   // dataset object named as dSetExpences
    Dim objRptExpence As New rptExpences       // Crystal report object
    Dim MyCommand As New OleDbCommand()
    Dim MyConnection As OleDbConnection
    Dim myDA As New OleDbDataAdapter()

    Try
        Dim connstring As String = "D:\HMSProjects\SMS\SMS\bin\Debug\"
        MyConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + connstring + "msautoconfig.mdb;")
        MyConnection.Open()
        MyCommand.Connection = MyConnection

        MyCommand.CommandText = "SELECT * FROM expences"
        MyCommand.CommandType = CommandType.Text
        myDA.SelectCommand = MyCommand

        myDA.Fill(objDatasetExpence, "expences")
        objRptExpence.SetDataSource(objDatasetExpence)
        CrystalReportViewer1.ReportSource = objRptExpence
    Catch ex As Exception

    End Try

    Me.WindowState = FormWindowState.Maximized
End Sub

Конечный класс

Что не так в приведенном выше коде не работает. Я хочу показать отчет Crystal с использованием базы данных Access 2003 прагматично. Пустой отчет добавляется в проект и пытается заполнить его объектом DataSet, любые предложения или исправления в приведенном выше коде. это приложение Windows Form

...