تقييم الموضوع :
  • 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 ك ب / التحميلات : 32)
الرد }}}}
تم الشكر بواسطة:
#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).

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حفظ بيانات اكثر من سجل من خلال DataGrideView abuyazan 3 458 29-12-15, 08:46 PM
آخر رد: العواد الصغير
Lightbulb [سؤال] تحديث اكثر من جدول داخل قاعدة بيانات اكسس مبرمج بلا حدود 15 1,398 20-08-15, 05:45 AM
آخر رد: khodor1985
  اكثر من جدول mesm23 8 1,208 14-05-14, 03:43 PM
آخر رد: سعود
Wink [كود] كود منع التكرار في قاعدة البيانات هيتوووو 9 3,083 07-05-14, 05:22 PM
آخر رد: سعود
  كيفية ربط قاعدة البياناتSQLمع اكثر منPC Ahlam 2 623 16-03-14, 02:53 PM
آخر رد: سعود
Question كيف يمكن تحويل كود عدم التكرار مصطفى_ظيمة 2 814 11-11-13, 07:58 PM
آخر رد: مصطفى_ظيمة
  منع التكرار في اضافة بيانات لقاعدة بيانات أكسس vb.net ahmedshafea 2 3,103 06-10-13, 02:03 PM
آخر رد: سعود
  [عنوان معدل]كيفية الاستعلام من اكثر من جدول على رمضان 5 904 03-07-13, 04:18 AM
آخر رد: على رمضان
  كيف يتم ربط قاعدة بيانات sql لتعمل على اكثر من جهاز؟ yousef 8 3,362 18-10-12, 08:34 PM
آخر رد: Easy4ever

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


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