منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

لدي برنامج بنظام vb.net وتقارير كريستال ريبورت يعمل على شبكة داخلية مكونة من 5 اجهزة
التقارير تطبع بدون مشاكل في 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

إستبدل الاتصال المباشر بالإتصال بـ DataSet

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

محمد صادق حسن

تركي الحلواني