26-10-21, 01:02 PM
(آخر تعديل لهذه المشاركة : 26-10-21, 07:06 PM {2} بواسطة محمد صادق حسن.)
لدي برنامج بنظام vb.net وتقارير كريستال ريبورت يعمل على شبكة داخلية مكونة من 5 اجهزة
التقارير تطبع بدون مشاكل في 3 اجهزة وفي جهازين تظهر المشكلة التالية
ارجو الإفادة لمن لديه حل للمشكلة
وهذه دالة الإتصال
التقارير تطبع بدون مشاكل في 3 اجهزة وفي جهازين تظهر المشكلة التالية
ارجو الإفادة لمن لديه حل للمشكلة
وهذه دالة الإتصال
كود :
Public Sub LogOn(ByVal poReport As CrystalDecisions.CrystalReports.Engine.ReportDocument, ByVal strServer As String, ByVal strTable As String, ByVal strUsername As String, ByVal strPassword As String)
Dim loConnInfo As New CrystalDecisions.Shared.ConnectionInfo
loConnInfo.ServerName = strServer.ToString.Trim
'MsgBox(strServer)
loConnInfo.DatabaseName = strTable.ToString.Trim
loConnInfo.UserID = strUsername.ToString.Trim
'MsgBox(strUsername)
loConnInfo.Password = strPassword.ToString.Trim
' MsgBox(strPassword)
loConnInfo.IntegratedSecurity = False
Dim loTables As Tables
Dim loTable As CrystalDecisions.CrystalReports.Engine.Table
Dim loTableLogonInfo As CrystalDecisions.Shared.TableLogOnInfo
loTables = poReport.Database.Tables
For Each loTable In loTables
loTableLogonInfo = loTable.LogOnInfo
loTableLogonInfo.ConnectionInfo.UserID = strUsername
loTableLogonInfo.ConnectionInfo.Password = strPassword
loTableLogonInfo.ConnectionInfo.ServerName = strServer
loTableLogonInfo.ConnectionInfo.DatabaseName = strTable
loTableLogonInfo.ConnectionInfo.IntegratedSecurity = False
loTable.ApplyLogOnInfo(loTableLogonInfo)
Next
End Sub