دو مشکل با کریستال و vb

[احمد رایان]

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

دوتا مشکلی که من دارم اینهاست اول اینکه می خوام پایگاه دادم رو در کریستال ریپورت در زمان اجرا وصل کنم و نمی دونم چطوری اینکار رو بکنم نمی خوام ثابت باشه

دوم اینکه من فیلدهای فرمولای کریستال رو از نوع اعشاری تعریف کردم و همینکار موجب می شه موقع چاپ تا دورقم اعشار رو برای اعداد صحیح هم بزنه مثل 2.00 ممنون میشم اگه بگین چطور این صفرها رو میشه نمایش نداد اما خاصیت اعشاری رو داشته باشه

ممنون
موفق باشید

[ehsan_ansaripoor]

دوست عزیز در مورد سوال اولت شرمنده ام چون من با ActiveReport و DataReport گزارش می گیرم ولی در مورد سوال دومت فقط کافیه نوع نمایش فیلدت را General تعریف کنی اگر اعشاری بود نمایش می ده و اگر نبود به صورت معمول نمایش میده

[احمد رایان]

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

[mohammad diba]

دوست من از کالکشن Tables استفاده کن.

[رضا علوی]

:چشمک: دوست گرامی سلام
بهترین راه که اینجانب از آن استفاده می کنم ساخت یک Recordset است که با استفاده از دستور زیر آن را به Report مورد نظر خود پاس می دهیم:


Dim crRep As New CRAXDRT.Report
Dim Rec As New Recordset
("Set Rec = DataEnvironment.Connection.Execute("Select * from Personnels
crRep.Database.Tables(1).SetDataSource Rec

امیدوارم برای شما کارساز باشد.

-------------------------------------------------------------------------------------------------

Seven rules for happy life
Never hate +
Don,t worry +
Live simple +
Expect a little +
Give a lot +
Always smile +
Have a good friend +

[vahidm]

باسلام به تمام دوستان من کریستال 11 خریدم نمی دونم چطور باید ازش استفاده کنم هرکه بلده لطفا کمکم کنه
خیلی ممنوع
اگر زحمتی هم نیست برام به این ایمیل بفرسته
onlyvahid_m2006@yahoo.com

[احمد رایان]

با سلام به همه دوستان عزیز
از جوابهایی که دادید خیلی ممنونم من خیلی دنبال جواب این مشکل (اتصال به پایگاه داده در زمان اجرا) بودم که آخرش یک سورس انگلیسی رو دیدم و اون رو توضیح داده بود . خیلی هم خوب کار کردومشکلم رو حل کرد.از شما هم تشکر می کنم . اینهم اون جواب اگه مشکلی داشتید بگید:
Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim Str_Date_Time As String
Dim Obj_Cal As New Obj_Class
Dim Date_Time As New Date_Class
Dim Crystal As New CRAXDRT.Application
Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Access_File_Name & ";Persist Security Info=False"
Cn.Open
'CrystalActiveXReportViewer1.DisplayBorder = False
'CrystalActiveXReportViewer1.DisplayTabs = False
'CrystalActiveXReportViewer1.EnableDrillDown = False
'CrystalActiveXReportViewer1.EnableRefreshButton = True
'CrystalActiveXReportViewer1.EnableAnimationCtrl = False
'CrystalActiveXReportViewer1.DisplayGroupTree = False
Rs.Open Access_String_Report, Cn, adOpenForwardOnly, adLockReadOnly
Set Crystal = New CRAXDRT.Application
Set Report = Crystal.OpenReport(App.Path + "\Reports\" & Reports_FileName)
Report.DiscardSavedData
Report.Database.SetDataSource Rs
CrystalActiveXReportViewer1.ReportSource = Report
CrystalActiveXReportViewer1.ViewReport