الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة فى عرض تقرير Database Login

بدأه Mr_ZAD في 19 نوفمبر 2014 · 4 رد · 767 مشاهدة · في تصميم وبرمجة التقارير
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته
الاخوة الافاضل .. تحية طيبة
لدى برنامج دوت نت مصمم للعمل على شبكة مبنى على قواعد بيانات SQL SERVER .
أثناء عرض التقارير من الجهاز السيرفر تعمل بدون مشاكل .. اثناء تشغيلها من الجهاز الكلاينت تظهر مشكلة Database Login
علما بان الكود المستخدم للاتصال كالتالى :

   Try
            'نص الاتصال بقواعد البيانات
            GSQLConnection.ConnectionString = ("Data Source= " + ServerIPAddress + "\SQLExpress;Network Library=DBMSSOCN;Initial Catalog=datahgc;User ID=sa;Password=XXX")

            GSQLConnection.Open()
        Catch Ex As Exception
            MsgBox(Ex.Message, MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRight = True + MsgBoxStyle.MsgBoxRtlReading = True + MsgBoxStyle.OkOnly, "HGC")
        End Try

▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒

لاتناسب الوحدة سوى الله

إعجاب المرء بنفسه دليل على صغر عقله

الحكمة عشرة أجزاء تسعة منها الصمت والعاشرة قله الكلام

قال لقمان لولده : شيئان إذا حفظتهما لا تُبالي بما ضيَّعت بعدهما ، درهمك لمعاشك ودينك لمعادك

zadt.gif

▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒

WWW.ZADTECH.COM _*_*_*_*_*_*_*_MRZAD_1@HOTMAIL.COM

#2

بحث عن remote seql server tcp\ip

سبحانه الله وبحمده سبحانه الله العظيم

 
if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama");
 
Make it run, make it right, make it fast, make it small

normalize your data and don't make it look like excel sheet
 
الأبداع في الرأس والعلم في الكراس
روابط مفيدة
[دروس] تجاهل الwhere
طريقة الاضافة للجدولين مرتبطين مرة واحدة
قراءة صوره من مسار
حل مشكلة الارقام العربي في الكريستال ريبورت
حل مشكلة تصدير OLE Object الي Physical File مرة أخري
كود عمل نسخة يومية من قاعدة البيانات بتاريخ مع حذف النسخة السابقة من 30 يوم مضي
معظم دوال التعامل مع string
Change Data Capture
SQL Course
string-format-datetime
LINQ to SQL in C#
Sum-of-previous-row-values-in-SqlServer
alarm-for-stop-agent-service
SQL Server CTE
#3

.

تم تعديل هذه المشاركة بواسطة mrzad في 21 نوفمبر 2014 في 16:31

#4

السلام عليكم ورحمة الله وبركاته

جميع اعدادات الـ Remote SQL Server تم اعدادها بنجاح .. كما يمكننى جلب واضافة اى بيانات مدخلة من اى جهاز عميل الى الجهاز السيرفر .. وكذلك الاستعلامات

 

ماعدا التقارير فهى تعمل على الجهاز السيرفر ولكن من اى جهاز غير السيرفر لا تعمل وتظهر الرسالة الموضحة بالاعلى .

▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒

لاتناسب الوحدة سوى الله

إعجاب المرء بنفسه دليل على صغر عقله

الحكمة عشرة أجزاء تسعة منها الصمت والعاشرة قله الكلام

قال لقمان لولده : شيئان إذا حفظتهما لا تُبالي بما ضيَّعت بعدهما ، درهمك لمعاشك ودينك لمعادك

zadt.gif

▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒

WWW.ZADTECH.COM _*_*_*_*_*_*_*_MRZAD_1@HOTMAIL.COM

#5

كود التقرير ..

Option Explicit On
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports Microsoft.VisualBasic
Imports System.IO
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Public Class DailyReport
    Public datenow As String
    Private Sub DailyReport_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Dt As New DataTable

        Try
            If GSQLConnection.State <> ConnectionState.Open Then
                'عندهااستدعي إجراء الاتصال العام من مديول الاتصال
                GeneralConnection()
            End If

            GSQLCmd.Parameters.Clear()   
            GSQLCmd.CommandText = "SELECT* FROM Daily "
            
            GSQLCmd.CommandType = CommandType.Text
            GDR = GSQLCmd.ExecuteReader
            Dt.Clear()
            Dt.Load(GDR)
            GDR.Close()
            Dim report As New DailyRepp
            report.SetDataSource(Dt)
            CrystalReportViewer1.ReportSource = report
            CrystalReportViewer1.ShowGroupTreeButton = False
            ' rptViewer.ReportSource = rptDocument
            CrystalReportViewer1.Zoom(100%)
            CrystalReportViewer1.RefreshReport()
            GDR.Close()
            Dt.Clear()
            ' End If
        Catch Ex As Exception
            MsgBox(Ex.Message)
        Finally
            GDR.Close()
        End Try
    End Sub
End Class

تم تعديل هذه المشاركة بواسطة Mr_ZAD في 21 نوفمبر 2014 في 20:56

▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒

لاتناسب الوحدة سوى الله

إعجاب المرء بنفسه دليل على صغر عقله

الحكمة عشرة أجزاء تسعة منها الصمت والعاشرة قله الكلام

قال لقمان لولده : شيئان إذا حفظتهما لا تُبالي بما ضيَّعت بعدهما ، درهمك لمعاشك ودينك لمعادك

zadt.gif

▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒

WWW.ZADTECH.COM _*_*_*_*_*_*_*_MRZAD_1@HOTMAIL.COM

مواضيع مشابهة