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

السلام عليكم

يتم تعيين كلمة المرور والمسار (اسم قاعدة البيانات) سواءً عن طريق التقرير نفسه (بالتحديد عند عملية الـ Wizard )

أو عن طريق الكود في النموذج Form Class سيكون بهذا الشكل

Try

            cnn.ConnectionString = _
            "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
             Application.StartupPath & "\db.mdb;Jet OLEDB:Database Password=123;"

            Me.da.Fill(Ds1)
            dg.DataSource = Ds1
            dg.DataMember = "tb"

            'Load Reports

            Dim tbCArea As CrystalDecisions.CrystalReports.Engine.Table
            Dim tliArea As CrystalDecisions.Shared.TableLogOnInfo
            Dim rptArea As New Report1
            For Each tbCArea In rptArea.Database.Tables
                tliArea = tbCArea.LogOnInfo
                With tliArea.ConnectionInfo
                    .DatabaseName = "db"
                    .Password = "123"
                End With
                tbCArea.ApplyLogOnInfo(tliArea)
            Next tbCArea

            crv.ReportSource = rptArea
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

AccessPassword.zip

السلام عليكم

عُذرً نسيت أن أعطي مسار قاعدة البيانات في المثال السابق

بحيث يتسبدل الكود

  .DatabaseName = "db"

بالكود

    .DatabaseName = Application.StartupPath & "\db.mdb"

و بإختصار شديد يمكن أن يختصر الكود بهذا الشكل

 Dim DataPath As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            DataPath = Application.StartupPath & "\db.mdb"
            cnn.ConnectionString = _
            "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
             Application.StartupPath & "\db.mdb;Jet OLEDB:Database Password=123;"
            Me.da.Fill(Ds1)
            dg.DataSource = Ds1
            dg.DataMember = "tb"
            'Load Reports
            Dim rptArea As New Report1
            rptArea.SetDatabaseLogon("", "123", DataPath, DataPath)
            crv.ReportSource = rptArea
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

تلاحظ أن الـ userName غير مطلوب عند وضع كلمة المرور في Access لذلك وضعنا القيمة ""

تم إصلاح الخطأ في الملف المرفق الحالي

بالتوفيق إن شاء الله .

AccessPassword.zip