通過晶體報告參數，連接訪問代碼，vb.net

我想搜索兩個日期之間購物的客戶。我使用的代碼似乎很好，它不會返回任何錯誤，但CR會返回所有內容 - 它不使用日期搜索功能。我使用的CR是用一個簡單的程序打開CR並且工作正常。數據庫是MS訪問和代碼是在Visual Studio 2005通過晶體報告參數，連接訪問代碼，vb.net

我的第二個問題是，儘管我使用連接信息部分它仍然要求我的代碼聚苯乙烯。對不起，我的格式不好，我是新的在stackoverflow，我覺得很難做一個帖子謝謝！ -Agisilaos

Imports CrystalDecisions.CrystalReports.Engine 
Imports CrystalDecisions.Shared 
Public Class Form1 
    Dim crConnectionInfo As New ConnectionInfo() 


Private Sub Button1_Click(ByVal sender As System.Object, _ 
    ByVal e As System.EventArgs) Handles Button1.Click 

    Dim cryRpt As New ReportDocument 


cryRpt = New CrystalDecisions.CrystalReports.Engine.ReportDocument 
     cryRpt.Load("C:\Users\agis\Documents\Visual Studio 2005\Projects\new_contracts  _of_month\new_contracts _of_month\CrystalReport2.rpt",  CrystalDecisions.Shared.OpenReportMethod.OpenReportByTempCopy) 


With crConnectionInfo 
     .ServerName = "C:\Users\agis\Desktop\Insurance database\Insurancemanager.mdb" 
     .UserID = "Admin" 
     .Password = "kos" 
     .DatabaseName = "insurancemanager" 
    End With 

    'first parameter 
    Dim crParameterFieldDefinitions As ParameterFieldDefinitions 
    Dim crParameterFieldDefinition As ParameterFieldDefinition 
    Dim crParameterValues As New ParameterValues 
    Dim crParameterDiscreteValue As New ParameterDiscreteValue 
    crParameterDiscreteValue.Value = Convert.ToDateTime(TextBox1.Text) 

    crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields 
    crParameterFieldDefinition = crParameterFieldDefinitions.Item("startdate") 
    crParameterValues = crParameterFieldDefinition.CurrentValues 
    crParameterValues.Add(crParameterDiscreteValue) 
    crParameterValues.Clear() 

    ' second parameter : 
    Dim crParameterFieldDefinitions2 As ParameterFieldDefinitions 
    Dim crParameterFieldDefinition2 As ParameterFieldDefinition 
    Dim crParameterValues2 As New ParameterValues 
    Dim crParameterDiscreteValue2 As New ParameterDiscreteValue 
    crParameterDiscreteValue2.Value = Convert.ToDateTime(TextBox2.Text) 
    TextBox3.Text += " " + crParameterDiscreteValue2.Value 
    crParameterFieldDefinitions2 = cryRpt.DataDefinition.ParameterFields 
    crParameterFieldDefinition2 = crParameterFieldDefinitions2.Item("enddate") 
    crParameterValues2 = crParameterFieldDefinition2.CurrentValues 
    crParameterValues2.Clear() 


    crParameterValues2.Add(crParameterDiscreteValue2) 
    crParameterFieldDefinition.ApplyCurrentValues(crParameterValues) 
    crParameterFieldDefinition2.ApplyCurrentValues(crParameterValues2) 
    CrystalReportViewer1.ReportSource = cryRpt 
    CrystalReportViewer1.Refresh() 
End Sub 




    End Class

來源

2012-10-30 Agis Markouizos

不明白究竟你的問題是什麼，但我認爲你想傳遞參數報告，並就這些參數過濾報告數據還需要設置水晶報表的運行時連接設置。

首先在您的報告中創建參數字段（右擊參數字段並點擊晶體設計器中的添加）現在在Visual Studio水晶報表設計器中進入「水晶報表 - >報表 - >選擇專家」菜單並設置數據使用這些參數字段過濾條件。對於參數傳遞到報表使用的參數名稱和值這樣

cryRpt.ParameterFields("parametername").CurrentValues.AddValue(objVal) 
cryRpt.ParameterFields("fromdatetime").CurrentValues.AddValue(Now)

你不必設置MS Access數據庫更好的辦法的任何服務器名稱是您的數據庫文件中創建DSN並使用DSN在您的報告所以你的報告絕不會要求，除非數據文件數據庫文件丟失，你甚至可以以編程方式在運行時創建DSN如果想要那個讓我們知道如果您笏設置SQL就像在運行時使用的服務器數據庫的密碼和登錄

repDoc.DataSourceConnections(0).SetLogon("usrID","psw")       
repDoc.DataSourceConnections(0).IntegratedSecurity = False

來源

2012-10-30 11:18:48

感謝您的回覆。結果發現該報告出了問題。但現在我有另一個問題。它不傳遞參數。我得到CR插入參數的提示。請指教，謝謝 –

參數名稱是區分大小寫 –

沒有它不是說:( –

通過晶體報告參數，連接訪問代碼，vb.net

回答

相關問題