السلام عليكم ورحمة الله وبركاته
اخواني الاعزاء صدفتني مشكلة عند استخدامي اداة الكرسيتال ريبورت فيووو crystel report viewer عند استخدامي الاداة في عرض تقرير ياخذ بياناته من قاعدة بيانات محمية بكلمة مرور ويظهر لي صندوق حواري يطلب مني وضع اسم المستخدم وكلمة المرور للولوج لقاعدة البيانات حيث تظهر المربع الحواي السابق عند استخدامي تقرير ياخد بياناته من قاعدة بيانات محمية اما ازا كانت قاعدة البيانات غير محمية بكلمة مرور فا لا تحدث اي مشاكل ويظهر التقرير عادي طبعا انا استخدمت كزا كود عشان اقدر اعمل ولوج للقاعدة من خلال ملف التقرير عشان شاشة طلب اليوزر والباسورد تختفي ما نفعش وجربت كزا حيلة برده مش عارف اخفي النافزة دي وامنعها من الظهور مع اني كاتب في الكود اسم القاعدة واليوزر والباسورد تمام وده المربع الحواري الا بيظهر لي لما بعمل لوود للفورمة الا عليها ادا عرض التقرير وطبعا في الفورمة دي مكتوب فيها كود الولوج واسم ملف التقرير عشان الاداة تقدر تدخل علي التقرير بس برده الكود ما حلش المشكلة وبرده المربع بتاع اليوزر والباسورد بيظهر لي وعشان يعرض التقرير لازم ادخل اليوزر والباسورد في كل مرة افتح فيها النموزج وده صورة المربع الحواري الا بيظهر موجودة في المرفقات .............
- اما هذا هو الكود الا كتبه في حدث الفورم لود للفورمة الا بيها عارض التقارير الخاص بالكر يستال ريبورت يا ريت تشوفوهو وتعدلوا فيه لو فيه حاجة خطا او لو عندكوا كود يؤدي الغرض ويمنع ظهور المربع الحواري يبقا جزاكم الله كل خير مع الاخذ في لاعتبار ان قاعدة البيانات من النوع اكسيس وليها كلمة مرور واسم المستخدم الاافتراضي هو admin
Dim report As New mypassreport
Dim dname As String = My.Computer.FileSystem.CurrentDirectory & "\" & "ptele.mdb"
Dim reportpath As String = My.Computer.FileSystem.CurrentDirectory & "\" & "mypassreport.rpt"
CrystalReportViewer1.ReportSource = reportpath
Dim myconectioninfo As New CrystalDecisions.Shared.ConnectionInfo
Dim logininfo As CrystalDecisions.Shared.TableLogOnInfo
logininfo = report.Database.Tables("phone").LogOnInfo
myconectioninfo.DatabaseName = dname
myconectioninfo.UserID = "admin"
myconectioninfo.Password = "123"
logininfo.ConnectionInfo = myconectioninfo
report.Database.Tables("phone").ApplyLogOnInfo(logininfo)