چگونه مسیر داینامیک به بانک اکسس را به کریستال ریپورت بدهم

سلام
من با vb.net و بانک access و crystal report فرمی را طراحی کرده ام. اما به هیچ طریقی امکان آن را نیافتم که مسیر جدول را در برنامه و برای زمان اجرا به ریپورت بدهم. موارد موجود در این بخش و بسیاری سایتهای دیگر نیز برای کار با vb 6.0 بود. من کد زیر را در پروژه بکار بردم اما هنوز هم مسیر فایل اکسس در زمان اجرا از من خواسته می شود:

  Dim Report = New Chart1

                Dim dtAd As New OleDbDataAdapter

                dtAd = New OleDbDataAdapter("SELECT * FROM tbChart;", con)

                dtAd.Fill(DS, "tbChart")

                Report.SetDataSource(DS)

                CRV.ReportSource = Report

              

لطفاً در صورت امکان نحوه اعمال تغییر مسیر جدول را با ذکر مثال تشریح کنید. البته من حتی مسیر فایل را نیز به کمک دستور application.startpath نیز به Crystal report بصورت زیر دادم که بازهم جواب نداد:

CRV.ReportSource = Application.StartupPath + "\" + "Chart.rpt"

Please help me :(

این سورس واسه SQL Server هست اگه یه کمی دست کاری کنی کارت را می یوفته

        Dim rpt As New CrystalReport1() 'The report you created.

        Dim myConnection As SqlConnection

        Dim MyCommand As New SqlCommand()

        Dim myDA As New SqlDataAdapter()

        Dim myDS As New Dataset1() 'The DataSet you created.



        Try



            myConnection = New SqlConnection("Data Source=localhost;Integrated Security=SSPI;" & _

                                             "Initial Catalog=northwind;")

            MyCommand.Connection = myConnection

            MyCommand.CommandText = "SELECT * FROM Customers"

            MyCommand.CommandType = CommandType.Text

            myDA.SelectCommand = MyCommand



            myDA.Fill(myDS, "Customers")

            rpt.SetDataSource(myDS)

            CrystalReportViewer1.ReportSource = rpt



        Catch Excep As Exception

            MessageBox.Show(Excep.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try

سلام
دوستان عزیز اگه یکمی دقت می کردید می دیدید که کدی که برای من نوشتید دقیقاً همون کد خودمه که فقط چند تا اسم توی اون عوض شده. Chart1 در حقیقت همون Report طراحی شده منه و CRV هم همون CrystalReportViewer منه. Report هم همون rpt تعریف شده شماست.اما همونطور که گفتم این کد جواب نمی ده و در حین اجرای برنامه در پنچره ای که توسط خود Crystal Report باز می شه مسیر بانک رو از من می خواد و این اتفاق در هر بار اجرای برنامه از ابتدا , تکرار می شه که آزار دهنده است.
Please Help me :cry:

سلام

شما اگه کمی با دقت جستجو می کردی می تونستی تو همین بخش جوابتون رو دریافت کنید

حالا من لینکش واستون می ذارم (ولی از الان بگم که این کد واسه سی شارپ هست ولی خیلی ساده می تونید اون رو به VB تبدیل کنید) :mrgreen:

http://www.barnamenevis.org/viewtopic.php?t=22190[url]
:موفق:

سلام
اول بابت راهنمایی و لینک مزبور ممنون. قبلاً اون رو دیدم. :sorry:
::نوشتن:: دوم اینکه من قبلاً هم گفتم که بانک من اکسس و نه sql server است. در ارتباط با sql server هیچ موقع از مسیر فیزیکی بانک سئوال نمی شه و این وظیفه خود سرور sql می باشد. تنها نام سرور مسئله اصلی کاره که مشکل خاصی نداره. اما در مورد اکسس باید مسیر فیزیکی بانک اطلاعاتی داده بشه و بدون اون کار کردن ممکن نیست . این مسیر هم در موقع ایجاد گزارش در خود گزارش ذخیره می شه و همونطور که در اولین پست گفتم حتی با دستور CRV.ReportSource = Application.StartupPath + "\" + "Chart.rpt" هم نتونستم این مسیر رو به گزارشم بدم.
:گیج: امیدوارم که شما چند نفر عاشق کریستال ریپورت و وی بی دات نت مشکل من رو حل کنید.

Imports CrystalDecisions.CrystalReports.Engine

Imports CrystalDecisions.Shared





Dim crtableLogoninfos As New TableLogOnInfos()

Dim crtableLogoninfo As New TableLogOnInfo()

Dim crConnectionInfo As New ConnectionInfo()

Dim CrTables As Tables

Dim CrTable As Table

Dim TableCounter



'If you are using a Strongly Typed report (Imported in

'your project) named CrystalReport1.rpt use the

'following:



Dim crReportDocument As New CrystalReport1()



'If you are using a Non-Typed report, and

'loading a report outside of the project, use the

'following:



Dim crReportDocument As New ReportDocument()



crReportDocument.Load("c:\myReports\myRepo  rt.rpt")



'Set the ConnectionInfo properties for logging on to

'the Database



'If you are using ODBC, this should be the

'DSN name NOT the physical server name. If

'you are NOT using ODBC, this should be the

'physical server name



With crConnectionInfo

.ServerName = "DSN or Server Name"



'If you are connecting to Oracle there is no

'DatabaseName. Use an empty string.

'For example, .DatabaseName = ""



.DatabaseName = "DatabaseName"

.UserID = "Your User ID"

.Password = "Your Password"

End With



'This code works for both user tables and stored

'procedures. Set the CrTables to the Tables collection

'of the report



CrTables = crReportDocument.Database.Tables



'Loop through each table in the report and apply the

'LogonInfo information



For Each CrTable in CrTables

CrTableLogonInfo = CrTable.LogonInfo

CrTableLogonInfo.ConnectionInfo =

crConnectionInfo

CrTable.ApplyLogOnInfo(crtableLogoninfo)



'If your DatabaseName is changing at runtime, specify

'the table location.

'For example, when you are reporting off of a

'Northwind database on SQL server you

'should have the following line of code:



crTable.Location = "Northwind.dbo." &

crTable.Location.Substring(crTable.Location.La  stIndexOf(

".") + 1)

Next



'Set the viewer to the report object to be previewed.



CrystalReportViewer1.ReportSource = crReportDocument





---------Access-------------

• If you are reporting off an Access database, then

specify either the 'ServerName' or 'DatabaseName'

to the 'ConnectionInfo' Object depending on

how you are connecting to Access.



For example, if you are connecting to Access

through ODBC, then set the 'DatabaseName' for the

'ConnectionInfo' object as follows:



With crConnectionInfo

.DatabaseName = "C:\mydatabase\mydata.mdb"

End With



If you are connecting to Access through OLE DB,

then set set the 'ServerName':



With crConnectionInfo

.ServerName = "C:\mydatabase\mydata.mdb"

End With 

برای کسب اطلاعات بیشتر

http://support.businessobjects.com/l...c2010371.aspl]

ساده ترین راه تعریف یک DSN است که دیگه نیازی به معرفی دوباره به کریستال نیست

سلام
با تشکر از دوستان ، لطفاً اگه ممکنه یک نمونه کد از تعریف DSN برای کار با Access و کریستال ریپورت رو اینجا بزارید.

من از طریق همان connectioninfo مشکلم حل شد اما وقتی در شبکه آدرس کامپیوتر اصلی(سرور) را می دهم حتی ip را هم که می دهم با از من مسیر و username می خواد یعنی فقط در کامپیوتر Client مشکل دارم:گریه: :گریه: :گریه:

در اینجا دو حال پیش می آید یا گزارش subreport هست یا داکیومنت معمولی
ابندا باید داکیومنت گزارش و کانکشن اینفو را به توابع بدهد
نحوه پر کردن connectionInfo

ConnectionInfo ConnectionInfoRpt = new ConnectionInfo();

ConnectionInfoRpt.IntegratedSecurity = true;

ConnectionInfoRpt.DatabaseName = "database";

ConnectionInfoRpt.Password = "pass";

ConnectionInfoRpt.UserID = "user";

ConnectionInfoRpt.ServerName = SystemInformation.ComputerName.ToString();

Finassl rpt = new Finassl();



حالا نوبت به ارسال هم داکیومنت و کاننکشن است


ApplyLogOnInfoForSubreports(rpt, ConnectionInfoRpt);



تابع را فراخوانی می کنیم
private void ApplyReportLogon(CrystalDecisions.CrystalReports.E  ngine.ReportDocument RptYears, ConnectionInfo sa)

{

foreach (CrystalDecisions.CrystalReports.Engine.Table tablex in RptYears.Database.Tables)

{

tablex.LogOnInfo.ConnectionInfo.AllowCustomConnect  ion = true;

TableLogOnInfo tablelog = tablex.LogOnInfo;

tablelog.ConnectionInfo = sa;

tablex.ApplyLogOnInfo(tablelog);

}

}



حال اگر فرم شما  ساب ریپورت داشته باشد فرم ریپورت خود را به جای ارسالبه تابع فوق به تابع زیر ارسال می نمایید
private void ApplyLogOnInfoForSubreports(CrystalDecisions.Cryst  alReports.Engine.ReportDocument rpt, ConnectionInfo ConnectionInfoRpt)

{

Sections Sections = rpt.ReportDefinition.Sections;

foreach (Section section in Sections)

{

ReportObjects reportObjects = section.ReportObjects;

foreach (ReportObject reportObject in reportObjects)

{

if (reportObject.Kind == ReportObjectKind.SubreportObject)

{

var subreportobject = (SubreportObject)reportObject;

ReportDocument SubReportDocument = subreportobject.OpenSubreport(subreportobject.Subr  eportName);

ApplyReportLogon(SubReportDocument, ConnectionInfoRpt);

}

}

}

}

امیدوارم تونسته باشم مشکلی را حل کرده باشم