Member 14588284 Ответов: 1

Отчет Vbnet cyrstal

привет,
Я читал статьи на многих форумах на эту тему но так и не смог найти то что искал

я хочу открыть отчетную хрусталя с запросом

например получить данные в datagridview

Что я уже пробовал:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim parametre As New ParameterValues
       Dim deger As New ParameterDiscreteValue
       Dim rapor2 As New CrystalReport2
       deger.Value = F_AracGiderTakibi.aranan
       parametre.Add(deger)
       rapor2.DataDefinition.ParameterFields("PLAKA").ApplyCurrentValues(parametre)

       CrystalReportViewer1.ReportSource = rapor2

   End Sub

ZurdoDev

Существует более 1 миллиона статей о том, как открыть отчет crystal. В чем именно заключается ваш вопрос?

Member 14588284

мне Саиф первый messeage я читал слишком много статей, но я не нашел мой ответ

1 Ответов

Рейтинг:
7

Member 14588284 

Dim ds As New DataSet
        Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\VeriTabanı\Veritabanı.mdb" & ";Persist Security Info=False;")
        cn.Open()
        With F_AracGiderTakibi
           
            sorgu = "select " & F_AracGiderTakibi.SUTUNLAR.Text & " from ARACTAKIP WHERE " & _
         " TARIH  BETWEEN  @d1 and @d2 AND PLAKA LIKE '" & .PLAKA.Text & "%' ORDER BY  PLAKA,TARIH,SAAT"
            Dim cmd As OleDbCommand = New OleDbCommand(sorgu, cn)
            cmd.Parameters.Add("@d1", SqlDbType.Date).Value = .ILKTAR.ValidateText
            cmd.Parameters.Add("@d2", SqlDbType.Date).Value = .SONTAR.ValidateText
            cmd.CommandType = 1
            cmd.Connection = cn
            cmd.ExecuteNonQuery()
            Dim adapter As OleDbDataAdapter = New OleDbDataAdapter

            adapter.SelectCommand = cmd
            adapter.Fill(ds)
        End With


        Dim report As New CrystalReport2

        report.SetDataSource(ds.Tables(0))

        CrystalReportViewer1.ReportSource = report
        CrystalReportViewer1.Refresh()



я нахожу свое собственное решение.

Member 14588284

cyrstalreport не работают другие ПК
я его не устанавливал. ошибка alwaysgives
Как я могу использовать эти коды в reportviewer?