آیا می تونم آدرس دیتاسورس گزارشم رو عوض کنم؟

[alirezash]

دوستان عزیز من یه سری گزارش با کریستال طراحی کردم که در همشون نوع دیتابیسم Access هستش. مسیر فایل mdb من در درایو F بود (مثلا F:\my.mdb) اما الان می خوام بزارمش روی شبکه و آدرسش تغییر می کنه دیگه! حالا می خوام آدرس دیتا بیش رو تغییر بدم اما هیچ راهی نمی بینم! می خواستم بدونم آیا اینکار اصلا ممکنه؟ آخه اصلا آدرس نهایی که این فایل دیتا روش قرار میگیره هنوز مشخص نیست و من مجبورم فعلا به همین طریق ادامه بدم و بعدا این آدرس رو تغییر بدم.

خیلی ممنون

[Moslemu]

سلام.
می‌تونید از این کد استفاده کنید:
Public crRpt As New CRAXDRT.Report
crRpt.Database.LogOnServer "dao.dll", "ServerName","dbPath","UserName" , "Password" //attach database
به جای ServerName، اسم سرور،
جای dbPath، مسیر و نام فایل اکسس (مثلاً F:\myFile.mdb)،
جای UserName، نام کاربری و جای Password، رمز بانک اطلاعاتی‌ رو بنویسید.
اون تکه‌ی آخرهم (//attach database) نمی‌خواد بنویسید.

[حسین علوی]

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

[Moslemu]

سلام.
ببخشید اگه دیره. آخه از قبل عید تا حالا اینترنت در دسترسم نبود.


Public crRpt As New CRAXDRT.Report
Me.MousePointer = 13
ServerName = “نام سرور (اگه شبکه ای در کار نیست، نام کامپیوتر)”
Set crRpt = crApp.OpenReport("\Reprts\Sample.rpt")
crRpt.DiscardSavedData
crRpt.Database.LogOnServer "dao.dll", ServerName, dbPath as string,username as string , Password as string

crRpt.ParameterFields.GetItemByName("P1").AddCurrentValue ("SampleText")

crRpt.FormulaFields.GetItemByName("TextDate").Text = "'" & "تاریخ گزارشگیری: " & "date" & "'"

For Each crDBTab In crRpt.Database.Tables
crDBTab.SetLogOnInfo ServerName, dbPath, UserName,Password
Next

FrmRpt1.CrystalActiveXReportViewer1.Refresh
FrmRpt1.Show vbModal
Me.MousePointer = 0


به جای \ Reprts\Sample.rpt مسیر گزارشتون رو بزارید.
اگه بانک اکسس هست، dao.dll باید همین باشه.
اگه بانک sql هست،dao.dll به P2ssql تغییر پیدا می‌کنه.
dbPath as string : مسیر بانک‌اطلاعاتی
username as string : نام کاربری بانک‌اطلاعاتی (اختیاری)
Password as string : رمزعبور بانک‌اطلاعاتی (اختیاری)
P1 : «Parameter Field»
TextDate : «Formula Field»