تعیین Data

[y.saied]

گروه محترم In_Chan_Nafar ، با تشکر از شما اگه ممکنه به این سوال هم جواب بدین :

من با استفاده از متن آموزشی که شما زحمتش و کشیدین با کریستال ریپورت 10 در vb گزارشگیری میکنم و من می خوام با کریستال ریپورت گزارشی بسازم که شامل نمودار باشه .

همه چیز به خوبی کار میکنه.
اما............اگه در مسیر دیتابیس تغییری ایجاد بشه مثلا نام پوشه ای عوض بشه دیگه هیچ چیزی نمایش داده نمی شه.

حالا ( با توجه به اینکه من یکبار برای کریستال ریپورت تو حالت ویزارد ، کانکشن تعریف کردم و مسیر دیتابیس را مشخص کردم ) چطور می تونم این دیتابیس را در کد نویسی به کریستال ربط بدم که کریستال اطلاعات مورد نیازش را از این دیتابیس بخونه.

البته من چون می خوام نمودار طراحی کنم پس در اول کار مجبورم یه کانکشن جدید تو ویزارد کریستال ریپورت ایجاد کنم. چون برای رسم نمودار باید حتما یه سری فیلد باشه تا کریستال اجازه رسم نمودار را تو حالت طراحی بده.(ایا راه دیگه ای هم هست ؟؟)


راستی من از VB 6.0 استفاده میکنم.و بانک اطلاعاتی هم Access

[y.saied]

هیچ کدوم از دوستان نمی خوان جواب من و بدون

[mpmsoft]

دوست عزیز شما می تونی از داخل وی بی فقط رکورد ست رو پاس بدی

مثلا


Dim Rs As New ADODB.Recordset
Dim ObjApp As New CRAXDRT.Application
Dim ObjRpt As New CRAXDRT.Report
Dim Frm As New FrmPrintCr

If Rs.State = 1 Then Rs.Close


Set ObjRpt = ObjApp.OpenReport(App.Path & "\Report\OutCall.rpt")
Rs.Open "SELECT * FROM Table WHERE Left(Stime,10) Between '" & MaskEdBox1.Text & "' AND '" & MaskEdBox2.Text & "'", Conn, adOpenStatic

ObjRpt.Database.SetDataSource Rs
ObjRpt.FormulaFields.GetItemByName("FDate").Text = "'" & MaskEdBox1.Text & "'"
ObjRpt.FormulaFields.GetItemByName("TDate").Text = "'" & MaskEdBox2.Text & "'"
ObjRpt.FormulaFields.GetItemByName("User").Text = "'" & UserName & "'"

Frm.ShowReport ObjRpt
Frm.Show vbModeless, Mainform



با این شکل دیگه نیازی نیست که مسیر پایگاه اطلاعاتی رو بهش پاس بدی

اگر باز هم سوال داشتی بپرس

[y.saied]

دوست عزیز خیلی ممنون شرمنده کردی

اگه در مورد کدهایی که زحمتشو کشیدین توضیح بدین ......... ممنون میشم