shineab
جمعه 30 مرداد 1388, 00:12 صبح
سریع
سریع
سریع
سریع
من یه کد اینجوری دارم. داخل خود نرم افزار ویژوال استودیو خیلی درست و کامل و بی ایراد گزارش رو نشون میده ولی وقتی setup می سازم و از اون اجرا می کنم لود نمی شه.
ویندوزم هم ویستا بیسیک هست.
می گم کد به روز رسانی یا همگام سازی چیزی داره یا باید نوشت که بلد نیسم؟
لطفا راهنماییم کنید. ممنونم....
سریع
سریع
سریع
سریعhttp://www.barnamenevis.org/forum/images/smilies/yahoo/102.gif
Imports System.Data.OleDb
Imports System.IO.Directory
Imports CrystalDecisions
Public Class frmrep
Private Function fncGetData() As DataSet
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & GetCurrentDirectory.Substring(0, GetCurrentDirectory.Length - 10) & "\dabirkhane2000.mdb"
Dim oleConnection1 As New OleDbConnection(strConn)
Dim strQuery As String
strQuery = andicator.lbloledbcach.Text
Dim oleDataAdapter1 As New OleDbDataAdapter(strQuery, oleConnection1)
Dim dstData As New DataSet
oleDataAdapter1.Fill(dstData, "dabirkhane")
Return dstData
End Function
Private Sub frmrep_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strReportPath As String = GetCurrentDirectory()
If strReportPath.Substring(strReportPath.Length - 9) = "bin\Debug" Then
strReportPath = strReportPath.Substring(0, strReportPath.Length - 10)
End If
strReportPath &= "\CrystalReport1.rpt"
Dim rptdairkhane As New CrystalDecisions.CrystalReports.Engine.ReportDocum ent
rptdairkhane.Load(strReportPath)
Dim dsdata As DataSet = fncGetData()
rptdairkhane.SetDataSource(dsdata)
Me.crv.ReportSource = rptdairkhane
End Sub
End Class
سریع
سریع
سریع
من یه کد اینجوری دارم. داخل خود نرم افزار ویژوال استودیو خیلی درست و کامل و بی ایراد گزارش رو نشون میده ولی وقتی setup می سازم و از اون اجرا می کنم لود نمی شه.
ویندوزم هم ویستا بیسیک هست.
می گم کد به روز رسانی یا همگام سازی چیزی داره یا باید نوشت که بلد نیسم؟
لطفا راهنماییم کنید. ممنونم....
سریع
سریع
سریع
سریعhttp://www.barnamenevis.org/forum/images/smilies/yahoo/102.gif
Imports System.Data.OleDb
Imports System.IO.Directory
Imports CrystalDecisions
Public Class frmrep
Private Function fncGetData() As DataSet
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & GetCurrentDirectory.Substring(0, GetCurrentDirectory.Length - 10) & "\dabirkhane2000.mdb"
Dim oleConnection1 As New OleDbConnection(strConn)
Dim strQuery As String
strQuery = andicator.lbloledbcach.Text
Dim oleDataAdapter1 As New OleDbDataAdapter(strQuery, oleConnection1)
Dim dstData As New DataSet
oleDataAdapter1.Fill(dstData, "dabirkhane")
Return dstData
End Function
Private Sub frmrep_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strReportPath As String = GetCurrentDirectory()
If strReportPath.Substring(strReportPath.Length - 9) = "bin\Debug" Then
strReportPath = strReportPath.Substring(0, strReportPath.Length - 10)
End If
strReportPath &= "\CrystalReport1.rpt"
Dim rptdairkhane As New CrystalDecisions.CrystalReports.Engine.ReportDocum ent
rptdairkhane.Load(strReportPath)
Dim dsdata As DataSet = fncGetData()
rptdairkhane.SetDataSource(dsdata)
Me.crv.ReportSource = rptdairkhane
End Sub
End Class