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

[Armin62]

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

[Armin62]

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

[vb341]

Dim Report As New CrystalReport1

Private Sub Form_Load()
Screen.MousePointer = vbHourglass
'
'************************************************* ***
' age khate ziro khata gereft jash benvisid CRAXDRT.DatabaseTable
Dim tbl As CRAXDDRT.DatabaseTable
Dim dbPath As String, dbPassword As String
'
dbPath = App.Path & "\db1.mdb"
dbPassword = "9960984"
For Each tbl In Report.Database.Tables
tbl.ConnectBufferString = _
"Database Name=" & dbPath & ";;Database Type=Access;;" & _
"Database Password=" & dbPassword & ";;Session UserID=;;" & _
"Session Password=;;System Database Path="
Next tbl
'************************************************* **
'
CRViewer91.ReportSource = Report
CRViewer91.ViewReport
Screen.MousePointer = vbDefault

End Sub

[vb341]

شما به جای 9960984 رمز بانک خودت رو بده

[Armin62]

اینو خطا میده
Dim Report As New CrystalReport1
------------------------------------
و
ConnectBufferString
هم این خطا رو میده

Compile Error
con't assing to read-only property

[vb341]

اینجا که خطا نمیده
--------------------
اگر فرصت کردم نمونه پروژه رو براتون آپلود میکنم

[Armin62]

ممنون میشم
راستی از کریستال 8.5 استفاده می کنم

[Armin62]

vb جان زحمت فایل نمونه رو برام میکشی

[vb341]

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

[vb341]

این هم نمونه برنامه

[Armin62]

در کریستال 8.5 خطا میده ولی در 9.5 به بالا خطا نمیده

[vb341]

خوب 8.5 رو بزار کنار و با 9 به بعد کار کن