• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

أبوبكر بن سويدان

اعضاء جدد
  • عدد المشاركات

    27
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

عن أبوبكر بن سويدان

  • الرتبة
    عضو جديد
  • تاريخ الميلاد 09/16/1978

معلومات الملف الشخصي

  • الجنس ذكر
  • الدولة : دولة ليبيا
  • اهتمامات البرمجة بلغة فجول بيسك دوت نيت.
    البرمجة بلغة php.

طرق الإتصال

  • Yahoo abubaker.swedan
  • Skype abubaker.swedan
  1. السلام عليكم ورحمة الله قمت بإنشاء تطبيق يتعامل مع قواعد بيانات MS Access وتقارير Crystal Reports. أقوم بتخزين بيانات في الجدول بنجاح، ومن ثم يتم عرض تقرير بهذه البيانات. ولدي روتين خاص بعرض تقرير بناء على رقم الـID. لأول مرة يقوم بعرض التقرير بلا أي مشاكل، ولكن عند طلب عرض التقرير مجدداً لأي سبب تظهر رسالة خطأ كما بالصورة.     علماً بأن برمجة Form عرض التقرير كما يلي:   Imports CrystalDecisions.SharedImports CrystalDecisions.Shared.OpenReportMethodImports CrystalDecisions.CrystalReports.EngineImports System.Data.OleDbImports System.DataPublic Class frmStool_2_Report Public RecID As Integer Private Sub frmStool_2_Report_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing RecID = 0 CryStool.ReportSource = Nothing frmMain.PatID = 0 frmMain.PatName = Nothing frmMain.lblPatName.Text = Nothing End Sub Private Sub frmStool_2_Report_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim rpt As New StoolReport Dim EmpSql As String = "SELECT * FROM StoolAnalysis WHERE ID=" & RecID & "" Dim Empdataset As New DataSet If Con.State = ConnectionState.Closed Then Con.Open() Dim EmpAdapter As New OleDbDataAdapter(EmpSql, Con) EmpAdapter.Fill(Empdataset, "StoolAnalysis") CryStool.ReportSource = Nothing rpt.SetDataSource(Empdataset) CryStool.ReportSource = rpt CryStool.Refresh() Con.Close() Else Dim EmpAdapter As New OleDbDataAdapter(EmpSql, Con) EmpAdapter.Fill(Empdataset, "StoolAnalysis") CryStool.ReportSource = Nothing rpt.SetDataSource(Empdataset) CryStool.ReportSource = rpt CryStool.Refresh() Con.Close() End If Empdataset.Reset() End SubEnd Class  والاتصال معرف في Module وهو كالتالي:   Imports System.Data.OleDbModule functions Public Con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\azoumi.mdb")End Module  فأين المشكلة؟ لكم تحية.      
  2. رسالة خطأ بعد الأمر Build للتطبيق

    كذلك يمكن التنزيل من موقع مايكروسوفت من هنا. http://www.microsoft.com/en-us/download/confirmation.aspx?id=5555   لكم تحية.
  3. رسالة خطأ بعد الأمر Build للتطبيق

    بارك الله فيك ورحم والديك.. أتعبتك معي أخي.
  4. ما الفارق بين إصدارات Visual Basic .NET؟

    بارك الله فيك ووفقك.
  5. السلام عليكم ورحمة الله   أعلم أن هناك عدة إصدارات من لغة Visual Basic .NET وعلى حسب فهمي هي:   1. نسخة Visual Basic .NET Express. 2. Visual Basic .NET Professional. 3. Visual Basic .NET Premium. 4. Visual Basic .NET Ultimate.   فما الفرق بين هذه الإصدارات؟ وأيها أفضل وأشمل؟   لكم تحية.
  6. السلام عليكم ورحمة الله وبركاته   قمت بإجراء الأمر Build للتطبيق، وتم بنجاح، ثم عندما أردت تشغيل التطبيق ظهرت لي رسالة الخطأ التالية. وتوقف التطبيق عن التنفيذ!     هل يمكن لأحد ما أن يفسر لي ما هي وكيفية علاجها؟   لكم تحية.  
  7. كيف يتم عرض حقل متعدد الأسطر في Crystal Report؟

    السلام عليكم   تم الحل هنا :   http://arabteam2000-forum.com/index.php/topic/278193-%D9%83%D9%8A%D9%81-%D9%8A%D8%AA%D9%85-%D8%AA%D8%AE%D8%B2%D9%8A%D9%86-%D8%AD%D9%82%D9%84-multiline-%D9%81%D9%8A-%D9%82%D8%A7%D8%B9%D8%AF%D8%A9-%D8%A7%D9%84%D8%A8%D9%8A%D8%A7%D9%86%D8%A7%D8%AA-%D9%88%D8%A7%D8%B3%D8%AA%D8%B1%D8%AC%D8%A7%D8%B9%D9%87/   لك تحية.
  8. كيف يتم تخزين حقل multiline في قاعدة البيانات واسترجاعه كما هو؟

    تم التوصل إلى الحل:   1. اجعل الـtextBox متعدد الأسطر من خلال الخاصية MultiLine.   2. في كود البرمجة نكتب (وهذا مثال فقط):       Private Sub SaveTOXOtest()        Dim SSql As String = "INSERT INTO ToxoTests (TestName,NormalValue,CostPrice) VALUES(@TestName,@NormalValue,@CostPrice)"        Dim SCMD As New OleDbCommand        If Con.State = ConnectionState.Closed Then            Con.Open()            With SCMD                .Connection = Con                .CommandType = CommandType.Text                .CommandText = SSql                .Parameters.AddWithValue("TestName", txtTestName.Text)                .Parameters.AddWithValue("NormalValue", txtNormalValue.Text.Replace("/r/n", "<br/>"))                .Parameters.AddWithValue("CostPrice", Val(txtTestPrice.Text))                .ExecuteNonQuery()                .Dispose()            End With            Con.Close()        Else            With SCMD                .Connection = Con                .CommandType = CommandType.Text                .CommandText = SSql                .Parameters.AddWithValue("TestName", txtTestName.Text)                .Parameters.AddWithValue("NormalValue", txtNormalValue.Text.Replace("/r/n", "<br/>"))                .Parameters.AddWithValue("CostPrice", Val(txtTestPrice.Text))                .ExecuteNonQuery()                .Dispose()            End With            Con.Close()        End If    End Sub  لاحظوا السطر:     .Parameters.AddWithValue("NormalValue", txtNormalValue.Text.Replace("/r/n", "<br/>"))    هذا هو الكود الذي حل المشكلة.   وقد جربت إنشاء تقرير لإظهار هذا الحقل ونجحت ولله الحمد والمنة.     أتمنى لكم الفائدة.
  9. السلام عليكم ورحمة الله وبركاته   أرجو ممن يعلم، أن يوضح لي كيفية تخزين حقل متعدد الأسطر في Visual basic .net 2010 باستخدام ADO.NET وقاعدة بيانات MS Access .mdb.   هذا الحقل يتم استرجاعه كما هو : متعدد الأسطر، وبالتالي يمكن عرضه في تقرير crystal Report.   لكم تحية.
  10. السلام عليكم ورحمة الله   طريقتي في ذلك كالتالي:   1. أضف ملف Module.vb إلى المشروع وسمه functions.vb، واكتب به الكود التالي:     Imports System.Data.OleDbModule functions    Public Con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\dbName.mdb")End Module    حيث dbName هو اسم قاعدة البيانات.   2. إذا كنت صممت ملف التقرير خارج فجول بيسك (مثلي) فقم بإضافته إلى المشروع عن طريق فتح القائمة Project ثم Add Existing Item، ثم اختر ملف التقرير من نافذة الحوار التي ستظهر لك.   3. الآن اذهب إلى الـForm الذي تود عرض التقرير فيه. وضع عليه CrystalReportViewer، وسمه CryReport مثلاً.   4. اكتب الكود التالي في بداية ملف برمجة الفورم:   Imports CrystalDecisions.SharedImports CrystalDecisions.Shared.OpenReportMethodImports CrystalDecisions.CrystalReports.EngineImports System.Data.OleDb  ثم عرّف متغيراً صحيحاً يمثل رقم السجل الذي تود عرضه في التقرير وكما يلي:     Public RecID As Integer  بعد ذلك، اكتب الكود التالي في حدث التحميل Load للـForm:   Dim rpt As New ReportFileNameيعني بنفس اسم ملف التقرير الذي أضناه للمشروع في البند 2        Dim EmpSql As String = "select * from TABLENAME where ID=" & RecID & ""        Dim EmpAdapter As New OleDbDataAdapter(EmpSql, Con)        Dim Empdataset As New DataSet        If Con.State = ConnectionState.Closed Thenيعني الاتصال غير مفتوح            Con.Open()            EmpAdapter.Fill(Empdataset, "LoadAndDisplay")            If Empdataset.Tables("LoadAndDisplay").Rows.Count > 0 Then                rpt.SetDataSource(Empdataset)                CryReport.ReportSource = rpt                CryReport.Refresh()                Con.Close()            Else                Con.Close()                Empdataset.Reset()                Me.Close()            End If        Elseيعني الاتصال مفتوح مسبقاً            EmpAdapter.Fill(Empdataset, "LoadAndDisplay")            If Empdataset.Tables("LoadAndDisplay").Rows.Count > 0 Then                rpt.SetDataSource(Empdataset)                CryReport.ReportSource = rpt                CryReport.Refresh()                Con.Close()            Else                Con.Close()                Empdataset.Reset()                Me.Close()            End If        End If        Empdataset.Reset()  ملاحظة:   سيتم عرض التقرير بعد أن ترسل قيمة رقم السجل من Form سابق.   أرجو أن تجرب الطريقة، وأرجو من الخبراء التصحيح في حال وجود خطأ.   لكم تحية.
  11. كيف يتم عرض حقل متعدد الأسطر في Crystal Report؟

    سأفعل إن شاء الله بارك الله فيك.
  12. السلام عليكم   كيف يمكنني عرض حقل متعدد الأسطر في الكريستال ريبورت؟ بالطبع لا بد من تخزين الحقل في قاعدة البيانات بشكل متعدد السطر! وهذه لم أعرفها أيضاً.   هل من أحد من الأخوة الكرام لديه حل لهذا التساؤل؟   علماً بأن لغة البرمجة التي أستعملها Visual Basic.net 2010 Pro وقاعدة البيانات MS Access.   لكم تحية.
  13. التعديل لا يعمل مع الداتا قريد DataGrid

    بارك الله فيك ورحم والديك وأدخلك الجنة بغير حساب.
  14. التعديل لا يعمل مع الداتا قريد DataGrid

      بارك الله فيك.   وفي حالة توزيع التطبيق على الزبائن، وإنشاء ملف تثبيت للتطبيق، هل أقوم بتعديل ما على ملف app.config؟ أم أتركه كما هو؟ وفي نفس الحالة، هل أفهم من كلامك أنه لا يلزمني إضافة ملف قاعدة البيانات إلى ملف التنصيب أم لا؟   جزاك الله خيراً.
  15. التعديل لا يعمل مع الداتا قريد DataGrid

      السلام عليكم   أرجو منك لو تكرمت توضيح طريقة وضع مسار قاعدة البيانات في الملف app.config