تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اكثر من سجل مع التكرار
#1
السلام عليكم ورحمه الله وبركاته


عشره مباركه ان شاء الله للجميع



اخواني الكرام

انا عملت برنامج بسيط هوه لاضافه سجلات في قاعد البيانات


المشكله كما في الصوره التاليه


تم إضافة الصورة المكبرة للموضوع بدلاً من المصغرة من قبل الإدارة . بالتوفيق Smile






مثل ما في الصوره

انا اريد ان اجعل السجلات من 1 الى 12 كل واحد يعتبر قراءه مستقله ولكن يشتركوا في المعلومات العلويه

اتمنى منكم مساعدتي


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته
مافهمت عليك اخي الكريم ..
كيف يشتركوا ؟؟
الرد }}}
تم الشكر بواسطة:
#3
شكرا لك اخ سعود على التفاعل


انا اقصد مثلا لو بدي ادخل بيانات

البيانات العلويه كما في الصوره وهي اربع بيانات اثنين منها على صيغه تاريخ سوف تكون مشتركه مع كل البيانات التي ادخلها في الاسفل

بمعنى اخر لو دخلت بيانات في الرقم 1 و 2 و 3 كما في ترتيب الصوره

عند اختيار الحفظ سوف يحفظ البيانات لتي في رقم 1 مع البيانات العلويه في قراءه واحده وكذلك يحفظ البيانات في الرقم 2 مع نفس البيانات العلويه في قراءه جديده وهكذا

اتنمى اكون قدرت اوصل الفكره

اخي الكريم
الرد }}}
تم الشكر بواسطة:
#4
يعني كل صفوف مربعات النص تريد اضافتها كل صف بسجل مستقل؟؟
ممكن الكود اللي انت استخدمته.
الرد }}}
تم الشكر بواسطة:
#5
نعم اخي سعود كل صف يتم اضافه في سجل مستقل مع اضافه البيانات العلومه " الاربع مربعات العلويه والتي تحتوى على مربعين للتاريخ ايضا" لكل صف من الصفوف


اخي سعود بصراحه لم اعرف كيف ابدا فيها بالاصل ولم اعمل الكود لاني لم اعرف كيف ابدأ فيها لم يخطر في بالي اي فكره لها
الرد }}}
تم الشكر بواسطة:
#6
سويت مثال مشابه للفكرة وعرفت الاشكال وقمت باصلاح الخطا

انظر للمثال vb 2010 access 2007
http://vb4arb.com/vb/uploaded/34_01375210962.zip

خلاصة الامر اننا نريد حفظ كافة صفوف مربعات النص في عمود واحد بسجلات مستقلة .. لذلك نحتاج افراغ البارمتر قبل اعادة تهيئته لحفظ مربع النص الاخر

المثال يحتوي على عدد 8 مربعات نص وزر امر وقريد

اضفت روتين sub لعرض البيانات
كود :
Sub dt()        Dim ds As New DataSet
        Dim da As New OleDbDataAdapter("select * from tb", con)
        ds.Clear()
        DataGridView1.DataSource = Nothing


        da.Fill(ds, "tb")
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "tb"
    End Sub


واستدعيه عند حدث تحميل الفورم
كود :
dt

وايضا استدعيه بعد كود الحفظ
كود :
Dim cm As New OleDbCommand("", con)

        cm.CommandText = ("insert into tb(tname) values(@tname)")
        cm.Parameters.AddWithValue("@tname", TextBox1.Text)


        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        cm.ExecuteNonQuery()
        dt()




        '====
        cm.Parameters.Clear()
        cm.Parameters.AddWithValue("@tname", TextBox2.Text)


        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        cm.ExecuteNonQuery()
        dt()


        '===
        cm.Parameters.Clear()


        cm.Parameters.AddWithValue("@tname", TextBox3.Text)


        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        cm.ExecuteNonQuery()
        dt()


        '==
        cm.Parameters.Clear()


        cm.Parameters.AddWithValue("@tname", TextBox4.Text)


        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        cm.ExecuteNonQuery()
        dt()


        '==
        cm.Parameters.Clear()


        cm.Parameters.AddWithValue("@tname", TextBox5.Text)


        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        cm.ExecuteNonQuery()
        dt()


        '==
        cm.Parameters.Clear()


        cm.Parameters.AddWithValue("@tname", TextBox6.Text)


        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        cm.ExecuteNonQuery()
        dt()


        '==
        cm.Parameters.Clear()


        cm.Parameters.AddWithValue("@tname", TextBox7.Text)


        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        cm.ExecuteNonQuery()
        dt()


        '==
        cm.Parameters.Clear()


        cm.Parameters.AddWithValue("@tname", TextBox8.Text)


        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        cm.ExecuteNonQuery()
        dt()
الرد }}}
تم الشكر بواسطة:
#7
اخي الكريم سعود


يبدو انني لم اوضح المطلوب بشكل سليم وصحيح


تم ارفاق جزء من المثال في المرفقات

المطلوب بشكل مبسط :

انا اريد ان ادخل اولا بيانات MR no , JT No,date MR , date send

ثم يتم ادخال البينات في الاسفل

مثلا في اول مربع نص يتم ادخال

محمد والمربع التاني في نفس الصف 96665555 والمربع الثالث مثلا 10
ثم في الصف الثاني يتم ادخال مثلا
احمد في اول مربع نص وفي ثاني مربع نص مثلا 55555 وفي المربع الثالث 15

وعند عمل اضافه يتم اضافه الصف الموجود في محمد واحمد كل واحد سجل مستقل ولكن يحتوى كل السجلين احمد ومحمد على نفس المعلومات التي ادخلناها في البدايه التي هي "MR no , JT No,date MR , date send"

اتمنى اكون وفقت في شرح المشكله

ولك جزيل الشكر اخي سعود


الملفات المرفقة
.zip   ALAQSA.zip (الحجم : 104.05 ك ب / التحميلات : 52)
الرد }}}
تم الشكر بواسطة:
#8
للرفع اتمنى المساعده
الرد }}}
تم الشكر بواسطة:
#9
السلام عليكم و رحمة الله و بركاته,
اخي الكريم alaqsa,

يجب عليك عمل طريقة الـ (Master-Details) من أجل الوصول إلى حل لسؤالك المطروح هنا.

كما هو الحال في مثال المنتجات و المخزن و الحركات المخزنية, حيث أن الحركات المخزنية هي كالأتي:
يجب عمل جدولين:
الجدول الاول لإدخال المعلومات التالية:
1- رقم الحركة.
2- تاريخ الحركة.
3- إسم الجهة الطالبة.

الجدول الثاني لإدخال المعلومات التالية:
1- رقم المادة.
2- إسم المادة.
3- كمية المادة.
4- سعر المادة.
5- الوصف (أو وصف المادة).

و هنالك علاقة (One-Many) بين الجدول الاول (و يمثل الجدول الرئيسي) و الجدول الثاني (و يمثل الجدول الفرعي).

أرجوا أن تكون الفكرة واضحة لديك.

السلام عليكم.
الرد }}}
تم الشكر بواسطة:
#10
... تكملة

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

أما في حالتك يا أخي alaqsa,

فسيكون الجدول الاول هو الجدول الرئيسي و سيحتوي التالي:
MR no , JT No,date MR , date send

و الجدول الثاني و هو الجدول الفرعي و سيحتوي التالي:
Item, Description, Qty., Unit


و بهذا, سيكون لكل سجل من الجدول الاول عدة سجلات في الجدول الثاني, و هذه هي علاقة الـ (One-Many).

السلام عليكم.
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة أضافة اكثر من سيرفر على نفس قاعدة البيانات alim54 0 1,140 20-06-21, 11:20 PM
آخر رد: alim54
  مساعدة من اخوتي برنامج مبيعات سوبرماركت التعامل مع اكثر من زبون في نفس الوقت Mokhtar-mako 1 1,309 16-01-21, 08:43 PM
آخر رد: moosa_alabri
  حفظ اكثر من اربعة حقل بقاعدة اكسس الوضع المنفصل Arfat007 0 1,356 19-10-20, 04:19 PM
آخر رد: Arfat007
  كيف الغاء التكرار في البيانات بسام محمدغانم 0 1,695 27-12-19, 11:06 PM
آخر رد: بسام محمدغانم
  [سؤال] كيف أستطيع منع التكرار في ComboBox AL - WafaaPro 3 4,857 23-07-19, 02:13 AM
آخر رد: اسامه الهرماوي
  منع التكرار في اضافة بيانات لقاعدة بيانات أكسس vb.net ahmedshafea 3 10,220 01-07-19, 12:28 PM
آخر رد: essamprog
  استدعاء بيانات من اكثر من جدول المتألق9 1 2,430 04-06-19, 10:29 PM
آخر رد: احمد نعمة السلامي
  التكرار عند استخدام دالة الcount عبدالله .. 1 1,623 06-04-19, 09:05 PM
آخر رد: elgokr
  [سؤال] استفسار عن جمع قيم اكثر من مستطيل في داتا قريد Marwan9990 2 2,857 12-02-18, 01:19 AM
آخر رد: كناري008
  حفظ بيانات اكثر من سجل من خلال DataGrideView abuyazan 4 3,429 02-06-17, 11:28 PM
آخر رد: الراشيدي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم