لدي قاعدة بيانات عملت تقرير بالكريستال ريبورت ولككني لم استطع تشغيلها من خلال الفيجول وذلك لأنني لأ أعرف كيف أكتب الباسوررد.... الكود الذي عملته هو كالتالي
Dim txtfind As String
Dim result
CrystalReport1.ReportFileName = App.Path & "report2.rpt"
txtfind = "{ord.num_of_ord} = " & Text1
CrystalReport1.SelectionFormula = txtfind
CrystalReport1.Destination = crptToWindow
result = CrystalReport1.PrintReport
لكن كيف اكتب كود الباسوورد
في الكود الذي تستخدمه لفتح قاعدة البيانات اضف الاتي
Private Const Connect_Password = ";pwd=" & "Password" Set Db = OpenDatabase(sDatabaseName, False, 0, Connect_Password)
لان الكريستال لايستدعي البيانات من قاعدة البيانات وهي مقفله !!! يجب فتحها اولاً ثم استدعاء التقرير
ارجو ان يكون هذا هو المطلوب اخي العزيز
الأخ منصور حياك الله
هذه مشكلة مرت معي .. و لم أجد لها حل ..
لأنني افتح القاعدة بكلمة سر .. و يسير الأمر جميل .. حتى آتي عند التقرير فيطلب كلمة السر
أدركني رحم الله والديك .. بحل .. أو مثال
محبك / أبو زيد
الأخ منصور حياك الله
هذه مشكلة مرت معي .. و لم أجد لها حل ..
لأنني افتح القاعدة بكلمة سر .. و يسير الأمر جميل .. حتى آتي عند التقرير فيطلب كلمة السر
أدركني رحم الله والديك .. بحل .. أو مثال ..
أذا أمكن شرح السطرين اللذين كتبتهما .. مع الشكر
محبك / أبو زيد
لقد تمكنت من حل المشكلة لدي بالطريقة التالية:
CrystalReport1.ReportFileName = App.Path & "report.rpt"
CrystalReport1.DataFiles(0) = App.Path & "db1.mdb"
' الان نفتح الريبورت بالباسوورد التابع للداتا بيس
CrystalReport1.Connect = ";pwd=YOURPASSWORD"
CrystalReport1.Destination = crptToWindow
CrystalReport1.PrintReport
ما اروع الانسان حينما يكون مصراً على الوصول لهدفه فيبحث ويبحث حتى يصل للنتيجة الصحيحة
الف مبروك
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…