عرض كريستال لقاعدة بيانات برقم سري

ReportFile = App.Path & "\report11.rpt"Set m_Report = m_Application.OpenReport(ReportFile)m_Report.Database.Tables(1).Location = App.Path & "\data.mdb"m_Report.Database.Tables(1).ConnectionProperties("Database Password") = "99999"CrViewer1.ReportSource = m_ReportCrViewer1.EnableGroupTree = FalseCrViewer1.Zoom 1CrViewer1.ViewReportScreen.MousePointer = vbDefaultحيث report1خو اسم التقريرdata اسم قاعدة البيانات99999 هو كلمة المرور بالتوفيقو لا تنسى وضع Option ExplicitDim m_Application As New CRAXDDRT.ApplicationDim m_Report As New CRAXDDRT.ReportDim ReportFile As StringDim dbName As String

آسف على اللخبطة أعيد :

Option Explicit

Dim m_Application As New CRAXDDRT.Application

Dim m_Report As New CRAXDDRT.Report

Dim ReportFile As String

Dim dbName As String

Private Sub Form_Load()

ReportFile = App.Path & "\report1.rpt"

Set m_Report = m_Application.OpenReport(ReportFile)

m_Report.Database.Tables(1).Location = App.Path & "\data1.mdb"

m_Report.Database.Tables(1).ConnectionProperties("Database Password") = "99999"

CrViewer1.ReportSource = m_Report

CrViewer1.EnableGroupTree = False

CrViewer1.Zoom 1

CrViewer1.ViewReport

Screen.MousePointer = vbDefault

End Sub

Data1 is DB name

Reoprt 1 is report name

9999 is pasword