کانکشن در کریستال ریپورت

[mina.net]

سلام دوستان
دوستان اگه می شه بفرمایید چطور می شه مقادیر بانک SQL رو تو کریستا نمایش داد بدون استفاده از ویزارد . یعنی با کد نویسی بشه این کارو کرد. در ضمن می خوام قبلا تنظیمات نحوه نمایش یعنی جدول بندی هم انجام بشه. چطور می شه این کار رو انجام داد؟

[mina.net]

سلام دوستان
من جستجو کردم ولی هرچی پیدا کردم با C# بود که لینکش رو هم در زیر می زارم. لطفا کمک کنید.
http://www.barnamenevis.org/forum/showthread.php?t=107037&highlight=ConnectionInfo
http://www.barnamenevis.org/forum/showthread.php?t=134168&highlight=ConnectionInfo

[karim orooji]

اين سايت كارش تبديل برنامه هاي vb به c يا بالعكس
متن رو كپي كن و با زدن كليك متن رو برات تبديل ميكنه
موفق باشي
http://www.developerfusion.com/tools/convert/csharp-to-vb/

[arsalansalar]

این نمونه اطلاعات دیتا گرید و با کد نویسی برای چاپ میفرسته.شما می تونید جای دیتاگرید هرچی دوست داشتی بذاری.

Dim str As String = "select * from table where year = " + textbox1.Text + ""
Dim dt As New DataTable
Dim db As New DataBase
dt = db.MySelect(str)
MessageBox.Show(dt.Rows.Count.ToString + " مورد یافت شد")
DataGrid1.DataSource = dt
Dim r As New Reports
r.ShowReports(dt, "reports\CrystalReport14.rpt")


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

[mina.net]

دوست عزیز ممنون از لینکی که دادی


Dim rd As ReportDocument = New ReportDocument()
Dim cf As ConnectionInfo = New ConnectionInfo()
cf.UserID = "Name"
cf.Password = "pass"
cf.ServerName = "server"
cf.DatabaseName = "DBname"
rd.Load(ds.Tables("masir"))
CrystalReportViewer1.ReportSource = rd

یکی از نمونه کدهای #C به صورت بالا convert شد ولی در سطر اول ReportDocument خطا می ده که ReportDocument پیدا نشده.
دوستان کمک کنید. ضروری هست.

یک کد دیگه که تبدیل به VB کردم هم در زیر قرار می دم ولی هنوز آزمایش نکردمچ



Dim RptName As String = Request.Params("RptName").ToString()
'RptName = RptName.Replace(" ", "+");
'RptName = SecurityClass.DecryptText(RptName);
RptName += ".rpt"

RptName = (Request.PhysicalApplicationPath & "Report\Rpt\") + RptName
Dim crConnectionInfo As ConnectionInfo
Dim rd As ReportDocument = newReportDocument()
rd.Load(RptName, OpenReportMethod.OpenReportByTempCopy)
pathFile = RptName
crConnectionInfo = newConnectionInfo()
crConnectionInfo.ServerName = System.Configuration.ConfigurationManager.AppSetti ngs("ServerName")
crConnectionInfo.DatabaseName = System.Configuration.ConfigurationManager.AppSetti ngs("DatabaseName")
crConnectionInfo.UserID = System.Configuration.ConfigurationManager.AppSetti ngs("UserName")
crConnectionInfo.Password = System.Configuration.ConfigurationManager.AppSetti ngs("Password")
crDatabase = rd.Database
crTables = crDatabase.Tables
For Each crTable As CrystalDecisions.CrystalReports.Engine.Table In crTables
crTableLogOnInfo = crTable.LogOnInfo
crTableLogOnInfo.ConnectionInfo = crConnectionInfo
crTable.ApplyLogOnInfo(crTableLogOnInfo)
Next
CrystalReportViewer1.ReportSource = rd
CrystalReportViewer1.DataBind()

[Pr0grammer]

اینم فیلم آموزشی (اما بانک access هستش؛ البته کافیه شما Dataset رو با هر بانکی که کار می کنید پر کنید)
http://barnamenevis.org/forum/showpost.php?p=640810&postcount=1