بانکهای رمز دار و کریستال ریپورت و6 VB

[nader.golab]

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

اقایون من الان با کیرستال ریپورت 10 و اکسس و VB6 کار می کنم.
کریستال ریپورت رو درست کردم به vb6 هم متصل کردم ولی بانک من پسورد داره و وقتی با VB6 انو لود می کنم یک کادر محاوره ای باز می شه و از من پسورد می خواد.
حالا من می خوام از طریق برنامه نویسی اینو حل کنم که دیکه از کاربر پسورد نخواد. و وقتی روی کیلد کیلیک کرد مستقیم گزارشو به من نمایش بده نه اینکه اول پسورد بخواد بعد از وارد کردن پسورد گزارش رو نشون بده.

با Dll
Crystal Reports ActiveX Designer Design and Runtime Library 10.5
و
Crystal ActiveX Report Viewer Library 10.0
کار می کنم.

البته یکی از دوستان یک کمکی به من کرده بود ولی اون با
Crystal Reports ActiveX Designer Design and Runtime Library 10.2 انجام داده.

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

[حسین علوی]

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

[nader.golab]

من از دوستمون تشکر می کنم ولی واقعا هیچ کس بلد نیست این کارو. بابا عجب حرفه ای دارین شما.
به این سوال پیشه پا افتاده نمی تونین جواب بدین و نمی تونین حل کنین.

[حسین علوی]

دوستان نظر بهتری ندارن؟

[madrid-poorya]

Dim crDBTab As CRAXDDRT.DatabaseTable
For Each crDBTab In crRept.Database.Tables
crDBTab.ConnectionProperties.Item("Data Source") = dbase_Path
crDBTab.ConnectionProperties.Item("Jet Database Password") = "n"
Next
من اینو گذاشتم کار میکنه حالا نمیدونم شما از این استفاده میکنید یا نه!!!!

[حسین علوی]

Dim crDBTab As CRAXDDRT.DatabaseTable
For Each crDBTab In crRept.Database.Tables
crDBTab.ConnectionProperties.Item("Data Source") = dbase_Path
crDBTab.ConnectionProperties.Item("Jet Database Password") = "n"
Next
من اینو گذاشتم کار میکنه حالا نمیدونم شما از این استفاده میکنید یا نه!!!!
با تشکر از شما لطفا نوع متغییر crRept را مشخص کنید

[madrid-poorya]

Dim crApp As New CRAXDDRT.Application
Dim crRept As New CRAXDDRT.Report
Dim crDBTab As CRAXDDRT.DatabaseTable
اینم خدمت شما

[darkwish]

Dim crApp As New CRAXDDRT.Application
Dim crRept As New CRAXDDRT.Report
Dim crDBTab As CRAXDDRT.DatabaseTable
اینم خدمت شما

اقا اگه میشه واسه c# هم بگین

[g_nazanin]

اگر از crystal report viewer استفاده میکنید کافیه که property:
EnableDatabaseLogonPrompt=False

البته شما از آقایون سوال کرده بودین ... بنده جسارتا جواب دادم !!!

[nader.golab]

ممنون از دوستان این راه جواب داد و عمل هم می کنه ولی روی سیستم طرف که نصب می کنم این نرم افزار پیغام می ده Filed to Open Document همه Dll ها نصبه ادرس پویا هم درست دادم.
نمی دونم چی کار باید بکنم.حتی کیرستال ریپورتم که نصب می کنم این مشکل رو بر طرف نمی کنه ممنون می شم از دوستان اگه این مشکل رو حل کنن.
اینم کدی که نوشتم.


Private Sub Form_Load()


Set crRept = crAPP.OpenReport(App.Path & "\DarS.Rpt")
For Each crDBTab In crRept.Database.Tables
crDBTab.ConnectionProperties.Item("Data Source") = App.Path & "\data\Data.bit"
crDBTab.ConnectionProperties.Item("Jet DataBase Password") = "585858"
Next
CrystalReport.ReportSource = crRept
CrystalReport.ViewReport
crRept.DiscardSavedData

End Subولی این خطا رو از این کدش می گیره و می گه نمی تونی Set کنی


Set crRept = crAPP.OpenReport(App.Path & "\DarS.Rpt")خواهشا کمکم کنین.

[madrid-poorya]

سلام .
من هم همین مشکل رو داشتم که اشتباها دیزاینر10.5 رو به جای 10 گذاشته بودم که بر طرفش کردم . حالا شما هم یه بررسی بکن شاید درست بشه .چون غیر از این من نمی دونم با چی حل می شه

[rahmana]

باسلام
در بالاي فرمت اين دو بخش را تعريف كرده اي؟
اگر تعريف نكرده اي بالاي فرمت اين دو بخش را تعريف كن. احتمالا 99 درست بشه.
Dim ‍‍crapp As New CRAXDRT.Application
Dim crrept As CRAXDRT.report

پس از امتحان نتيجه را برام بفرست
با تشكر رحمان احمدي

[nader.golab]

باسلام
در بالاي فرمت اين دو بخش را تعريف كرده اي؟
اگر تعريف نكرده اي بالاي فرمت اين دو بخش را تعريف كن. احتمالا 99 درست بشه.
Dim ‍‍crapp As New CRAXDRT.Application
Dim crrept As CRAXDRT.report

پس از امتحان نتيجه را برام بفرست
با تشكر رحمان احمدي

سلام دوست من خسته نباشید عزیزم.
من تو بخش جنرال این رو نوشته بودم ولی عمل نمی کنه.همون خطا که گفتم می گیره.
دیروز رو ویندوز رو عوض کردم .حالا رو سیستم خودمم پیغام خطا میده.
فکر کنم نمی تونه این ابجکت رو باز کنه و خطا می ده و اگر نه این Dll ها رو می شناسه و پیغام نمی ده وقتی اجرا می شه.
وقتی پیغام می ده که پریت رو بزنی. ممنون از شما

Set crRept = crAPP.OpenReport(App.Path & "\DarS.Rpt")