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

مشكلة عند الاضافة للdata set

بدأه طالبة اوراكل في 21 يناير 2012 · 3 رد · 682 مشاهدة · في ADO.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

لديك كمبوبوكس به اسماء المصارف عندما نختار مصرف ما يظهر فروعه في كمبوبوكس اخر ..وعند اختيار الفرع يظهر اسماء الموظفين التابعين لهذا الفرع في داتاجردفيو

إلى هنا والشغل تمام ..ولكن عندما اغير فرع اخر يظهر خطأ بأن هذا الجدول موجود اصلا في الداتا ست ..ولا اعرف كيف اعدل في الكود لتحل المشكلة ..والبرنامج كما يلي:

  con.Open()
        Dim cmd As New OracleCommand("select * from temp where bank=:bnk and branch=:brnch", con)
        cmd.Parameters.AddWithValue(":bnk", banks.Text)
        cmd.Parameters.AddWithValue(":brnch", branches.Text)
        Dim oraAdapter As New OracleDataAdapter
        oraAdapter.SelectCommand = cmd

        oraAdapter.Fill(ds)

        ds.Tables.Add("temp")' هنا الخطأ عندما اغير الفرع يقول بأن الجدول موجود أصلا
        empDG.DataSource = ds.Tables.Item(0)

        empDG.Columns(0).HeaderText = ("رقم الموظف")
        empDG.Columns(1).HeaderText = ("اسم الموظف")
        ' empDG.Columns(2).HeaderText = ("رقم الموظف")
        empDG.Columns(3).HeaderText = ("أيام الغياب")
        ' empDG.Columns(4).HeaderText = ("رقم الموظف")
        empDG.Columns(5).HeaderText = ("صافي المرتب")
        empDG.Columns(6).HeaderText = ("الخزانة")
        empDG.Columns(7).HeaderText = (" إجمالي المرتب")
        empDG.Columns(8).HeaderText = ("الضمان")
        empDG.Columns(9).HeaderText = ("التضامن")
        empDG.Columns(10).HeaderText = ("الجهاد")
        empDG.Columns(11).HeaderText = ("حصة العمل")
        empDG.Columns(12).HeaderText = ("المستحق")
        empDG.Columns(13).HeaderText = ("الوعاء")

        ' empDG.Columns(13).Frozen("true")
        '  empDG.Columns(14).HeaderText = ("رقم الموظف")
        empDG.Columns(15).HeaderText = ("المبلغ بالحروف")
        con.Close()

ولكم الشكر..

#2

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

اختي ابسط حاجه انك تضيفي السطر التالي في اخر الاجراء

ds.Clear()

للعلم لا توجد فائدة لفتح وغلق الاتصال هنا, وبما انك تستخدمي الوضع المنفصل فيمكنك تحميل الجداول المراد التعامل معها في حدث التحميل للفورم, وعند الاختيار يمكنك عمل فلترة للجدول باستخدام الاجراء Select

تم تعديل هذه المشاركة بواسطة VB Helper في 21 يناير 2012 في 18:34

.:: Wish to become better and better ::.

#3

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

شكرا لك مساعد الvb

أنا جديدة على لغة vb ولكنني في العادة لا اسأل حتى استنفذ كل الحلول التي تخطر ببالي ..لذلك فجهلي باللغة هو الذي يؤخر توصلي للحل

لانه قد يكون بسيط ولا اراه خطأ ..خصوصا انني كنت اعمل على devloperوالتي تتميز بسهولة كتابة الكود لابعد مما تتصور ..

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

ولقد حللت المشكلة ..مش بالعبقرية ..ولكن بالتجربة ..فقد كنت اعرف الداتا ست في كود تحميل الفورم

وعندما نقلت التعريف على مستوى الكود التابع لكمبوبوكس الفروع ..حلت

مشكور اخي ..وعذرا للازعاج

1
#4

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

اختي انا لم اتوقع انك عرفتي الـ DataSet على مستوى الفورم والا سوف اخبرك, لكنني قست على الكود المكتوب اعلاه!!

.:: Wish to become better and better ::.

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