أخواني الافاضل
السلام عليكم ورحمة الله وبركاتة
هذه أولي مشاركاتي في منتدي الفيجوال بيسك دوت نت
واريد أن أسأل سؤال
عندي نموذج تم اضافة علية آداة من أدوات tool box وهي آداه |Crestal report viwer وعند حدث تحميل النموذج يتم اضافة هذه الاكواد لعدم ظهور شاشة المطالبة باسم الجهاز واسم قاعدة البيانات المستخدمة والحمد لله لا يوجد مشكلة في الكود ولكن المشكلة بداخل الكود يتم تغيير اسم الجهاز واسم قاعدة البيانات
فلو فرضنا اننا عملنا تحزيم للبرنامج ونقلنا البرنامج الي جهاز آخر وطبعا الجهاز الاخر سيكون له اسم مخالف للاسم المكتوب في الكود فكيف نتغلب علي هذه المشكلة
من خلال قرأه هذا الكود لاي اسم جهاز آخر ....
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim tb As CrystalDecisions.CrystalReports.Engine.Table
Dim tl As CrystalDecisions.Shared.TableLogOnInfo
Dim rp As New CrystalDecisions.CrystalReports.Engine.ReportDocument()
rp.Load("..\crpt1.rpt")
For Each tb In rp.Database.Tables
tl = tb.LogOnInfo
With tl.ConnectionInfo
.ServerName = "inst102"
.UserID = ""
.Password = ""
.DatabaseName = "Northwind"
End With
tb.ApplyLogOnInfo(tl)
Next
Me.CrystalReportViewer1.ReportSource = rp
End Subطبعا كما ترون يتم كتابة في خانة server name اسم الجهاز فهل من طريقة ان يتلائم اسم السيرفر مع اي جهاز آخر يتم نقل البرنامج علية
شكراً لكم
